web学习吧　2006-12-16　来源:　收藏本文

function chkEmail(email)
on error resume next
dim i,l,pos1,pos2
chkEmail=true
if isnull(email) then chkEmail=false:exit function
pos1= instr(email,"@")
pos2=instrRev(email,".")
if not(pos1>0) or not (pos2>0) or pos1>pos2 then
chkEmail=false
end if
if err.number<>0 then err.clear
end function

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！

• ·检查sql字符串中是否有单引号，有则进行转
• ·检查来访IP是否合法的实际应用
• ·检查Email地址的比较完善的正则表达式函数
• ·身份验证常用正则表达式
• ·正则表达式结合数组提取文章中的文件名
• ·正则学习:组的定义及引用方式
• ·在ASP中利用“正则表达式” 对象实现UBB风
• ·在ASP中用“正则表达式对象”来校验数据的
• ·使用正则表达式实现模式图片新闻(加强).ASP
• ·在ASP中用“正则表达式对象”来校验数据的
• ·ASP中正则表达式的应用 选择自 bigcarp 的
• ·ASP中正则表达式的应用
• ·正则表达式验证
• ·ASP中正则表达式的应用
• ·正则表达式练习测试页
• ·正则表达式