优化 ASP 应用程序和 VBScript 的技巧。

功能跟xmlhttp差不多,以下是使用其openURL方法的一个范例。相关代码如下:
<%
dim oInC,txtURL
Set oInC = Server.CreateObject("InetCtls.Inet.1")
oInC.RequestTimeOut=20
txtURL="http://127.0.0.1/index.asp"
sText = oInc.OpenURL(cstr(txtURL))
sText = "<pre>" & vbcrlf & Server.HTMLEncode(sText) & vbCRLF & "</pre>"
Response.Write sText
set oInC = nothing
%>