XMLHttp组件的检测

XMLHttp组件在很多场合可以用到，Z-Blog提供的在线安装主题和插件，便是通过这个实现的。还有，诸如小偷程序，在线采集等等都是通过这个实现的。

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