Remote Script问题已经解决，帖出来大家共享！！！

Remote Script问题已经解决，帖出来大家共享！！！

- 中国WEB开发者网络 (http://www.webasp.net)
-- 技术教程 (http://www.webasp.net/article/)
--- Remote Script问题已经解决，帖出来大家共享！！！ (http://www.webasp.net/article/4/3224.htm)

-- 作者：未知
-- 发布日期： 2003-07-11

在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>


    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>

webasp.net