在batman基础上改进的,谢谢batman大哥 :-).用的是access2000自带的数据库—nwind.mdb, odbc—nw.
index.html
<html>
<head>
<title>rs技术的实现例子</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<style>
td.head {background-color:#3366cc;color:#ffffff}
</style>
</head>
<body bgcolor=lightgoldenrodyellow>
<script language="javascript" src="http://3344net/_scriptlibrary/rs.htm"></script>
<script language="javascript">
rsenableremotescripting("http://3344net/_scriptlibrary");
</script>
<h1>客户信息</h1>
<hr>
<form name="myform">
<p><input type="text" name="state" size="20"> <input type=button value="提 交" name=btnexecute onclick="execasynch(state.value)"></p>
</form>
<div id=num></div>
<div id=change></div>
<hr>
<script language="jscript">
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="<table><tr><td class=head>没有找到!!!</td></tr></table>";}
else{
document.all.num.innerhtml="共找到" +strtext[0]+ "纪录<br>";
document.all.change.innerhtml="<table border=1 cellpadding=0 cellspacing=0 width=473><tr><td width=197 class=head><p align=center><b>客户</b></td><td width=276 height=24 class=head><p align=center><b>地址</b></td></tr>"+strtext[1]+"</table>";
}
}
function execasynch(state)
{
rsexecute(serverurl+pageurl, "getempinfoasarray", state, refreshpage);
}
</script>
</body>
</html>
data.asp
<%@ language=vbscript %>
<% rsdispatch %>
<script runat=server language=javascript>
<!–#include virtual="/_scriptlibrary/rs.asp"–>
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<count;j++)
{
strtext += "<tr><td>" + rst("公司名称") + "<td>" + rst("地址");
rst.movenext();
}
objconn.close();
return strtext;
}
</script>
