asp 调用 java_用 ASP 文件来调用 Servlet | 学步园

在 WebSphere应用服务器 中的 ASP 支持包括一个用于嵌入 Servlet 的 ActiveX 控制，下面介绍ActiveX 控制AspToServlet 的方法和属性。

该方法说明如下：

(1) String ExecServletToString(String servletName)；执行 ServletName，并将其输出返回到一个字符串中。

(2) ExecServlet(String servletName)；执行 ServletName，并将其输出直接发送至 HTML 页面。

(3) String VarValue(String varName)；获得一预置变量值(其它格式)。

(4) VarValue(String varName, String newVal)；设置变量值。变量占据的总大小应小于 0.5 个千字

节(Kbyte)。且仅对配置文件使用这些变量。

其属性如下：

= Boolean WriteHeaders；若该属性为真，则 Servlet 提供的标题被写入用户处。缺省值为假。

= Boolean OnTest；若该属性为真，服务器会将消息记录到生成的 HTML 页面中。缺省值为假。

下列ASP 脚本示例是以 Microsoft Visual Basic Scripting(VBScript)书写的。

〈%

´ Small sample asp file to show the capabilities of the servlets and the ASP GateWay ...

%>

〈H1> Starting the ASP->Java Servlet demo〈/H1>

〈%

´ Create a Servlet gateway object and initialize it ...

Set javaasp = Server.CreateObject("AspToServlet.AspToServlet")

´ Setting these properties is only for the sake of demo.

´ These are the default values ...

javaasp.OnTest = False

javaasp.WriteHeaders = False

´ Add several variables ...

javaasp.VarValue("gal") = "lag"

javaasp.VarValue("pico")= "ocip"

javaasp.VarValue("tal") = "lat"

javaasp.VarValue("paz") = "zap"

javaasp.VarValue("variable name with spaces") = "variable value with spaces"

%>

〈BR>

Lets check the variables

〈%

Response.Write("variable gal = ")

Response.Write(javaasp.VarValue("gal"))

%>

〈BR>

〈%

Response.Write("variable pico = " & javaasp.VarValue("pico"))

%>

〈BR>

〈HR>

〈%

galout = javaasp.ExecServletToString("SnoopServlet")

If javaasp.WriteHeaders = True Then

%>

Headers were written 〈%

Else

%>

Headers were not written 〈%

End If

Response.Write(galout)

%>

〈H1> The End ...〈/H1>