ASP实例：是否支持XmlHttp组件的判断

　　<%
　　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
　　%>