asp中如何替换将www后面的字符替换掉!

来源：百度知道 编辑：UC知道 时间：2024/06/01 17:52:16
客户在发布信息时总喜欢留自己的网址,我想将他们输入的网址自动替换成我的网址,该怎么做请附上代码!

<%
Function RemoveHTML(str)
Dim re
Set re=New RegExp
re.Pattern="<[a|A]+[^>]*>"
re.IgnoreCase=True
re.Global=True
str=re.Replace(str,"<a href=""http://www.你的域名/"">")
Set re=Nothing
RemoveHTML=str
End Function

'测试
str = RemoveHTML(rs("content"))
response.write str
%>