深圳网站建设技术博客

<%

Function getHTTPPage()

dim http

set http=Server.createobject("Msxml2.ServerXMLHTTP")

Http.open "GET","http://127.0.0.1/test.html",false

Http.send()

if Http.readystate<>4 then

On Error Resume Next

Response.Write "<h3>服务XmlHttp组件支持情况：</h3>"

oxml=array("Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.ServerXMLHTTP.4.0","Msxml2.ServerXMLHTTP.3.0","Msxml2.ServerXMLHTTP","Msxml2.XMLHTTP.6.0","Msxml2.XMLHTTP.5.0","Msxml2.XMLHTTP.4.0","Msxml2.XMLHTTP.3.0","Msxml2.XMLHTTP")