asp自动识别链接地址和邮箱地址并显示

<%
Function autoLink(str)
str=" "&str
Set re=new regExp '建立正则表达式对象regular e­xpression
re.IgnoreCase=true '忽略大小写
re.Global=true '搜索匹配字串针对全部文本
'查找带协议前缀的链接
re.Pattern="(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
str=re.replace(str,"$1")
'查找不带协议前缀的链接
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)*[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"
str=re.replace(str,"$1$2")
'查找邮件链接
re.Pattern="(mailto:)?([\w]+@([\w-]+\.)+[\w]+)"
str=re.replace(str,"$1$2")
Set re=nothing
autolink=trim(str)
End Function
PP="HTTP://77YA.COM是我的网站，她的全称是旗旗芽（www.77ya.com），输入网址：http://www.77ya.com/就可以访问我的网站。
对了我的电子邮件是：fengying789@126.com，希望认识更多朋友哦！"
response.Write autoLink(PP)
%>

上一篇: ASP定时生成静态页(HTML)-按时间段定时生成静态页
下一篇: asp在线人数
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: