深圳网站建设技术博客

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")

for i=0 to ubound(oxml)

Set getxmlhttp = Server.CreateObject(oxml(i))

If Err Then

Err.Clear

Response.Write oxml(i)&"不支持<br/>"

else

Response.Write oxml(i)&" 支持<br/>"

end if

next

%>

 

 

 

服务XmlHttp组件支持情况：

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 支持