您现在的位置是：网站首页> 编程资料编程资料

远程图片自动按文件夹上传到服务器-默飞出品_小偷/采集_

2023-05-25 188人已围观

简介远程图片自动按文件夹上传到服务器-默飞出品_小偷/采集_

<meta http-equiv="content-Type" content="text/html; charset=gb2312"><title>远程图片自动按文件夹上传到服务器-默飞出品</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><input type="text" name="imgpath" size="35"><input type="submit" name="Submit001" value="上传">在输入框中输入远程图片地址,如图片不存在,程序自动放弃本次操作.制作:默飞QQ:33224360演示:<a href="http://mofei.xinxiu.com" target="_blank">http://mofei.xinxiu.com</a><a href="http://www.dns.com.cn" target="_blank"><font color="red">http://www.dns.com.cn</font></a><b>域名65元,空间联系默飞可以享受八折优惠,<font color="red">信赖</font><a href="http://mofei.xinxiu.com" target="_blank">默飞冲天</a>....</b>"elsefilepath02=mofeifoldfso(savepath)savepath=savepath&"\"&year(now())&month(now())filepath02=mofeifoldfso(savepath)urname01=myreplace(imgpath)end if <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没找到内容![<a href="#" onclick="history.go(-1)">返回</a>]"response.endend ifobjAdostream.SaveToFile(server.mappath(savepath&"\"&filename))objAdostream.SetEOSset objAdostream=nothingimgpath01=savepath&"\"&filename '返回图片路径imgpath01=replace(imgpath01,"\","/")response.write ("图片上传成功! [<a href="#" onclick="history.go(-1)">继续上传</a>]") response.write ("<a href="http://www.dns.com.cn" target="_blank"><font color="red">http://www.dns.com.cn</font></a><b>域名65元,空间联系默飞可以享受八折优惠,<font color="red">信赖</font><a href="http://mofei.xinxiu.com" target="_blank">默飞冲天</a>....</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></p>

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

您可能感兴趣的文章:

上一篇：ASP小偷(远程数据获取)程序的入门教程_小偷/采集_

下一篇：纯编码实现Access数据库的建立或压缩_ASP基础_

相关内容

点击排行

本栏推荐

猜你喜欢

-六神源码网