dim a,re
a="<a href='http://panda.www.net.cn/cgi-bin/Whois.cgi?domain=b2b&cn=yes&referer='>b2b.cn</a>"
Set re = New RegExp
re.Pattern ="<a (.*)>(.*)<\/\a>"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
a = re.Replace(a,"$2")
Response.Write a
|