远程图片自动按文件夹上传到服务器-默飞出品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.comhttp://.cn域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天....") 'adresponse.write ("") '根据你的系统需要,更改返回方式.end function

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%>

[Ctrl+A 全选 注:引入外部Js需再刷新一下页面才能执行]