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

<%
　　On Error Resume Next
　　Response.Write "<h3>服务xml(标准化越来越近了)Http组件支持情况：</h3>"
　　oxml(标准化越来越近了)=array("Msxml(标准化越来越近了)2.Serverxml(标准化越来越近了)HTTP.6.0","Msxml(标准化越来越近了)2.Serverxml(标准化越来越近了)HTTP.5.0","Msxml(标准化越来越近了)2.Serverxml(标准化越来越近了)HTTP.4.0","Msxml(标准化越来越近了)2.Serverxml(标准化越来越近了)HTTP.3.0","
　　Msxml(标准化越来越近了)2.Serverxml(标准化越来越近了)HTTP","Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP.6.0","Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP.5.0","Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP.4.0","Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP.3.0","Msxml(标准化越来越近了)2.xml(标准化越来越近了)HTTP")
　　for i=0 to ubound(oxml(标准化越来越近了))
　　Set getxml(标准化越来越近了)http = Server.CreateObject(oxml(标准化越来越近了)(i))
　　If Err Then
　　Err.Clear
　　Response.Write oxml(标准化越来越近了)(i)&"不支持<br/>"
　　else
　　Response.Write oxml(标准化越来越近了)(i)&" 支持<br/>"
　　end if
　　next
　　%>