检测用户输入的网址,让后转化为HTML
比如我输入了 “我爱http://www.baidu.com和www.”现在要转换为
我爱<a href="http://www.baidu.com">http://www.baidu.com</a>和<a href="http://www.
上面只是例子,意思就是我检测用户输入的网址,让后转化为HTML
下面的是我写的,望有高手指点,用JAVASCRIPT在前台转化也可以
Function IsValidUrl(str)
Dim regEx
Dim result
Set regEx = New RegExp
regEx.Pattern = "http(s)?://([\w-]+\.)+[\w-]+(/[\w-./?%&=]*)?"
regEx.global = true
regEx.IgnoreCase = False
Set Matches = regEx.Execute(str)
For Each Match in Matches
str=replace(str,Match.value,"<a href="&Match.value&">"&Match.value&"</a>")
Next
IsValidUrl=str
End Function
搜索更多相关主题