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

[js]一个只删除所有font标签的正则函数
js求一个只删除所有font标签的正则函数[Ctrl+A全选注:如需引入外部Js需刷新才能执行]

正则替换字符串功能 原创
ahref="1.htm"251/a怎么用JS把251替换为spanstyle='background-color:#99FF99'251/span[Ctrl+A全选注:如需引入外部Js需刷新才能执行]

javascript 正则 判断是否是数字的脚本
不错的一个用正则检测输入的字符是否为数字的代码，也是一种并不常见的写法UntitledDocument[Ctrl+A全选注:如需引入外部Js需刷新才能执行]