?? 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 + -