摘要: str="
"
response.write savepic(str)
function savepic(str)
content=str&""
regstr="src\=.+?\.(gif|jpg)"
url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","")
savepic=url
end function
Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values '建立變量。
Set regEx = New RegExp '建立正則表達(dá)式。
regEx.Pattern = patrn '設(shè)置模式。
regEx.IgnoreCase = true '設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True '設(shè)置 閱讀全文

response.write savepic(str)
function savepic(str)
content=str&""
regstr="src\=.+?\.(gif|jpg)"
url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","")
savepic=url
end function
Function RegExp_Execute(patrn, strng)
Dim regEx, Match, Matches,values '建立變量。
Set regEx = New RegExp '建立正則表達(dá)式。
regEx.Pattern = patrn '設(shè)置模式。
regEx.IgnoreCase = true '設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True '設(shè)置 閱讀全文
posted @ 2008-01-25 17:43 痛哭的小強(qiáng) 閱讀(45) | 評(píng)論 (0) 編輯 |