<a href="ftp://www.163.com/11.asp?id=111&id2=333">链接1</a>
<a href="http://www.163.com/11.asp?id=111&id2=333">链接2</a>
<a href="www.163.com/11.asp?id=111&id2=333">链接3</a>
用正则提取上面超链接地址，分别替换成
ftp://www.163.com/11.asp?id=111&id2=333 替换为 http://www.111.com/111.asp?url=ftp://www.163.com/11.asp?id=111&id2=333
http://www.163.com/11.asp?id=111&id2=333 替换为 http://www.111.com/111.asp?url=http://www.163.com/11.asp?id=111&id2=333
www.163.com/11.asp?id=111&id2=333 替换为 http://www.111.com/111.asp?url=http://www.163.com/11.asp?id=111&id2=333
下面我写的，求找错修正
Function ReplaceUrl(Url,str)
Dim reg , resultStr
if isNull(Url) then
ReplaceUrl = null
Exit Function
end if
Set reg=new RegExp
'reg.Pattern = "(http://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?)"
re.Pattern="([^(http:\/\/)])(www\.([\w-]+\.)+[\w]+(\/[\w-]+)*[\/]?([\w-]+\.[\w]+)?(\?[\w]+=[\w]+(&[\w]+=[\w]+)*)?)"
reg.Global = True '搜索匹配字串针对全部文本
re.IgnoreCase=true '忽略大小写
resultStr = reg.replace(Url,str"$1")
Set reg=nothing
ReplaceUrl = resultStr
End Function
url="<a href="http://www.163.com/11.asp?id=111&id2=333">链接1</a>"
reResponse.write ReplaceUrl(url,"http://123.com/asp.asp?url=")
%>
