asp获取最高版本的XMLHTTP组件,用于远程文件的获取,加强程序兼容性
[ 2015-12-16 15:35:14 | 作者: admin ]
'*********************************************************
'获取远程文件内容
'Dim Url,Html
'Url="http://www.im286.com"
'Html = getHTTPPage(Url)
'*********************************************************
function getHTTPPage(url)
On Error Resume Next
dim Http
'set Http=server.createobject("MSXML2.XMLHTTP")
'循环获取最高支持的XML组件
oxml=array("Msxml2.ServerXMLHTTP.6.0","Msxml2.ServerXMLHTTP.5.0","Msxml2.S
阅读全文…
1