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

站长资源 2024/12/24 佚名

80 1538 80

白云岛资源网 Design By www.pvray.com

<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 "在输入框中输入远程图片地址,如图片不存在,程序自动放弃本次操作.制作:默飞QQ:33224360演示:http://mofei.xinxiu.comhttp://www.dns.com.cn域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天...."elsefilepath02=mofeifoldfso(savepath)savepath=savepath&"\"&year(now())&month(now())filepath02=mofeifoldfso(savepath)urname01=myreplace(imgpath)end if 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 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域名65元,空间联系默飞可以享受八折优惠,信赖默飞冲天....") 'adresponse.write ("<a href="javascript:;" onclick="showimg('/UploadFiles/2021-04-02/&imgpath01&');"><img src="/UploadFiles/2021-04-02/&imgpath01&" alt="远程图片自动按文件夹上传到服务器-默飞出品" onmousewheel="return bbimg(this)" onload="javascript:resizepic(this)" border="0"/></a>") '根据你的系统需要,更改返回方式.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%> </body></html>
[Ctrl+A 全选注:引入外部Js需再刷新一下页面才能执行]

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

白云岛资源网 Design By www.pvray.com

广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！

白云岛资源网 Design By www.pvray.com

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

暂无评论...

www.pvray.com 白云岛资源网

39,976影音资源

44,792技术资源

21,817软件资源

651,128站长资源

最新文章

群星《奔赴！万人现场第2期》[FLAC/分轨][5

2024/12/24

群星《奇妙浪一夏 (上海迪士尼度假区音乐)》

2024/12/24

群星《奇妙浪一夏 (上海迪士尼度假区音乐)》

2024/12/24

【古典音乐】詹姆斯·高威《季节》1993[WAV+

2024/12/24

贝拉芳蒂《卡里普索之王》SACD[WAV+CUE]

2024/12/24

一句话新闻

一口气升级7个大模型SaaS应用，百度智能云：突出一个“开箱即用” - 2024/12/24

这一波大模型产业落地浪潮里，不少企业其实处在 “干瞪眼“的状态。

一种情况是，很多大模型产品看得见却摸不着，在台上一个个遥遥领先——今天Sora技精四座，明天英伟达的机器人又赢得满堂彩，可是到了台下一问：啥时候能用上啊？答曰：遥遥无期。

另一种情况是，企业想用上大模型，却又难免瞻前顾后——既要考虑场景融合，又得兼顾安全性，还要考虑打通现有系统，再加上各种部署成本和繁琐的采购流程……最后只能拂袖：罢了，再等等吧。

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

纯编码实现Access数据库的建立或压缩

ASP小偷(远程数据获取)程序的入门教程

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

稳了！魔兽国服回归的3条重磅消息！官宣时间再确认！

友情链接