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

End Function

'===================================================================================

' 函数原型：RegExpReplace(sSource,sPattern,sRep)
'功能：正则表达式替换
'参数：sSource要替换的源字符串
'sPattern模式字符串
'sRep要替换的目标字符串
'返 回 值：替换后的字符串
'涉及的表：无
'===================================================================================

Public Function RegExpReplace(sSource, sPattern, sRep)
    Dim r
    Set r = GetRegExpTest(sPattern)
    RegExpReplace = r.Replace(sSource, sRep)
    Set r = Nothing
End Function

'===================================================================================
' 函数原型：CreateXMLParser()
'功能：创建一个尽可能高版本的XMLDOM
'参数：无
'返 回 值：IDOMDocument对象
'涉及的表：无
'===================================================================================

Public Function CreateXMLParser()
    On Error Resume Next
    Set CreateXMLParser = Server.CreateObject("MSXML2.DOMDocument.4.0")
    If Err.Number<>0 Then
        Err.Clear
        Set CreateXMLParser = Server.CreateObject("MSXML2.DOMDocument.3.0")
        If Err.Number<>0 Then
            Err.Clear
            Set CreateXMLParser = Server.CreateObject("MSXML2.DOMDocument.2.6")
            If Err.Number<>0 Then
                Err.Clear
                Set CreateXMLParser = Server.CreateObject("MSXML2.DOMDocument")
                If Err.Number<>0 Then
                    Err.Clear
                    Set CreateXMLParser = Server.CreateObject("Microsoft.XMLDOM")
                    If Err.Number<>0 Then