ASP常用函数收藏乱七八糟未整理版(75)

                        Err.Clear
                        Set CreateXMLParser = Nothing
                    Else
                        Exit Function
                    End If
                Else
                    Exit Function
                End If
            Else
                Exit Function
            End If
        Else
            Exit Function
        End If
    Else
        Exit Function
    End If
    On Error GoTo 0
End Function


'===================================================================================
' 函数原型：CreateHTTPPoster()
'功能：创建一个尽可能高版本的XMLHTTP
'参数：ServerOrClient创建ServerXMLHTTP还是XMLHTTP
'返 回 值：IXMLHTTP对象
'涉及的表：无
'===================================================================================

Public Function CreateHTTPPoster(soc)
    Dim s
    If soc Then
        s = "ServerXMLHTTP"
    Else
        s = "XMLHTTP"
    End If
    On Error Resume Next
    Set CreateHTTPPoster = Server.CreateObject("MSXML2." & s & ".4.0")
    If Err.Number<>0 Then
        Err.Clear
        Set CreateHTTPPoster = Server.CreateObject("MSXML2." & s & ".3.0")