文档: 使 Remote Scripting 在服务器页中有效
除了对客户页进行配置以便于调用远程脚本外,您还必须对自己的服务器页进行配置,以便于对它们进行接收。其做法包括下面这些步骤:
包含 remote scripting 服务器库,并对其进行初始化。
编写客户页能调用的函数或者例程。
将自己的函数和例程显露为方法。
缺省的情况是,客户脚本所调用的某个 ASP 页并不显示在浏览器中──而是简单地在服务器上执行并将结果送到客户端。因此,作为规则,您无需在 ASP 页中包括进任何 HTML 文本,而只需脚本。不过,还是有可能在某个 ASP 页上调用包括 HTML 文本的方法并作正常显示的,只要您初始化了 remote scripting 服务器库,并用下面描述的技巧显露页的方法。
包括并初始化 remote scripting 服务器库
创建服务器端引用 Rs.ASP 文件的 INCLUDE 语句,如下例所示:
<!--#INCLUDE FILE="../_ScriptLibrary/RS.ASP"-->
确保为 Rs.ASP 文件指定正确路径。INCLUDE 语句可以出现在用户文件的任何位置。
将一个调用插入到RSDispatch方法中,当您从客户脚本调用服务器脚本时,可用该方法找到正确过程。该调用可能看起来如下所示:
<% RSDispatch %>
RSDispatch 调用必须是运行在该页上的第一个服务器脚本。按惯例,典型做法是将其放到文件头部。
在合适的初始化动作中,创建用户将从客户脚本中作为方法调用的函数或者例程。您可以用任何脚本语言书写过程。过程可以接受任意数目的参数,但参数只可以为字符串、数字、日期,或者其他简单数据类型──客户不能将结构化数据(例如,对象或者数组)作为参数。
注意 当您将参数从客户脚本传递到服务器脚本时,它们即被转换为字符串。如果用户期望自己的服务器方法中有不同数据类型,可以在方法脚本内部转换之。
在服务器脚本中创建了过程后,您必须将它们作为方法显露出来。为了达到该目的,您可以创建一个 JavaScript 公共描述对象,并列出用户希望显露的方法。
显露方法
创建一个 public_description 对象,该对象为您的方法指定构造函数。下面的示例命名构造函数为 MyServerMethods:
<SCRIPT LANGUAGE="JavaScript">
var public_description = new MyServerMethods();
创建您在 public_description 对象中指定的构造函数。在构造函数内部,指定用户希望显露的方法名,以及它们相应的函数或者例程名。用户所使用的语法取决于用户是在 JavaScript 中还是在 VBScript 中创建自己的方法。可使用下面的语法:
functionconstructor(){
this.methodName = functionName //对于 JavaScript 方法来说
// 对于用 VBScript 书写的方法,使用下面的语法
this.methodName = Function('p1','p2','return functionName(p1,p2)')
}
注意 JavaScript 是大小写敏感的,因此用户必须根据约定正确大写。
其中:
methodName 将被显露的方法名。
functionName 服务器页中实现 methodName 的函数名。
p1, p2 传递给方法的参数列表──如果有参数的话。仅当该方法在 VBScript 中实现时,才能以这种方式显式地声明参数。参数名在构造函数内必须是一致的,但不需要和用户在方法本身中所使用的参数名匹配。用户不需要显式地声明传递给 JavaScript 中所实现方法的参数。
下面的示例显示了一个完整的 ASP 页,该页显露两个方法,square 和 add,这可以从客户脚本中调用。square 方法是在 JavaScript 中实现的,而 add 方法则是在 VBScript 中实现的。
<% RSDispatch %>
<!--#INCLUDE FILE="../_ScriptLibrary/RS.ASP"-->
<SCRIPT RUNAT=SERVER LANGUAGE="JavaScript">
var public_description = new MyServerMethods();
function MyServerMethods()
{
this.square = squareNumber;
this.add = Function( 'n1','n2','return addNumbers(n1,n2)' );
}
function squareNumber(numberToSquare){
return numberToSquare * numberToSquare;
}
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE="VBScript">
Function addNumbers(num1, num2)
' 数据类型发生转换,因为它们作为字符串进行传递
addNumbers = CInt(num1) + CInt(num2)
End Function
</SCRIPT>