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

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 21次 | 进入软件测试论坛讨论

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

文章来源于领测软件测试网 https://www.ltesting.net/

软件测试论坛

领测软件测试网最新更新

软件测试技术相关文章

软件测试培训信息

最新软件测试技术专题

最新领测软件测试网新闻

软件测试技术文章排行榜

编辑推荐
周排行
月排行

软件测试技术分类最新内容