高兴!解决了ASP中多个特定字符替换为不同链接的问题

idcbe.com

一直都想在文章正文中把一些SEO的关键词自动替换为链接,因为看了个小偷程序,觉得可以借用,初步设想用replace语句实现,但是昨天晚上试了一个晚上都没试成功,直至在睡梦中才恍然大悟,想到了解决方法

其实方法很简单,只是对语法不熟悉,有错误都不知道,才弄得那么辛苦~~~

方法可能很多,每个人的做法也不一样,现在把我的方法公开予大家分享:

<%
'程序作者:edwin,http://edwin.jkqun.com
Function  Change2Link(strContent)'替换关键词为链接
Dim OutContent,strLink,getLinkStr,getLink,LinkStr
OutContent = strContent
strLink="广州,<a href=""http://www.dayoo.com/"">广州</a>|深圳,<a href=""http://www.sznews.com/"">深圳</a>|珠海,<a href=""http://www.zh-hr.com/"">珠海</a>" '关键词组,用"|"分隔组,用","分割关键词和替换的链接代码
getLinkStr = Split(strLink, "|") '分离组
For i = LBound(getLinkStr) To UBound(getLinkStr) Step 1
  getLink=getLinkStr(i)
  LinkStr = Split(getLink, ",") '分离链接词和代码
  OutContent = replace(OutContent,LinkStr(LBound(LinkStr)),LinkStr(UBound(LinkStr)),1,1)
Next
Change2Link=OutContent
End  Function
%> 

引用:<%=Change2Link(rs("Content"))%>



[本日志由 edwin 于 2009-06-08 02:59 PM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: ASP 字符 替换 链接 难题
评论: 0 | 引用: 0 | 查看次数: 3741
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 50 字 | UBB代码 关闭 | [img]标签 关闭
idcbe.com