MSXML. xmlhttp 的应用参考：http://hi.baidu.com/etangren/blog/item/267f9e165515a951f2de3230.html

申请最高版本的XMLHTTP对象，程序代码：http://hi.baidu.com/hy_zone/blog/item/2ebdc6fd4eeda046d7887d01.html

Dim ArrProgId,Prog,Flag，XmlHttpCom
ArrProgId = array("MSXML2.ServerXMLHTTP.4.0", "MSXML2.ServerXMLHTTP.3.0", "MSXML2.ServerXMLHTTP", "MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0", "MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP","Microsoft.XMLHTTP")
For Each Prog In arrProgId
If (IsObjInstalled(Prog) = true) Then
XmlHttpCom = Prog
Exit For
End If
Next

'//　Rem 检查组件是否支持　是返回　True 否返回 False
Public Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
'//测试代码
Dim xTestObj
Set xTestObj = Server.createObject(strClassString)
If 0 = Err Then IsObjInstalled = True
'//清除所申请的对象
Set xTestObj = Nothing
Err = 0
End Function