<%
'asp正则表达式 替换HTML源文件里的链接地址
Function RegUrl(TheStr)
Set RegEx = New RegExp
RegEx.IgnoreCase =True
regEx.Global = True'****这一句加上是全部替换，如果不加，只替换第一个
RegEx.Pattern = "pic_list_mb\.asp\?id=(\d*)\&page=(\d*)"
RegUrl=RegEx.replace(TheStr,"pic_list_$1_$2.html")

End Function

content="<ul><li><a href=pic_list_mb.asp?id=1&page=2>音乐之声明星壁纸</a></li><li><a href=pic_list_mb.asp?id=32&page=1>音乐之声明星壁纸</a></li</ul>"
content=RegUrl(content)

response.write content
%>