ASP实时刷新显示mysql数据_月光软件站 - 编程文档 - ASP - ASP中不刷新页面，动态读取数据库...

1.效果图：

2.源程序

1.jsCallASP.asp

不刷新页面，动态读取数据库

function getTables(obj){

var server=txtServer.value;

var database=txtDatabase.value;

var jsSrc="getTables.asp?obj=selTable&server=" + server + "&database=" + database + "&rnd=" + Math.random();

if(server==""||database=="") {alert('请填写完整！');return;}

obj.value='读取中...';

obj.disabled=true;

reloadJs(js,jsSrc);

}

function getRecords(obj){

var server=txtServer.value;

var database=txtDatabase.value;

var table=selTable.value;

var jsSrc="getRecords.asp?obj=DisData&server=" + server + "&database=" + database + "&table=" + table + "&rnd=" + Math.random();

if(server==""||database==""||table=="") {alert('请填写完整！');return;}

obj.value='读取中...';

obj.disabled=true;

reloadJs(js,jsSrc);

}

不刷新页面，动态读取数据库

Sql Server服务器:
数据库：
表：
前100条数据：

2.getTables.asp

Dim CnStr,SQL,Rs,ServerName,DatabaseName,Obj

ServerName=Request.QueryString("server")

DatabaseName=Request.QueryString("database")

Obj=Request.QueryString("obj")

Set Rs=Server.CreateObject("ADODB.Recordset")

CnStr="Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & ";uid=sa;pwd=sa"

SQL="select name from sysobjects where type='u' and status>0"

Rs.Open SQL,CnStr,1,1

If Not Rs.Eof then

Response.Write("ClearSelect(" & Obj & ");" & vbcrlf)

While not Rs.eof

text=Rs("name")

value=Rs("name")

Response.Write("FillSelect(" & Obj & ",'" & text & "','" & value & "');" & vbcrlf)

Rs.MoveNext

Wend

End If

Rs.Close

Set Rs=Nothing

%>

cmdRefresh.value="刷　新";

cmdRefresh.disabled=false;

3.getRecords.asp

On Error Resume Next

Dim CnStr,SQL,Rs,ServerName,DatabaseName,Obj

ServerName=Request.QueryString("server")

DatabaseName=Request.QueryString("database")

Table=Request.QueryString("Table")

Obj=Request.QueryString("obj")

Set Rs=Server.CreateObject("ADODB.Recordset")

CnStr="Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & ";uid=sa;pwd=sa"

SQL="select top 100 * from [" & table & "]"

Rs.Open SQL,CnStr,1,1

If Not Rs.Eof then

Response.Write("SetHTML(" & Obj & ",'');" & vbcrlf)

outHTML="

for i=0 to Rs.Fields.count-1

outHTML=outHTML & "

" & Rs.Fields(i).Name & ""

next

outHTML=outHTML & "

"

While not Rs.eof

outHTML=outHTML & "

"

For i=0 to Rs.Fields.count-1

FieldType=Rs.Fields(i).Type

FieldValue=Rs.Fields(i).Value

Select Case FieldType

Case 128

outHTML=outHTML & "

[Binary]"

Case 205

outHTML=outHTML & "

[LongVarBinary]"

Case Else

outHTML=outHTML & "

" & FieldValue & ""

End Select

Next

outHTML=outHTML & "

"

Rs.MoveNext

Wend

outHTML=outHTML & "

"

outHTML=Replace(outHTML,vbcrlf,"
")

outHTML=Replace(outHTML,"""","\""")

Response.Write("var HTML=""" & outHTML & """;" & vbcrlf)

Response.Write("SetHTML(" & Obj & ",HTML);" & vbcrlf)

Else

Response.Write("SetHTML(" & Obj & ",'没有记录！');" & vbcrlf)

End If

Rs.Close

Set Rs=Nothing

%>

cmdRead.value="读　取";

cmdRead.disabled=false;

4.Function.js

var _onjsload=null;

function reloadJs(obj,jsfile)

{

_onjsload= function(){window.status=jsfile + " is loaded.";}

obj.src=jsfile;

}

function jsLoadReady()

{

if(_onjsload!=null)

{

_onjsload();

_onjsload=null;

}

}

function FillSelect(obj,text,value){

var oOption = document.createElement("OPTION");

oOption.text=text;

oOption.value=value;

obj.add(oOption);

}

function ClearSelect(obj){

for(var i=obj.length;i>=0;i--){

obj.remove(i);

}

}

function SetHTML(obj,value)

{

obj.innerHTML=value;

}