<%
'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號