正则表达式的使用

如判断字符串是否为空

<%

    Public Function Validation(Pattern,string1)

        Dim RegExp1,Matches

        Set RegExp1=New RegExp

        RegExp1.Pattern=Pattern

        RegExp1.IgnoreCase=True

        RegExp1.Global=True

        Matches=RegExp1.Test(string1)

        Validation=Matches

    End Function

    Public Function CheckIsEmpty(string1)

        CheckIsEmpty=Validation("^$",Trim(string1))        

    End Function

    If CheckIsEmpty("")=True then

        Response.Write(" is Empty"

    Else

        Response.Write(" is not Empty")

    End If

%>