如何实现让发表的文章中的链接地址和email自动显示成链接呢?

tmpx 2006-01-19 11:33:54
如题
...全文
161 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
tmpx 2006-01-20
  • 打赏
  • 举报
回复
up
satans18 2006-01-19
  • 打赏
  • 举报
回复
给你一个例子看~

Set re=new RegExp
re.IgnoreCase =True
re.Global=True
strContent="[fly]11111[/fly]"
re.Pattern="\[fly\](.*)\[\/fly\]"
strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
response.write strContent
newskyline 2006-01-19
  • 打赏
  • 举报
回复
用正则表达式:
ObjExp.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strOut = ObjExp.Replace(strOut,"<a target=_blank href=$1>$1</a>")
ObjExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strOut = ObjExp.Replace(strOut,"<a target=_blank href=$1>$1</a>")
ObjExp.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strOut = ObjExp.Replace(strOut,"$1<a target=_blank href=$2>$2</a>")
satans18 2006-01-19
  • 打赏
  • 举报
回复
跟ubb的一样的思路~
satans18 2006-01-19
  • 打赏
  • 举报
回复
用正则先匹配email然后替换成<a href="mailto:email">mail</a>的形式~
tmpx 2006-01-19
  • 打赏
  • 举报
回复
不懂正则表达式,是不是所有的链接都可以自动匹配?

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧