如判断字符串是否为空
<%
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
%>
