首页 | 心情日记 | 建站心得 | 编程技术 | 大盘分析 | 股市信息 | 学习园地 | 电脑技巧 | 物流外贸 | 另类其它 | 站长推荐 | 给我留言 | 相册

用户登陆
用户:
密码:
 
不保存保存一天
保存一月保存一年

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论

日志搜索

 标题   内容


ASP中各种数据库连接代码 恶意代码类
未知 正则表达式   [ 日期: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文字符")


引用这个评论 兄弟 于 2007-04-25 10:11:41 发表评论: 
今天收集到了更多的正则表达式的代码:

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}$

引用这个评论 兄弟 于 2007-04-24 14:35:41 发表评论: 
以下是一个例子:
 <%
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
%>

   发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:  我要注册 验证码: 
为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
确定发布?
最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!
 
   

CopyRight © 2008-2010 广东金融学院030904班 All Rights Reserved
Powered by www.030904.com