📄 rs例程.txt
字号:
请支持我们站点以网养网，点击我们的广告，谢谢大家！
感谢各位高手的帖子，我已经可以地使用remote script脚本
--------------------------------------------------------------------------------
【taylor999】 于 00-4-22 下午 05:37:56 加贴在 Joy ASP ↑：
如果您还在为page invoked does not support remote scripting;头疼的话，建议您做以下调整：
1，将rs.htm,rs.asp, rsproxy.class 移动到与程序相同的路径下。
2，您的程序页面包含rs.htm的语句不要加路径。
3，服务器端脚本中包含rs.asp的语句移到文件的最后或最前端，并改成<!--#INCLUDE file="RS.ASP"-->
以下是我根据一位高手（记不清名字了）的帖子改过的代码：
index.htm
<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="RS.htm"></script>
<script language="JavaScript">
RSEnableRemoteScripting(".");
</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="JavaScript">
var serverURL = "test2.asp";
function refreshPage(co)
{
if (co.status != 0) {
alert("发生异常错误\n" +
message);
}
strText = co.return_value;
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+"</table>";
}
}
function execAsynch(state)
{
RSExecute("data.asp", "GetEmpInfoAsArray", state,refreshPage);
//document.writeln (data)
}
</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 strText;
var objConn = Server.CreateObject("ADODB.Connection");
objConn.Open("dsn=nw");
var rst = Server.CreateObject("ADODB.Recordset");
rst.Open("SELECT * from documents Where id=" + getstate , objConn, 1, 1);
strText = "<tr><td>" + rst("title") + "<td>" + rst("filename");
objConn.Close();
return strText;
}
</SCRIPT>
<!--#INCLUDE file="RS.ASP"-->
--------------------------------------------------------------------------------
贴子转发：
E-mail地址：
--------------------------------------------------------------------------------
相关主题：
感谢各位高手的帖子，我已经可以地使用remote script脚本 - 【taylor999】 00-4-22 下午 05:37:56 [ID:222690 点击:13] (2774 Bytes) (0)
--------------------------------------------------------------------------------
回复：
版 面：Joy ASP ↑ *为必填项目 第一次发言请去注册>> 怎样使用UBBCode>> UBB Code Editor>> NEW!
姓 名：* 密码： * 密码遗忘请点这里>>
Email：
主 题：*
表 情：
内 容（最多16KB） 使用签名 设置签名>>
链接地址：
链接标题：
链接图片：
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -