asp想给指定的关键词添加超链接，其实就是替换。青岛星网下面跟大家分享一个替换函数。

<%
'=========================================
'参数说明:
'str 原字符串
'patrn 要替换的字符串（正则表达式）
'replStr 要替换成的字符串
'Ignor 是否区分大小写(1不区分,0区分)
'=========================================
Function ReplaceReg(str,patrn,replStr,Ignor)
Dim regEx '建立变量
If Ingor=1 Then Ingor=true else Ingor=false
Set regEx = New RegExp '建立正则表达式
regEx.Pattern = patrn '设置模式
regEx.IgnoreCase = Ignor '设置是否区分大小写
regEx.Global=True
ReplaceReg = regEx.Replace(str,replStr) ' 执行替换
End Function
'把www.xxx.com自动替换为：<a href=""http://www.qdxw.net"">www.qdxw.net</a>
Response.Write(ReplaceReg("青岛星网www.xxx.com","www\.xxx\.com","<a href=""http://www.qdxw.net"">www.qdxw.net</a>",1))
%>