可以这样修改:

'Dim objXML:Set   objXML   =   server.CreateObject( "Microsoft.XMLHTTP")  

Dim objXML:Set   objXML   =   server.CreateObject( "MSXML2.ServerXMLHTTP" & MsxmlVersion)