RS技术的一个具体例子
在前面的帖子中，我介绍了RS的基本工作原理，显然如果将RS技术运用在一个
网站的设计中将会有很多非凡的作用（尤其是它的那个最大的优点，可以在不刷新
页面的情况下调用服务端的代码）。正是因为这个特点，你就可以象在编写一个
传统的C/S模式的程序一样，对数据库的数据进行处理了(我想大家一定很想知道具体应该如何来实现了，下面将给出一个具体的例子，调试这个破程序几乎快把我给累死，呵呵。)
从前面的描述可以看到，要使用RS技术就需要客户端和服务端满足下面两个条件：
1。客户端只需要支持Java applet即可
2。而服务端只需要支持ASP即可
换句话说，就是RS技术是完全独立与浏览器的（当然浏览器至少需要满足支持Java
和JavaScript），你可以在IE中使用，也可以完全在
NC中使用，这也是区别与RDS技术的一个显著特点。
在能够灵活运用RS技术前，先要说明一个问题，就是前面也曾经提到过的“异步调用”
的问题。也正是因为有异步调用，才能够实现你只刷新页面的某一部分而不用刷新
整个页面。
由于它的这个特点，你可以让服务端来实现在你浏览页面的同时
对你输入数据的合法性检查（当然这可以是一系列很复杂的合法性检查，例如需要
将用户输入的数据和数据库内已有的数据进行对比等，这个可不是客户端的JS能够解决的）
然后当服务端返回检查结果后，你再进行相应的操作（例如弹出一个对话框告诉用户
输入出错等等）
异步调用时的语法如下：
RSExecute(serverURL, functionname, param_list)
第一个参数是你想调用的asp页面的完整的URL路径
第二个参数是你想调用函数的名称
后面的就是该函数需要的输入参数了
如果你想调用的函数需要两个输入参数的话，就是这样的写法：
RSExecute(serverURL, functionname, f_arg_1, f_arg_2)
当进行调用时有两种写法，
一种是有返回结果的调用方式：
objResult = RSExecute(serverURL, functionname, f_arg_1, f_arg_2);
另外一种则是没有返回结果的调用方式：
RSExecute(url, func_name, f_arg_1, f_arg_2, CallbackFunction);
这种调用方式要特别的注意，其中的CallbackFunction是客户端的一个JS函数
它表示一但RS执行完毕服务端上的调用，就会马上调用这个函数，并把结果返回到这个
函数中去。
一个典型的CallbackFunction函数应该是这样的结构：
function CallbackFunction(objResult) {
//你自己的处理过程
}
其中唯一的输入参数objResult就是RS调用的返回值.
下面我们假设这样一种情况：
用户在浏览器中输入了用户的e-mail地址，然后用户离开了e-mail地址输入框
进入接下来的输入过程，这个时候就是RS该上场了，它根据用户输入的地址在
服务端的数据库中查询这个地址，就可以判断出这个用户是否已经存在，然后
把结果返回给客户端，在客户端再使用DHTML技术在一个叫"ShowResult"的输入框
里面提示用户以前输入的信息。
function CallbackFunc(objResult) {
// 提示用户的信息
window[objResult.context].value = objResult.return_value;
}
而RSExecute()应该这么调用
RSExecute(serverURL, functionname, f_arg_1, CallbackFunc, "ShowResult");
不说了，不说了，上面罗嗦了这么多，我想大家也都看得头大了，下面还是
让具体的代码来发言把：
(请在使用代码前在你的服务器上建立一个叫NW的系统DSN文件，该文件使用了
Northworld即中文ACCESS97自带的示例数据库)
下面的例子是这么进行的，default.htm中分为两祯，在
main.html页面中使用了RS技术，大家可以注意到在main.html中没有使用到submit
所以如果你在该页面中直接敲回车键的话什么都不会出现，你必须通过鼠标单击
那个"获取信息"按扭来使用这个局部页面刷新技术。在单击完该按扭后，页面会有
一段小小的延迟（这段时间内java applet在后台建立了和服务端的连接）
然后马上页面回复正常的鼠标，你可以在该页面中继续进行其他的操作。
而不必象普通页面刷新时，你只有等待数据。
而info.asp大家一眼就能够看明白，其实就是一个很简单的处理字符串的程序。
如果大家要是对DHTML技术熟悉的话，完全可以在客户端完成这些操作。
至于EmpData.asp就是服务端处理数据的程序了。
好了，其中的好处大家可以自己去
体会。
特别注意，不要改变太多代码，不然很容易出错，毕竟是在使用JavaScript编程
Default.htm文件代码如下：
1<html>
2<head>
3<title>RS技术的实现例子</title>
4</head>
5<frameset id="fset" rows="70%,30%">
6<frame name="main" src="main.html"/>
7<frame name="info" src="info.asp"/>
8</frameset>
9</html>
Maim.html文件代码如下
1<html>
2<head>
3<title>RS技术的实现例子</title>
4</head>
5<body>
6<script language="JavaScript" src="http://YourServer/_ScriptLibrary/rs.htm"></script>
7<script language="JavaScript">
8RSEnableRemoteScripting("http://YourServer/_ScriptLibrary");
9</script>
10<h1>雇员信息</h1>
11<hr/>
12<form name="MyForm">
13请输入你想查询的名字:
14<br/><input name="empLastName" size="40" type="text"/>
15<input name="btnExecute" onclick="execAsynch(empLastName.value)" style="width=150" type="button" value="获取信息"/>
16</form>
17<hr/>
18<script language="javascript">
19var serverURL = "http://YourServer";
20var pageURL = "/batman/EmpData.asp";
21
22function refreshPage(co)
23{
24if (co.status != 0) {
25alert("发生异常错误\n" +
26message);
27}
28strText = co.return_value;
29top.info.location = "info.asp?info=" + escape(strText);
30}
31function execAsynch(empLastName)
32{
33RSExecute(serverURL+pageURL, "GetEmpInfoAsArray",
34empLastName, refreshPage);
35}
36</script>
37</body>
38</html>
info.asp文件代码
1<html>
2<body>
Response.Write Request.ServerVariables("REMOTE_USER")
strText = Request.QueryString("info")
If strText = "" Then Response.End
arrData = split(strText, "|")
arrLabels = split("职工,头衔,城市,雇佣日期", ",")
1<table border="0">
for i=0 to 3
Response.Write "<tr>"
Response.Write "<td><b>" & arrLabels(i) & "</b></td>"
Response.Write "<td><i>" & arrData(i) & "</i></td>"
next
1</tr></table>
2</body>
3</html>
EmpData.asp文件
1@ LANGUAGE=VBSCRIPT
1 RSDispatch
1<script language="javascript" runat="SERVER">
2<!--#INCLUDE VIRTUAL="/_ScriptLibrary/RS.ASP"-->
3
4function Description()
5{
6this.GetEmpInfoAsArray = DoGetData;
7}
8public_description = new Description();
9
10
11function DoGetData(empName)
12{
13sql = "select * from 雇员 where [名字]='" + empName + "'";
14rst = new ActiveXObject("ADODB.Recordset");
15rst.CursorLocation = 3;
16
17rst.Open(sql, "NW");
18i = 0;
19strText = "";
20
21if (rst.RecordCount == 1) {
22strText += rst.Fields("雇员ID").Value + " - " +
23rst.Fields("尊称").Value + " " +
24rst.Fields("姓氏").Value + " " +
25rst.Fields("名字").Value;
26strText += "|";
27strText += rst.Fields("头衔").Value;
28strText += "|";
29strText += rst.Fields("城市").Value + " " +
30rst.Fields("地区").Value + ", " +
31rst.Fields("国家").Value;
32strText += "|";
33d = new Date(rst.Fields("雇用日期").Value);
34strText += (1+d.getMonth()) + "/" + d.getDate() + "/" + d.getYear();
35}
36return strText;
37}
38</script>