[导入]ASP常用函数:getXMLDOM()

<%
'功能:获取XMLDOM的最高版本
'来源:http://jorkin.reallydo.com/article.asp?id=433
'需要IsObjInstalled函数:http://jorkin.reallydo.com/article.asp?id=163

Function getXMLDOM()
    On Error Resume Next
    XmlDomVersions = Array("MSXML2.DOMDocument.5.0", "MSXML2.DOMDocument.4.0", "MSXML2.DOMDocument.3.0", "MSXML2.DOMDocument", "Microsoft.XMLDOM")
    For i = 0 To UBound(XmlDomVersions)
        If IsObjInstalled(XmlDomVersions(i)) Then getXMLDOM = XmlDomVersions(i) : Exit Function
    Next
End Function
%>

文章来源:http://Jorkin.Reallydo.Com/default.asp?id=433