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