实现关键字的自动链接和自动变色

blog、新闻系统里面都有一项做法，当你的文章里出现关键字时，替换为带链接的文字。

在搜索引擎里，把关键字的背景色替换，加亮显示。

这个问题困扰我许久，终于忍耐不住，在csdn高分悬赏解决(400分)，终于解决了！！！

在这里我要感谢lxrxyls(行云流水) 、感谢祖国、感谢人民、感谢爸爸妈妈、感谢cctv………………

难点其实在于多个关键字存在的时候，若后来的关键字存在html 关键代码如color href等，会导致替换结果乱掉，解决代码如下：

<%

 function ChangeColor(str,key) '自动高亮函数,str源字符串,key关键字数组
 dim temp,num,i

dim BeginSpecialChar,EndSpecialChar

BeginSpecialChar="|====|begin"    

EndSpcialChar="end====|+"
 temp=str
 num=ubound(key)
 for i=0 to num
  if key(i)<>"" then temp=replace(temp,key(i),BeginSpecialChar & key(i) & EndSpecialChar)
 next
 temp=replace(temp,BeginSpecialChar,"<font color=CC0033 style=""background-color:#ffff00"">")
 temp=replace(temp,EndSpecialChar,"</font>")
 ChangeColor=temp
end function
%>

 

csdn上相关贴地址是：

http://community.youkuaiyun.com/Expert/topic/5079/5079643.xml?temp=.7320673

http://community.youkuaiyun.com/Expert/topic/5079/5079624.xml?temp=.6197321

http://topic.youkuaiyun.com/T/20060324/11/4636902.html

ps 回答我自动链接的小天是个高人，他的skygrid很漂亮的说，可惜我愚钝，正则比较烂，也一直没有耐心深入学习下去………………