<%
'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
%>
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
苏公网安备 32070502010230号