- 用表单来提交sql - 3
- 使用asp实现支持附件的邮件系统（一）
- 十天学会ASP之第八天
- ASP系列讲座（七）使用组件和对象
- ASP和C#隐藏文件下载路径的方法
- ASP常用函数 储存单位转换函数:FormatFileSize()
- 用ASP让用户访问指定页面
- ASP+配置 — ASP+配置概念（一）
- WAP版的手机号码所在地查询
- dreamweaverMX通用分页代码研究
- 用ASP实现一个真正的注册页面
- Web打印的解决方案之证件套打
- .net的reflection (2)
- ASP技术在论坛中的运用(二)（吐血推荐！！！！）
- Asp.Net 发送 smpt邮件
- ASP 3.0高级编程（二十七）
- 如何使用asp创建dsn?
- ASP + Serv-u 实现FTP的代码
- 提高ASP性能的最佳选择（二）
- EyesBaby功能实现之Windows前景色调节器
- 用XML数据岛解决用户界面问题 - 3
- @ 指令参考之四 - @LCID
- asp将数据导入excel后，中文出现乱码？？怎么解决
- ADO如何善用RecordSet组件呢？
- ASP编程中15个非常有用的例子 （二）
- 用Agent+ASP技术制作语音聊天室
- 从VB 6.0到VB.NET的转换(3)
- 用ASP控制Flash
- 利用JSP的思想来做ASP
- ASP正则匹配img标签
用vbscript判断email地址的合法性
作者：佚名 ASP网站建设编辑：admin 更新时间：2022-07-23
这里是一断正则表达式的例子
<%
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular exPRession object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" ' Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(strng) ' Execute search.
if match.count then isemail= true
End Function
%＞
<%
Function isemail(strng)
isemail = false
Dim regEx, Match ' Create variables.
Set regEx = New RegExp ' Create a regular exPRession object (stupid, huh?)
regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" ' Sets pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
Set Match = regEx.Execute(strng) ' Execute search.
if match.count then isemail= true
End Function
%＞
- 上一篇文章： 关于打印页面的一些经验
- 下一篇文章： 可以近视替代remote script的代码