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

一直都想在文章正文中把一些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: ASPASP 字符字符 替换替换 链接链接 难题难题