用户登陆
站点日历
站点统计
最新评论
日志搜索
正则表达式 [ 日期：2007-03-22 14:44:58 ] [ 来自：海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com
【字体设置：大 中 小】
提取信息中的网络链接:
(h|H)(r|R)(e|E)(f|F) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)?
提取信息中的邮件地址:
\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
提取信息中的图片链接:
(s|S)(r|R)(c|C) *= *('|")?(\w|\\|\/|\.)+('|"| *|>)?
提取信息中的ip地址:
(\d+)\.(\d+)\.(\d+)\.(\d+)
提取信息中的中国手机号码:
(86)*0*13\d{9}
提取信息中的中国固定电话号码:
(\(\d{3,4}\)|\d{3,4}-|\s)?\d{8}
提取信息中的中国电话号码（包括移动和固定电话）:
(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}
提取信息中的中国邮政编码:
[1-9]{1}(\d+){5}
提取信息中的中国身份证号码:
\d{18}|\d{15}
提取信息中的整数：
\d+
提取信息中的浮点数（即小数）：
(-?\d*)\.?\d+
提取信息中的任何数字 ：
(-?\d*)(\.\d+)?
提取信息中的中文字符串：
[\u4e00-\u9fa5]*
提取信息中的双字节字符串 (汉字)：
[^\x00-\xff]*
提取信息中的英文字符串：
\w*
↓=============== 提取中文字符 ================↓
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局替换。
Set Matches = regEx.Execute(strng) ' 执行搜索。
For Each Match in Matches ' 遍历 Matches 集合。
RetStr = RetStr & Match.Value
Next
RegExpTest = RetStr
End Function
nl=RegExpTest("[\u4e00-\u9fa5]","提取中sdfsdfsdf文字符")
1、非负整数：^d+$
2、正整数：^[0-9]*[1-9][0-9]*$
3、非正整数：^((-d+)|(0+))$
4、负整数：^-[0-9]*[1-9][0-9]*$
5、整数：^-?d+$
6、非负浮点数：^d+(.d+)?$
7、正浮点数：^((0-9)+.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*.[0-9]+)|([0-9]*[1-9][0-9]*))$
8、非正浮点数：^((-d+.d+)?)|(0+(.0+)?))$
9、负浮点数：^(-((正浮点数正则式)))$
10、英文字符串：^[A-Za-z]+$
11、英文大写串：^[A-Z]+$
12、英文小写串：^[a-z]+$
13、英文字符数字串：^[A-Za-z0-9]+$
14、英数字加下划线串：^w+$
15、E-mail地址：^[w-]+(.[w-]+)*@[w-]+(.[w-]+)+$
16、URL：^[a-zA-Z]+://(w+(-w+)*)(.(w+(-w+)*))*(?s*)?$
或：^http://[A-Za-z0-9]+.[A-Za-z0-9]+[/=?%-&_~`@[]':+!]*([^<>])*$
17、邮政编码：^[1-9]d{5}$
18、中文：^[u0391-uFFE5]+$
19、电话号码：^(((d{2,3}))|(d{3}-))?((0d{2,3})|0d{2,3}-)?[1-9]d{6,7}(-d{1,4})?$
20、手机号码：^(((d{2,3}))|(d{3}-))?13d{9}$
21、双字节字符(包括汉字在内)：^x00-xff
22、匹配首尾空格：(^s*)|(s*$)（像vbscript那样的trim函数）
23、匹配HTML标记：<(.*)>.*</1>|<(.*) />
24、匹配空行：n[s| ]*r
25、提取信息中的网络链接：(h|H)(r|R)(e|E)(f|F) *= *('|)?(w||/|.)+('|| *|>)?
26、提取信息中的邮件地址：w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*
27、提取信息中的图片链接：(s|S)(r|R)(c|C) *= *('|)?(w||/|.)+('|| *|>)?
28、提取信息中的IP地址：(d+).(d+).(d+).(d+)
29、提取信息中的中国手机号码：(86)*0*13d{9}
30、提取信息中的中国固定电话号码：((d{3,4})|d{3,4}-|s)?d{8}
31、提取信息中的中国电话号码（包括移动和固定电话）：((d{3,4})|d{3,4}-|s)?d{7,14}
32、提取信息中的中国邮政编码：[1-9]{1}(d+){5}
33、提取信息中的浮点数（即小数）：(-?d*).?d+
34、提取信息中的任何数字 ：(-?d*)(.d+)?
35、IP：(d+).(d+).(d+).(d+)
36、电话区号：/^0d{2,3}$/
37、腾讯QQ号：^[1-9]*[1-9][0-9]*$
38、帐号(字母开头，允许5-16字节，允许字母数字下划线)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$
<%
If Request.Form<>"" Then StopInjection(Request.Form)
If Request.QueryString<>"" Then StopInjection(Request.QueryString)
If Request.Cookies<>"" Then StopInjection(Request.Cookies)
Function StopInjection(values)
For Each N_Get In values
Dim L_Get, L_Get2
For Each L_Get In values
L_Get2 = values(L_Get)
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "(\(\d{3,4}\)|\d{3,4}-|\s)?\d{7,14}"
If regEx.Test(L_Get2) Then
Alert()
response.End()
End If
Set regEx = Nothing
Next
Next
End Function
Sub Alert()
Dim str
str = "<"&"Script Language=JavaScript"&">"
str = str & "alert('== 系统检测到你的留言中有电话号码，已经禁止本次提交 ==\n');window.close();"
str = str & "<"&"/Script"&">"
response.write str
End Sub
%>
发表评论 - 不要忘了输入验证码哦！
首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册
