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

    ElseIf InStr(theSoft, "Windows NT 5.2") Then
        vOs = "Windows 2003"
    ElseIf InStr(theSoft, "Windows NT") Then
        vOs = "Windows NT"
    ElseIf InStr(theSoft, "Windows 9") Then
        vOs = "Windows 9x"
    ElseIf InStr(theSoft, "unix") Then
        vOs = "Unix"
    ElseIf InStr(theSoft, "linux") Then
        vOs = "Linux"
    ElseIf InStr(theSoft, "SunOS") Then
        vOs = "SunOS"
    ElseIf InStr(theSoft, "BSD") Then
        vOs = "BSD"
    ElseIf InStr(theSoft, "Mac") Then
        vOs = "Mac"
    Else
        vOs = "Other"
    End If
End Function

'===================================================================================
' 函数原型：GetRegexpObject()
'功能：获得一个正则表达式对象
'参数：无
'返 回 值：正则表达式对象
'涉及的表：无
'===================================================================================

Public Function GetRegExpObject(sPattern)
    Dim r
    Set r = New RegExp
    r.Global = True
    r.IgnoreCase = True
    r.MultiLine = True
    r.Pattern = sPattern
    Set GetRegexpObject = r
    Set r = Nothing
End Function

'===================================================================================
' 函数原型：RegExpTest(pattern,string)
'功能：正则表达式检测
'参数：pattern模式字符串
'string待检查的字符串
'返 回 值：是否匹配
'涉及的表：无
'===================================================================================

Public Function RegExpTest(p, s)
    Dim r
    Set r = GetRegExpObject(p)
    RegExpTest = r.Test(s)
    Set r = Nothing