服务器之家

服务器之家 > 正文

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

时间:2020-07-18 15:41     来源/作者:木木
  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 
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部