哪位用过remote scripting?我要被折磨死了！！！

kai_chun 2001-08-02 07:33:18

我正在学习remote scripting技术，可是我从网上download下来的源码，总是无法运行，我已经试过很多此次了，如果不连数据库都是可以的，连了数据库就没有反映了，真的不知道是什么原因，烦请哪位高人指点一下，我已经困惑了近一周了！
把我的源码贴出来：
我的web服务器名为kaichun，数据库服务器为sql server，文件就放在wwwroot下.
文件remote1.html
<HTML><HEAD><TITLE>remote1.htm</TITLE></HEAD>
<BODY>
<script language="JavaScript" src="/_ScriptLibrary/rs.htm"></script>
<script language="JavaScript">RSEnableRemoteScripting("/_ScriptLibrary");</script>
<h2>Simple Remote Scripting Example</h2>
<form name="remote1">
The Test <input type="text" name="test" value="none"><br><input type="button" name="aa" value="Click" onclick="handleRSExecute()">
<SCRIPT LANGUAGE="javascript">
var serverURL = "remote1.asp";

function myCallBack(co)
{
// document.write (co.return_value);
remote1.test.value=co.return_value;
}

function handleRSExecute()
{
var co = RSExecute(serverURL,"Method3");
myCallBack(co);
}
</SCRIPT>
</form>
</HTML>

文件remote1.asp

<%@ LANGUAGE=VBSCRIPT %>
<% RSDispatch %>

<SCRIPT RUNAT=SERVER Language=javascript>
function Description()
{
this.Method1 = Method1;
this.Method2 = Method2;
this.Method3 = Method3;
}
public_description = new Description();

function Method1()
{
return "method1";
}

function Method2()
{
return "kaichun";
}

function Method3()
{
var connstr,conn,sql,rst,strText;
var connstr = "driver={SQL Server}; server=server01;uid=sa;pwd=;database=lgxs_2";
conn = new ActiveXObject("ADODB.Connection");
conn.ConnectionString = connstr;
conn.ConnectionTimeout = 30;
conn.Open();
sql = "Select http from web_link where func_id='k_01_01'";
rst = new ActiveXObject("ADODB.Recordset");
rst.CursorLocation = 3;
rst.Open(sql,conn);
strText=rst.Field("http").value;
return strText;
}

</script>

其中的sql语句绝对可以检索到结果，我已经在sql server 上试过了。
多谢!

...全文