On the run!

posted @ 2008-03-29 23:03 痛哭的小強 閱讀(162) | 評論 (0) | 編輯 收藏

posted @ 2008-03-28 21:51 痛哭的小強 閱讀(145) | 評論 (0) | 編輯 收藏

posted @ 2008-03-28 10:08 痛哭的小強 閱讀(185) | 評論 (0) | 編輯 收藏

posted @ 2008-03-28 10:05 痛哭的小強 閱讀(116) | 評論 (0) | 編輯 收藏

     摘要: 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 '建立正則表達式。
regEx.Pattern = patrn '設置模式。
regEx.IgnoreCase = true '設置是否區分字符大小寫。
regEx.Global = True '設置  閱讀全文

posted @ 2008-01-25 17:43 痛哭的小強 閱讀(45) | 評論 (0) | 編輯 收藏

posted @ 2008-01-11 17:38 痛哭的小強 閱讀(46) | 評論 (0) | 編輯 收藏

posted @ 2007-12-30 22:17 痛哭的小強 閱讀(132) | 評論 (0) | 編輯 收藏

posted @ 2007-12-18 21:56 痛哭的小強 閱讀(95) | 評論 (0) | 編輯 收藏

posted @ 2007-12-17 10:54 痛哭的小強 閱讀(43) | 評論 (0) | 編輯 收藏

posted @ 2007-12-11 18:02 痛哭的小強 閱讀(43) | 評論 (0) | 編輯 收藏

posted @ 2007-12-08 20:59 痛哭的小強 閱讀(40) | 評論 (0) | 編輯 收藏