远程图片自动按文件夹上传到服务器-默飞出品

<title>远程图片自动按文件夹上传到服务器-默飞出品</title>a { text-decoration: none; color: blue }a:hover { text-decoration: underline }body { scrollbar-base-color: #F8F8F8; scrollbar-arrow-color: #698CC3; font-size: 12pt; background-color: #ffffff }<%\'远程图片自动按文件夹上传到服务器\'制作:默飞Server.ScriptTimeOut=99999savepath=\"upfiles\" \'图片保存路径,可以根据自己的需要,进行修改,如没有创建此文件夹,系统将自动创建\'QQ:33224360\'HOME:http://mofei.xinxiu.com\'EMAIL:mofei5@yahoo.com.cn\'2005-10-15\'版权说明不影响资源,请保留版权信息imgpath=request(\"imgpath\")if imgpath=\"\" thenresponse.write \" 在输入框中输入远程图片地址,如图片不存在,程序自动放弃本次操作.制作:默飞QQ:33224360演示:http://mofei.xinxiu.com<font color="red">http://www.dns.com.cn</font><b>域名65元,空间联系默飞可以享受八折优惠,<font color="red">信赖</font>默飞冲天….</b>\”elsefilepath02=mofeifoldfso(savepath)savepath=savepath&\”\\\”&year(now())&month(now())filepath02=mofeifoldfso(savepath)urname01=myreplace(imgpath)end if</P><br /> <P>function myreplace(str)newstr=strset objregEx = new RegExpobjregEx.IgnoreCase = trueobjregEx.Global = trueobjregEx.Pattern = \”http://(.+?)\\.(jpg|gif|png|bmp)\” \’定义文件后缀,可以增加你需要的后缀,按规律增加.set matches = objregEx.execute(str)for each match in matchesnewstr=replace(newstr,match.value,saveimg(match.value))nextmyreplace=newstrend function</P><br /> <P>function saveimg(url)temp=split(url,\”.\”)filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&\”.\”&temp(ubound(temp))\’文件名重命名结束set xmlhttp=server.createobject(\”Microsoft.XMLHTTP\”)xmlhttp.open \”get\”,url,falsexmlhttp.sendimg=xmlhttp.ResponseBodyset xmlhttp=nothingset objAdostream=server.createobject(\”ADODB.Stream\”)objAdostream.Open()objAdostream.type=1objAdostream.Write(img)if objAdostream.size<200 thenresponse.write \"<font color="red">没找到内容!</font>[返回]\”response.endend ifobjAdostream.SaveToFile(server.mappath(savepath&\”\\\”&filename))objAdostream.SetEOSset objAdostream=nothingimgpath01=savepath&\”\\\”&filename \’返回图片路径imgpath01=replace(imgpath01,\”\\\”,\”/\”)response.write (\”图片上传成功! [继续上传]\”) response.write (\”<font color="red">http://www.dns.com.cn</font><b>域名65元,空间联系默飞可以享受八折优惠,<font color="red">信赖</font>默飞冲天….</b>\”) \’adresponse.write (\”<img src="https://www.jb51.net/article/&imgpath01&" border="0" alt="默飞制作">\”) \’根据你的系统需要,更改返回方式.end function</P><br /> <P>Function mofeifoldfso(mpath)Set fso = Server.CreateObject(\”Scripting.FileSystemObject\”)if not fso.FolderExists(server.Mappath(mpath)) then fso.Createfolder(server.mappath(mpath))set fso=nothingEnd Function%></P><br /> <P>
[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]