文章正文

有什麽办法把发布的通知中的网址或邮件地址,显示时自动把它们变为可链接的?

类型：转载责任编辑：asp.net 日期：2007/05/23

热门软件下载：

小妹正在用asp做一个通知发布,其内容保存到access中去.简单,都已实现了
但要求若通知内容中有网址或邮件地址,当打开网页查看通知内容时可以直接点击网址或邮件地址.
如何实现啊?各位帮帮忙啦

网友回答：

发表者：tpf9000

<a href="http://<%=rs("网址")%>/" target="_blank">http;//<%=rs("网址")%></a>
不可以吗，我没试过

发表者：777dragon

this ?

Function autoUrl(strText)
On Error Resume Next
Set url=new RegExp
url.IgnoreCase =True
url.Global=True
url.MultiLine = True
url.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
strText = url.Replace(strText,"[url=$1]$1[/url]")
url.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
strText = url.Replace(strText,"[url=$1]$1[/url]")
url.Pattern = "^(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)"
strText = url.Replace(strText,"[url=http://$1]$1[/url]")
url.Pattern = "(www.[A-Za-z0-9\./=\?%\-&_~`@:+!]+)$"
strText = url.Replace(strText,"[url=http://$1]$1[/url]")
Set url=Nothing
autoUrl=strText
End Function

发表者：dorryyang

我明白你的意思，如果你写入内容的时候有一个email地址在context中
似乎是没有办法把确切的email地址从context中提取出来
除非你在输入内容的时候就用ubb之类的已经把连接写在context中了

发表者：rainxiang

可以在保存到数据库前将url或者email前后分别加接个特定字符就可以了。
然后发布的时候就用上边那位大哥个的ubb来替换

发表者：Swanzy

找了很久啦，终于找到啦。
分都要给我哦，呵呵。

发表者：eglic

<%
Dim re,str
str="看电影mms://ww.x.com测试一下www.xxx.net.cn我的网站"
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(([a-z0-9\-]+[\.])+(com|cn|net|hk|tw|tv|info|org))"
str=re.replace(str,"http://$1")
re.Pattern="((http|https|mms|rstp|telnet|ftp|)(\:\/\/))((http|https|mms|rstp|telnet|ftp|)(\:\/\/))*"
str=re.replace(str,"$1")
re.Pattern="(((http|https|mms|rstp|telnet|ftp|)(\:\/\/))([a-z0-9\-]+[\.])+(com|cn|net|hk|tw|tv|info|org))"
str=re.Replace(str,"<a href=""$1"" target=""_blank"">$1</a>")
Response.Write str
%>
邮件连接等有空再写吧

热门推荐笔记本： IBM笔记本