28,391
社区成员
发帖
与我相关
我的任务
分享UBB如何加上超链接?
我想让HTML解释动态文本中的"http://","www."地址,就是给它加上连接,其它的任何都不解释.只解释地址.听别人说是用UBB,请问具体应该怎么做啊?谢谢
...全文
请发表友善的回复…
发表回复
unixpeter 2006-01-07
- 打赏
- 举报
帮下忙嘛
unixpeter 2006-01-07
- 打赏
- 举报
;;;;;;;来人啊
unixpeter 2006-01-07
- 打赏
- 举报
怎么用的啊,比如我的动态文本是rs("content"),那该怎么表示啊,宝贝
Onlyfu 2006-01-07
- 打赏
- 举报
function AutoUrl(str)
on error resume next
Set url=new RegExp
url.IgnoreCase =True
url.Global=True
url.MultiLine = True
url.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
url.Pattern = "^(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
set url=Nothing
AutoUrl=str
end function
这个应该就行了
on error resume next
Set url=new RegExp
url.IgnoreCase =True
url.Global=True
url.MultiLine = True
url.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
url.Pattern = "^(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
str = url.Replace(str,"$1")
url.Pattern = "(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
str = url.Replace(str,"$1")
set url=Nothing
AutoUrl=str
end function
这个应该就行了
