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(savepath&filename)) objAdostream.SetEOS set objAdostream=nothing '''''''222222222''''''''''' saveimg=savepath&filename '获取保存路径 Dim Jpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.Open Server.MapPath(saveimg) '打开保存图片的路径
