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:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1505
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭