这里是一断正则表达式的例子
<%
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
%＞
此文章不能满足您的需求？那就就Google一下吧：）
|
 |
|
| 在线教程首页 | 程序设计 | 电脑应用 | 平面设计 | 网页设计 | 多媒动画 | 管理策划 | 名家专栏 | 实用范文 | 贺词慰问 | 分类 | 专题 | 留言本 | 投稿 | 搜索 |