时间:2021-05-28
1、将下面的文本文件下载,并将.TXT改为remote.asp,里面有具体设置方法
复制代码 代码如下:
<%
'添加资源时是否保存远程图片
ConstsSaveFileSelect=True
'远程图片保存目录,结尾请不要加“/”
ConstsSaveFilePath="/images/News"
'远程图片保存类型
ConstsFileExt="jpg|gif|bmp|png"
'/////////////////////////////////////////////////////
'作用:替换字符串中的远程文件为本地文件并保存远程文件
'参数:
'sHTML:要替换的字符串
'sSavePath:保存文件的路径
'sExt:执行替换的扩展名
FunctionReplaceRemoteUrl(sHTML,sSaveFilePath,sFileExt)
Dims_Content
s_Content=sHTML
IfIsObjInstalled("Microsoft.XMLHTTP")=Falsethen
ReplaceRemoteUrl=s_Content
ExitFunction
EndIf
Dimre,RemoteFile,RemoteFileurl,SaveFileName,SaveFileType,arrSaveFileNameS,arrSaveFileName,sSaveFilePaths
Setre=newRegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="((http|https|ftp|rtsp|mms):(\/\/|\\\\){1}((\w)+[.]){1,}(net|com|cn|org|cc|tv|[0-9]{1,3})(\S*\/)((\S)+[.]{1}("&sFileExt&")))"
SetRemoteFile=re.Execute(s_Content)
ForEachRemoteFileurlinRemoteFile
SaveFileType=Replace(Replace(RemoteFileurl,"/","a"),":","a")
arrSaveFileName=Right(SaveFileType,12)
sSaveFilePaths=sSaveFilePath&"/"
SaveFileName=sSaveFilePaths&arrSaveFileName
CallSaveRemoteFile(SaveFileName,RemoteFileurl)
s_Content=Replace(s_Content,RemoteFileurl,SaveFileName)
Next
ReplaceRemoteUrl=s_Content
EndFunction
'////////////////////////////////////////
'作用:保存远程的文件到本地
'参数:LocalFileName------本地文件名
'RemoteFileUrl------远程文件URL
'返回值:True----成功
'False----失败
SubSaveRemoteFile(s_LocalFileName,s_RemoteFileUrl)
DimAds,Retrieval,GetRemoteData
OnErrorResumeNext
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"Get",s_RemoteFileUrl,False,"",""
.Send
GetRemoteData=.ResponseBody
EndWith
SetRetrieval=Nothing
SetAds=Server.CreateObject("Adodb.Stream")
WithAds
.Type=1
.Open
.WriteGetRemoteData
.SaveToFileServer.MapPath(s_LocalFileName),2
.Cancel()
.Close()
EndWith
SetAds=nothing
EndSub
'////////////////////////////////////////
'作用:检查组件是否已经安装
'参数:strClassString----组件名
'返回值:True----已经安装
'False----没有安装
FunctionIsObjInstalled(s_ClassString)
OnErrorResumeNext
IsObjInstalled=False
Err=0
DimxTestObj
SetxTestObj=Server.CreateObject(s_ClassString)
If0=ErrThenIsObjInstalled=True
SetxTestObj=Nothing
Err=0
EndFunction
%>
2、调用方法:
<!--#includefile="remote.asp"-->
文章入库的地方改成下面的代码
复制代码 代码如下:
IfsSaveFileSelect=TrueThen
Rs("Content")=ReplaceRemoteUrl(ArticleContent,sSaveFilePath,sFileExt)
Else
Rs("Content")=ArticleContent
EndIf
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
本文为大家分享了FTP远程文件管理模块的实现方法,供大家参考,具体内容如下首先看一下界面:1、远程FTP服务器端的文件列表的显示将远程的当前目录下所有文件显示出
我在使用远程服务器时,无法将本地文件复制到远程主机上,也就是说,我在本地电脑上的文件右键点击复制,在远程电脑上的文件夹里面右键再点击,根本就没有粘贴这个选项,很
站点一般包括本地站点(即本地电脑上的一组文件)和远程站点(即远程Web服务器上的一组文件)。下面以创建本地站点为例,介绍具体操作。软件名称:AdobeDream
修改字段找到以下代码关键字替换 远程保存图片(替换成关键字替换 远程保存图片(
HTML运行原理:1.本地运行:html文件用浏览器打开2.远程访问运行:本地浏览器访问远程服务器(tomcal)网页的文件名最好不要有中文,因为将来网页文件都