function myreplace(str) newstr=str set objregEx = new RegExp objregEx.IgnoreCase = true objregEx.Global = true objregEx.Pattern = "http://(.+?)\.(jpg|gif|png|bmp)" '定義文件后綴 set matches = objregEx.execute(str) for each match in matches newstr=replace(newstr,match.value,saveimg(match.value)) next myreplace=newstr end function
function saveimg(url) temp=split(url,".") '以下是用時間與隨機數重命名文件名 randomize ranNum=int(90000*rnd)+10000 filename=year(now)month(now)day(now)hour(now)minute(now)second(now)ranNum"."temp(ubound(temp)) '文件名重命名結束 set xmlhttp=server.createobject("Microsoft.XMLHTTP") xmlhttp.open "get",url,false xmlhttp.send img=xmlhttp.ResponseBody set xmlhttp=nothing set objAdostream=server.createobject("ADODB.Stream") objAdostream.Open() objAdostream.type=1 objAdostream.Write(img) objAdostream.SaveToFile(server.mappath(savepathfilename)) objAdostream.SetEOS set objAdostream=nothing '''''''222222222''''''''''' saveimg=savepathfilename '獲取保存路徑 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(saveimg) '打開保存圖片的路徑
