在batman基础上改进的,谢谢batman大哥 :-).用的是access2000自带的数据库---nwind.mdb, odbc---NW.
index.html
td.head {background-color:#3366cc;color:#ffffff}
RSEnableRemoteScripting("http://3344net/_ScriptLibrary");
客户信息
var serverURL = "http://3344net";
var pageURL = "/rs/Data.asp";
function refreshPage(co)
{
if (co.status != 0) {
alert("发生异常错误\n" +
message);
}
strText = co.return_value.split("|");
if (strText == "") {
document.all.change.innerHTML="
| 没有找到!!! |
else{
document.all.num.innerHTML="共找到" +strText[0]+ "纪录
";
document.all.change.innerHTML="
客户 | 地址 |
}
}
function execAsynch(state)
{
RSExecute(serverURL+pageURL, "GetEmpInfoAsArray", state, refreshPage);
}
data.asp
<%@ LANGUAGE=VBSCRIPT %>
<% RSDispatch %>
function Description()
{
this.GetEmpInfoAsArray = DoGetData;
}
public_description = new Description();
function DoGetData(getstate)
{
var objConn = Server.CreateObject("ADODB.Connection");
objConn.Open("dsn=NW;Network=3344net");
var rst = Server.CreateObject("ADODB.Recordset");
rst.Open("SELECT 公司名称,地址 FROM 客户 Where [地区]='" + getstate + "'", objConn, 1, 1);
count = rst.RecordCount;
strText = count + "|";
for (var j=0;j { strText += " rst.MoveNext(); } objConn.Close(); return strText; }" + rst("公司名称") + " " + rst("地址");

