ASP判断服务器支持Microsoft.XMLDOM、MSXML2.ServerXMLHTTP的方法

'*************************************    
'判断服务器Microsoft.XMLDOM    
'*************************************    
Function getXMLDOM    
    On Error Resume Next  
    Dim Temp    
    getXMLDOM="Microsoft.XMLDOM"  
    Err = 0    
    Dim TmpObj    
    Set TmpObj = Server.CreateObject(getXMLDOM)    
    Temp = Err    
    IF Temp = 1 or Temp = -2147221005 Then  
        getXMLDOM="Msxml2.DOMDocument.5.0"  
    End IF    
    Err.Clear    
    Set TmpObj = Nothing  
    Err = 0    
end function    
  
'*************************************    
'判断服务器MSXML2.ServerXMLHTTP    
'*************************************    
Function getXMLHTTP    
    On Error Resume Next  
    Dim Temp    
    getXMLHTTP="MSXML2.ServerXMLHTTP"  
    Err = 0    
    Dim TmpObj    
    Set TmpObj = Server.CreateObject(getXMLHTTP)    
    Temp = Err    
    IF Temp = 1 or Temp = -2147221005 Then  
        getXMLHTTP="Msxml2.ServerXMLHTTP.5.0"  
    End IF    
    Err.Clear    
    Set TmpObj = Nothing  
    Err = 0    
end function