您所在的位置:小祥子 » 编程 » ASP » 正文

ASP判断服务器上最高XmlHttp版本号并使用

时间:2015-02-16 编辑:本站 来源:本站原创

XmlHttp版本越高,越好使用,首先将所有版本保存,然后做一个for循环,从高往低判断是否已经安装。

Function getXmlHttpVer()
 dim i,xmlHttpVersions,xmlHttpVersion
 getXmlHttpVer = false
 xmlHttpVersions = Array("Microsoft.XMLHTTP", "MSXML2.XMLHTTP", "MSXML2.XMLHTTP.3.0","MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.5.0")
 for i = 0 to ubound(xmlHttpVersions)
  xmlHttpVersion = xmlHttpVersions(i)
  if isInstallObj(xmlHttpVersion) then getXmlHttpVer = xmlHttpVersion : Exit Function
 next 
End Function

Function isInstallObj(objname)
 dim isInstall,obj
 On Error Resume Next
 set obj=server.CreateObject(objname)
 if Err then
  isInstallObj = false : err.clear
 else
  isInstallObj=true:set obj = nothing
 end if
End Function

关键词:XmlHttp 版本 判断