代码驿站移动版
频道导航
HTML/Xhtml
CSS
JavaScript
HTML5
PHP教程
ASP.NET
正则表达式
AJAX
ThinkPHP
Yii
MySQL
MariaDB
Oracle
MongoDB
Redis
DedeCMS
PHPCMS
帝国CMS
WordPress
Discuz
其它CMS
Zend Studio
Sublime
Notepad
Dreamweaver
Windows
Linux
Nginx
Apache
IIS
CentOS
Ubuntu
Debian
网站优化
工具资源
PHP源码
ASP.NET源码
其它源码
图标素材
按钮素材
字体素材
DedeCMS模板
帝国CMS模板
PHPCMS模板
WordPress模板
Discuz!模板
单页模板
开发软件下载
服务器软件下载
广告投放
联系我们
版权申明
软件编程
网页前端
移动开发
数据库
服务器
脚本语言
PHP代码
JAVA代码
Python代码
Android代码
当前位置:
主页
>
软件编程
>
ASP代码
>
远程图片自动按文件夹上传到服务器-默飞出品
时间:2021-06-09 08:06:20 | 栏目:
ASP代码
| 点击:次
<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需再刷新一下页面才能执行
]
您可能感兴趣的文章:
asp下过滤非法的SQL字符的函数代码
网站开发防止中文乱码需要了解的codepage的重要性小结
asp程序定义变量比不定义变量速度快一倍
asp数个使用技巧
asp实现生成由数字,大写字母,小写字母指定位数的随机数
相关文章
01-04
asp下sql和access数据库随机取10条记录的代码newid()
01-11
文件的读出 编辑 管理
12-30
asp在iis7报错行号不准问题的解决方法
11-11
再发几个ASP不错的函数
10-09
asp下为什么韩文字后面显示分号?
JQuery
VUE
AngularJS
MSSql
MySQL
MongoDB
Redis
Linux
Tomcat
Nginx
网站首页
广告投放
联系我们
版权申明
联系站长