欢迎光临
我们一直在努力

Remote Script问题已经解决,帖出来大家共享!!!

建站超值云服务器,限时71元/月

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

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » Remote Script问题已经解决,帖出来大家共享!!!
分享到: 更多 (0)