用正则表达式来增强VBScript(ASP)类型判断

 

Dim dicParamType
 Set dicParamType = Server.CreateObject("Scripting.Dictionary")
 dicParamType.Add "Account","^[a-zA-Z]{1}([a-zA-Z0-9]|[._]){4,24}$"
 dicParamType.Add "Password","^[a-zA-Z]{1}([a-zA-Z0-9]|[._]){4,24}$"
 dicParamType.Add "Email","w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*"
 dicParamType.Add "Phone","^[+]{0,1}(d){1,3}[ ]?([-]?((d)|[ ]){1,12})+$"
 dicParamType.Add "Mobil","^[+]{0,1}(d){1,3}[ ]?([-]?((d)|[ ]){1,12})+$"
 dicParamType.Add "Postal","^[a-zA-Z0-9 ]{3,12}$"
 dicParamType.Add "IP","^[0-9.]{1,20}$"
 dicParamType.Add "Url","^[a-zA-z]+://(w+(-w+)*)(.(w+(-w+)*))*(?S*)?$"
 dicParamType.Add "RelUrl","^/*[^/:*?<>|]+/*$"
 dicParamType.Add "FileName","^[^/:*?<>|]+$"
 dicParamType.Add "FilePath","(^[A-Z]:/[^/:*?<>|]+.w{2,6})"
 dicParamType.Add "FolderName","^[^/:*?<>|]+$"
 dicParamType.Add "FolderPath","(^[A-Z]:/[^/:*?<>|]+/*$)|(/{2}[^/:*?<>|]+/*$)"
 dicParamType.Add "Natural","^d+$"
 dicParamType.Add "PstInteger","^[0-9]*[1-9][0-9]*$"
 dicParamType.Add "NgtInteger","^-[0-9]*[1-9][0-9]*$"
 dicParamType.Add "Integer","^-?d+$"
 dicParamType.Add "PstFloat","^(([0-9]+.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*.[0-9]+)|([0-9]*[1-9][0-9]*))$"
 dicParamType.Add "NgtFloat","^(-(([0-9]+.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*.[0-9]+)|([0-9]*[1-9][0-9]*)))$"
 dicParamType.Add "Float","^(-?d+)(.d+)?$"
 dicParamType.Add "IsChinese","^[一-龥]+$"
 dicParamType.Add "HasChinese","[一-龥]+"
 dicParamType.Add "IsDateTime","^((((1[6-9]|[2-9]d)d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]d|3[01]))|(((1[6-9]|[2-9]d)d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]d|30))|(((1[6-9]|[2-9]d)d{2})-0?2-(0?[1-9]|1d|2[0-8]))|(((1[6-9]|[2-9]d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))-0?2-29-)) (20|21|22|23|[0-1]?d):[0-5]?d:[0-5]?d$"
 dicParamType.Add "IsDate","^((((1[6-9]|[2-9]d)d{2})-(0?[13578]|1[02])-(0?[1-9]|[12]d|3[01]))|(((1[6-9]|[2-9]d)d{2})-(0?[13456789]|1[012])-(0?[1-9]|[12]d|30))|(((1[6-9]|[2-9]d)d{2})-0?2-(0?[1-9]|1d|2[0-8]))|(((1[6-9]|[2-9]d)(0[48]|[2468][048]|[13579][26])|((16|[2468][048]|[3579][26])00))-0?2-29-))$"
 dicParamType.Add "IsTime","^(20|21|22|23|[0-1]?d):[0-5]?d:[0-5]?d$"

 Function IsType(vnt,vntType)
  IsType = False
  If Typename(vntType)="Integer" Then
   If vntType < dicParamType.Count And vntType>=0 Then IsType=regTest(vnt,dicParamType.items()(vntType))
  Else
   If dicParamType.Exists(vntType) Then IsType=regTest(vnt,dicParamType(vntType))
  End If
 End Function
 Function IsObjType(obj,strType) 
  IsObjType = False
  If IsObject(obj) Then
   If strType="object" Then
    IsObjType = True
   ElseIf TypeName(obj)=strType Then
    IsObjType = True
   End If
  End If
 End Function
 Function regTest(ByVal strTest,ByVal strPattern)
   Dim objReg
  Set objReg = New RegExp
  If IsEmpty(strPattern) Or IsNull(strPattern) Or IsEmpty(strTest) Or IsNull(strTest) Then 
   regTest=False
   Exit Function
  End If
  objReg.Pattern=strPattern
   objReg.IgnoreCase = True 
  objReg.Global = True 
   regTest = objReg.Test(strTest)
  Set objReg = Nothing
   End Function 

通过这个函数可以增强VBscript的“类型”判断能力，当然其间的正则表达式可以应用在任何其他语言中。