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

更新时间：2006年06月17日 00:00:00 作者：

<html><head><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><body topmargin="0" bgcolor="#F9F9F9"><%'远程图片自动按文件夹上传到服务器'制作:默飞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 "<form name=mofeiform method=post action=''><input type=text name=imgpath size=35> <input type=submit name=Submit001 value=上传></form>在输入框中输入远程图片地址,如图片不存在,程序自动放弃本次操作.制作:默飞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>
<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 "<font color=red>没找到内容!</font>[<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></body></html>

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

您可能感兴趣的文章:

远程图片自动按文件夹上传到服务器

创力采集程序用到的函数推荐
创力采集程序用到的函数推荐...
2006-09-09
asp下以Json获取中国天气网天气的代码
这两天搞个天气预报，记得以前用.net版本有种是抓取百度天气写入txt，再读取。时间久了，txt很多。感觉不是很好。
2010-07-07
用xmlhttp编写web采集程序
用xmlhttp编写web采集程序...
2006-12-12
asp实现的7xi音乐网的采集源代码
asp实现的7xi音乐网的采集源代码...
2007-03-03
asp 小偷采集程序原理与常用函数方法
采集程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻采集程序，很多都是调用了sina的新闻网页，并且对其中的html进行了一些替换，同时对广告也进行了过滤。
2009-11-11
[asp]阿里西西的alexa采集效果代码
[asp]阿里西西的alexa采集效果代码...
2007-11-11
asp代理采集的核心函数代码
如果你不会写asp采集，那么代码你可能不懂，那就不是我这次发帖所讨论了，希望对大家有用。
2008-10-10
XMLHTTP批量抓取远程资料
XMLHTTP批量抓取远程资料...
2006-09-09
用正则和xmlHttp实现的asp小偷程序
用正则和xmlHttp实现的asp小偷程序...
2007-03-03
实例讲解实现抓取网上房产信息的ASP程序
实例讲解实现抓取网上房产信息的ASP程序...
2007-03-03

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

相关文章

最新评论

大家感兴趣的内容

最近更新的内容

常用在线小工具