最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp 常用正则表达式
时间:2022-06-30 10:51:11 编辑:袖梨 来源:一聚教程网
Public Function CheckRegExp(sources,para)
If para="[username]" Then
para="^[.A-Za-z0-9u4e00-u9fa5]+$"
End If
If para="[password]" Then
para="^[a-z0-9]+$"
End If
If para="[email]" Then
para="^([0-9a-zA-Z]([-.w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-w]*.)+[a-zA-Z]*)$"
End If
If para="[homepage]" Then
para="^[a-zA-Z]+://[a-zA-z0-9-./]+?/*$"
End If
If para="[nojapan]" Then
para="[u3040-u30ff]+"
End If
If para="[guid]" Then
para="^w{8}-w{4}-w{4}-w{4}-w{12}$"
End If
If para="[idcard]" Then
para="^d{17}(d|x)$"
End If
Dim re
Set re = New RegExp
re.Global = True
re.Pattern = para
re.IgnoreCase = False
CheckRegExp = re.Test(sources)
End Function
%>
相关文章
- 碧蓝航线欧根亲王μ兵装怎么获得 碧蓝航线欧根亲王μ兵装获得方法 04-20
- 物华弥新每月免费抽卡次数有多少 物华弥新每月免费抽卡次数介绍 04-20
- fgo国服提亚马特抽几宝最好 fgo国服提亚马特宝具抽取建议 04-20
- 碧蓝航线可畏μ兵装怎么获得 碧蓝航线可畏μ兵装获得方法 04-20
- 碧蓝航线能代μ兵装怎么获得 碧蓝航线能代μ兵装获得方法 04-20
- 碧蓝航线欧根亲王μ兵装怎么获得 04-20