[asp]匹配网址的正则

2016-02-19 11:32 7 1 收藏

下面图老师小编跟大家分享[asp]匹配网址的正则,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~

【 tulaoshi.com - Web开发 】

代码如下:

Function IsValidUrl(str) 
 Dim regEx 
 Set regEx = New RegExp 
 regEx.Pattern = "http(s)?://([w-]+.)+[w-]+(/[w-./?%&=]*)?" 
 IsValidUrl = regEx.Test(str) 
End Function 

来源:http://www.tulaoshi.com/n/20160219/1597807.html

延伸阅读
标签: Web开发
script language="javascript"     var re = /^-?\d+%$/;     alert(re.test('50%'));     alert(re.test('-25%'));     alert(re.test('3a5%')); /script
标签: Web开发
Function DRexPage(Str)     Dim RegEx     If IsNull(Str) Or Str="" Then Exit Function    Set RegEx=New RegExp         RegEx.IgnoreCase=True      &...
标签: Web开发
代码如下: % ' -------------------------------------------------------------- ' Match 对象 ' 匹配搜索的结果是存放在 Match 对象中,提供了对正则表达式匹配的只读属性的访问。 ' Match 对象只能通过 RegExp 对象的 Execute 方法来创建,该方法实际上返回了 Match 对象的集合。 ' 所有的 Match 对象属性都是只读的。在执行正则表...
标签: Web开发
  我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(s+cript(.+?)\/s+cript)" originCode= reg.Replace(originCode, "") reg.Pattern = "(s+tyle(.+?)\/s+tyle)" originCode= reg.Replace(originCode, "") reg.Pattern = "[^]*" origi...
标签: Web开发
function nohtml(str)  dim re  Set re=new RegExp         re.IgnoreCase =true         re.Global=True         re.Pattern="(\.[^\]*\)"     &nbs...

经验教程

639

收藏

83
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部