国产黄网免费视频,免费看无码自慰一区二区,西西人体444WWW高清大但

主頁 > 知識庫 > 遠程圖片自動按文件夾上傳到服務(wù)器-默飛出品

遠程圖片自動按文件夾上傳到服務(wù)器-默飛出品

<html><head><meta http-equiv="content-Type" content="text/html; charset=gb2312"><title>遠程圖片自動按文件夾上傳到服務(wù)器-默飛出品</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"><%'遠程圖片自動按文件夾上傳到服務(wù)器'制作:默飛Server.ScriptTimeOut=99999savepath="upfiles" '圖片保存路徑,可以根據(jù)自己的需要,進行修改,如沒有創(chuàng)建此文件夾,系統(tǒng)將自動創(chuàng)建'QQ:33224360'HOME:http://mofei.xinxiu.com'EMAIL:mofei5@yahoo.com.cn'2005-10-15'版權(quán)說明不影響資源,請保留版權(quán)信息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演示:http://mofei.xinxiu.com<font color=red>http://www.dns.com.cn</font><b>域名65元,空間聯(lián)系默飛可以享受八折優(yōu)惠,<font color=red>信賴</font>默飛沖天....</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)" '定義文件后綴,可以增加你需要的后綴,按規(guī)律增加.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))'文件名重命名結(jié)束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>沒找到內(nèi)容!</font>[返回]"response.endend ifobjAdostream.SaveToFile(server.mappath(savepath"\"filename))objAdostream.SetEOSset objAdostream=nothingimgpath01=savepath"\"filename '返回圖片路徑imgpath01=replace(imgpath01,"\","/")response.write ("圖片上傳成功! [繼續(xù)上傳]") response.write ("<font color=red>http://www.dns.com.cn</font><b>域名65元,空間聯(lián)系默飛可以享受八折優(yōu)惠,<font color=red>信賴</font>默飛沖天....</b>") 'adresponse.write ("<img src="imgpath01" />") '根據(jù)你的系統(tǒng)需要,更改返回方式.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需再刷新一下頁面才能執(zhí)行]

您可能感興趣的文章:

Java如何從服務(wù)器中下載圖片
Nginx服務(wù)器上搭建圖片緩存服務(wù)的基本配置解析
Android使用post方式上傳圖片到服務(wù)器的方法
Android異步上傳圖片到PHP服務(wù)器
jquery控制顯示服務(wù)器生成的圖片流
java實現(xiàn)將文件上傳到ftp服務(wù)器的方法
在windows上用nodejs搭建靜態(tài)文件服務(wù)器的簡單方法
NodeJS與HTML5相結(jié)合實現(xiàn)拖拽多個文件上傳到服務(wù)器的實現(xiàn)方法
golang實現(xiàn)http服務(wù)器處理靜態(tài)文件示例
十分鐘搞定多圖片/文件服務(wù)器

標簽：內(nèi)江懷化天津臺灣麗江成都公主嶺重慶

巨人網(wǎng)絡(luò)通訊聲明：本文標題《遠程圖片自動按文件夾上傳到服務(wù)器-默飛出品》，本文關(guān)鍵詞遠程,圖片,自動,按,文件,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。