以下是网学网为您推荐的ASP-远程图片自动按文件夹上传到服务器-默飞出品，希望本篇文章对您学习有所帮助。
<html><head><meta http-equiv="content-Type" content="text/html; charset=gb2312"><title>远程<a href='http://www.myeducs.cn/Photo/tupiansucai/' title='图片' target='_blank'>图片</a>自动按文件夹上传到服务器-默飞出品</title><style type=text/css>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 }</style><body topmargin="0" bgcolor="#F9F9F9"><%''远程图片自动按文件夹上传到服务器''制作:默飞Server.ScriptTimeOut=99999savepath="upfiles" ''<a href='http://www.myeducs.cn/Photo/tupiansucai/' title='图片' target='_blank'>图片</a>保存路径,可以根据自己的需要,进行修改,如没有创建此文件夹,系统将自动创建''QQ:33224360''HOME:http://mofei.xinxiu.com''EMAIL:mofei5@yahoo.com.cn''2005-10-15''版权说明不影响资源,请保留版权信息imgpath=request("imgpath")if imgpath="" thenresponse.write "<form name=mofeiform method=post action=''''><input type=text name=imgpath size=35> <input type=submit name=Submit001 value=上传></form>在输入框中输入远程图片地址,如<a href='http://www.myeducs.cn/Photo/tupiansucai/' title='图片' target='_blank'>图片</a>不存在,<a href='http://myeducs.cn/chengxusheji/' title='程序' target='_blank'>程序</a>自动放弃本次操作.制作:默飞QQ:33224360演示:http://mofei.xinxiu.comhttp://www.dns.com.cn<b>域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天....</b>"elsefilepath02=mofeifoldfso(savepath)savepath=savepath&"\"&year(now())&month(now())filepath02=mofeifoldfso(savepath)urname01=myreplace(imgpath)end if</P><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><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 "没找到内容![返回]"response.endend ifobjAdostream.SaveToFile(server.mappath(savepath&"\"&filename))objAdostream.SetEOSset objAdostream=nothingimgpath01=savepath&"\"&filename ''返回图片路径imgpath01=replace(imgpath01,"\","/")response.write ("图片上传成功! [继续上传]") response.write ("http://www.dns.com.cn<b>域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天....</b>") ''adresponse.write ("<img src="&imgpath01&" border=0 alt=默飞制作>") ''根据你的系统需要,更改返回方式.end function</P><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><P></body></html> [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]