為您找到相關(guān)結(jié)果83個
ReplaceSaveRemoteFile 替換、保存遠(yuǎn)程圖片 的代碼_應(yīng)用技巧_腳本之家
ReplaceSaveRemoteFile=ConStr Exit function End if TempStr=Replace(TempStr,"""","") TempStr=Replace(TempStr,"'","") TempStr=Replace(TempStr," ","") Dim RemoteFileurl,SavePath,PathTemp,DtNow,strFileName,strFileTyp
www.dbjr.com.cn/article/112...htm 2025-6-8
ASP保存遠(yuǎn)程圖片到本地 同時取得第一張圖片并創(chuàng)建縮略圖的代碼_應(yīng)用...
Call SaveRemoteFile(SaveFileName,RemoteFileurl) ConStr=Replace(ConStr,TempArray(Tempi),SaveFileName) ElseIf RemoteFileurl<>"$False$" and SaveTf=False Then'不保存圖片 SaveFileName=RemoteFileUrl ConStr=Replace(ConStr,TempArray(Tempi),SaveFileName) End If If RemoteFileUrl<>"$False$" Then If U...
www.dbjr.com.cn/article/160...htm 2025-5-28
asp下實(shí)現(xiàn)替換遠(yuǎn)程文件為本地文件并保存遠(yuǎn)程文件的代碼_應(yīng)用技巧_腳本...
For Each RemoteFileurl in RemoteFile SaveFileType = Replace(Replace(RemoteFileurl,"/", "a"), ":", "a") arrSaveFileName = Right(SaveFileType,12) sSaveFilePaths=sSaveFilePath & "/" SaveFileName = sSaveFilePaths & arrSaveFileName Call SaveRemoteFile(SaveFileName, RemoteFileurl) s_C...
www.dbjr.com.cn/article/74...htm 2025-5-27
asp常用函數(shù)集合,非常不錯以后研究_應(yīng)用技巧_腳本之家
ReplaceRemoteUrl = NewFileName & "|" & s_Content End Function Sub SaveRemoteFile(s_LocalFileName,s_RemoteFileUrl) Dim Ads,Retrieval,GetRemoteData On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get",s_RemoteFileUrl,False,"","" ...
www.dbjr.com.cn/article/13403_a...htm 2025-6-11
獲取遠(yuǎn)程flash并保存到本地_小偷/采集_腳本之家
Function SaveRemoteFile(s_LocalFileName, s_RemoteFileUrl) Dim Ads, Retrieval, GetRemoteData Dim bError bError = False SaveRemoteFile = False On Error Resume Next Set Retrieval = Server.CreateObject("Msxml2.ServerXMLHTTP") With Retrieval ...
www.dbjr.com.cn/article/48...htm 2025-6-8
VBS調(diào)用Photoshop批量生成縮略圖的代碼_vbs_腳本之家
smallPic = Replace(Mid(objImgs(i).src, InStrRev(objImgs(i).src, "/")+1), "jpg", "gif") strCode = strCode + objImgs(i).src + "@@@/small/" + smallPic + "@@@" + arrTitles(i) SaveRemoteFile objImgs(i).src Next ...
www.dbjr.com.cn/article/447...htm 2013-12-21
用asp+xmlhttp編寫web采集程序_小偷/采集_腳本之家
SaveFileName = RemoteFileUrl.SubMatches(4) Call Save2File(myHttpGet(RemoteFileUrl,False),sSavePath&"/"&SaveFileName,False,True) sContent=Replace(sContent,RemoteFileUrl,sPreceding&SaveFileName) Next ProcessRemoteUrl=sContent End Function
www.dbjr.com.cn/article/90...htm 2025-6-3
PHPCMS 使用心得與技巧,以及小BUG的糾正_phpcms_CMS教程_腳本之家
文件:/spider/include/get_remotefiles.func.php 函數(shù):do_saveremotefiles 修改函數(shù)中以下兩個變量;以下是我修改后的結(jié)果,保存路徑為“uploadfile/年/月/日/”: 復(fù)制代碼 代碼如下: $filepath = PHPCMS_PATH . $uploaddir . '/' . date('Y/m/d') . '/'; ...
www.dbjr.com.cn/cms/387...html 2025-5-27
利用xmlhttp和adodb.stream加緩存技術(shù)下載遠(yuǎn)程Web文件_小偷/采集_腳...
str = Replace(str,"/","") str = replace(str,vbcrlf,"") GetFileName = str End Function sub SaveFile(str,fName) '---本函數(shù)為將流內(nèi)容存盤的函數(shù)--- 'on error resume next Set objStream = Server.CreateObject("ADODB.Stream") '--...
www.dbjr.com.cn/article/...htm 2025-6-9
小偷&小偷入庫&采集入庫_小偷/采集_腳本之家
str = replace(str,vbcrlf,"") GetFileName = str End Function sub SaveFile(str,fName) '---本函數(shù)為將流內(nèi)容存盤的函數(shù)--- 'on error resume next Set objStream = Server.CreateObject("ADODB.Stream") '---建立ADODB.Stream對象,必須要ADO 2.5以上版本--- objStream...
www.dbjr.com.cn/article/4...htm 2006-7-21