<%
'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
%>
您發(fā)布的評論即表示同意遵守以下條款:
一、不得利用本站危害國家安全、泄露國家秘密,不得侵犯國家、社會、集體和公民的合法權(quán)益;
二、不得發(fā)布國家法律、法規(guī)明令禁止的內(nèi)容;互相尊重,對自己在本站的言論和行為負責(zé);
三、本站對您所發(fā)布內(nèi)容擁有處置權(quán)。
蘇公網(wǎng)安備 32070502010230號