<% 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 %> (责任编辑:admin) |