两个替换文章关键字为超链接的函数

有些时候需要在文章内容里做站内链接，需要自动将某些设定的关健字转为超链接。

假设文章内容为“很多场合下需要过滤内容中的html代码，只显示纯文本，用下面的函数，可以达到效果。”需要取其中的“过滤”“HTML”、“函数”自动设为超链接，从而实现这样的效果“很多场合下需要过滤内容中的html代码，只显示纯文本，用下面的函数，可以达到效果。”

如果是站内搜索，可以用第一段函数进行整站搜索，如果是分别指到不同的网址，可以使用第二段函数。代码如下：

code1:
Function LinkStr(str) dim str_1,str_2,str_3,str_4 str_1 = "过滤,html,函数" str_2 = split(str_1,",") for each str_3 in str_2 if len(str_4)=0 then str_4=replace(str_4,str_3,"<a href="http://www.wuhane.com/tech/?key=" mce_href="http://www.wuhane.com/tech/?key=""&str_3&">"&str_3&"</a>") next LinkStr=str_4 End Function

 

code2:
Function LinkStr(str) dim str_1,str_2,str_3,str_4,str_5,str_6 str_1 = "过滤-1.htm,html-2.htm,函数-3.htm" str_2 = split(str_1,",") for each str_3 in str_2 str_5=mid(str_3,(Instr(str_3,"-")+1)) str_6=replace(str_3,("-"&str_5),"") if len(str_4)=0 then str_4=str end if str_4=replace(str_4,str_6,"<a href="&str_5&" mce_href="&str_5&">"&str_6&"</a>") next LinkStr=str_4 End Function

页面引用函数后，可以用以下代码测试：
content="很多场合下需要过滤内容中的html代码，只显示纯文本，用下面的函数，可以达到效果。" response.write LinkStr(content)

关键字在变量str_1中，多个关键字用“,”号间隔，code2中关键字和网址之间用“-”号间隔即可。