ASP常用函数收集
浏览次数:【372】 发布日期:2009-8-13 12:09:22 文章分类:Asp编程
1.检查是否有效邮件地址
FunctionCheckEmail(strEmail)
Dimre
Setre=NewRegExp
re.Pattern="^[w-.]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]{2,3}$"
re.IgnoreCase=True
CheckEmail=re.Test(strEmail)
EndFunction 2.测试变量是否为空值,空值的含义包含:变量不存在/为空,对象为Nothing,0,空数组,字符串为空
FunctionIsBlank(ByRefVar)
IsBlank=False
SelectCaseTrue
CaseIsObject(Var)
IfVarIsNothingThenIsBlank=True
CaseIsEmpty(Var),IsNull(Var)
IsBlank=True
CaseIsArray(Var)
IfUBound(Var)=0ThenIsBlank=True
CaseIsNumeric(Var)
If(Var=0)ThenIsBlank=True
CaseElse
IfTrim(Var)=""ThenIsBlank=True
EndSelect
EndFunction