asp 正则表达式检测http开头的函数

时间:2022-08-22 12:08:02
  1. '####################################  
  2. '函数:ishttp[str]  
  3. '参数:str,待处理的字符串  
  4. '作者:木木  
  5. '日期:2007/7/12  
  6. '描述:检测HTTP连接地址或地址栏是否以HTTP开头  
  7. '示例:<%=ishttp(http://www.zzvips.com)%>  
  8. '####################################  
  9.  
  10. Function ishttp(str)  
  11. Dim regEx  
  12. Set regEx = New RegExp  
  13. regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}://"  
  14. ishttp = regEx.Test(str)  
  15. End function 
  16. 验证邮件地址是否符合标准 
  17. <%  
  18. '******************************  
  19. '函数:isemail(strng)  
  20. '参数:strng,待验证的邮件地址  
  21. '作者:阿里西西  
  22. '日期:2007/7/13  
  23. '描述:验证邮件地址是否符合标准  
  24. '示例:<%=isemail(ali@zzvips.com)%>  
  25. '******************************  
  26. Function isemail(strng)  
  27.     isemail = false  
  28.     Dim regEx, Match  
  29.     Set regEx = New RegExp  
  30.     regEx.Pattern = "^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"   
  31.     regEx.IgnoreCase = True  
  32.     Set Match = regEx.Execute(strng)  
  33.     if match.count then isemail= true  
  34. End Function  
  35. %>  
  36. 正则表达式检测中国移动电话手机号码'*********************************************************  
  37. '函数:mobilecheck[str]  
  38. '参数:str,待处理的字符串  
  39. '作者:木木  
  40. '日期:2007/7/12  
  41. '描述:检测移动电话手机号码  
  42. '示例:<%=mobilecheck("13912345678")%>  
  43. '*********************************************************  
  44.  
  45.  
  46. Function mobilecheck(str)  
  47. Dim regEx  
  48. Set regEx = New RegExp  
  49. regEx.Pattern = "^(13[4-9]|15(8|9))d{8}$"  
  50. mobilecheck= regEx.Test(str)  
  51. End Function