将远程文件替换为本地文件并将远程文件保存在asp之下的代码

1。下载下面的文本文件，并改变the.txt到remote.asp。它有特定的设置。
复制代码代码如下所示：
<
在添加资源时是否保存远程图片
const ssavefileselect =真

远程图片保存目录，结束请不要添加/
const ssavefilepath = /图片/新闻

远程图片保存类型
const sfileext =| GIF JPG BMP PNG | |

函数：将本地文件中的远程文件替换为本地文件并保存远程文件
参数：
把一个字符串替换：
ssavepath：保存文件的路径
祷告：执行扩展更换
功能replaceremoteurl（shtml，ssavefilepath，sfileext）
昏暗的s_content
s_content = shtml
如果isobjinstalled（微软。XMLHTTP ）= false
replaceremoteurl = s_content
退出功能
最后如果

暗淡的，远程文件，remotefileurl，SaveFileName，SaveFileType，arrsavefilenames，arrsavefilename，ssavefilepaths
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
再次，模式=（（HTTP | HTTPS | FTP | RTSP |（MMS）： / / | ）{ 1 }（（ w）{ 1，+ {。}）}（净| COM | CN | org | CC |电视| { 0-9 } { }（1,3） * /）（（）+ {，} { 1 }（sfileext ）））
设置远程文件=重新执行（s_content）。
每个remotefileurl在远程文件
savefiletype =替换（替换（remotefileurl， /
arrsavefilename =正确的（SaveFileType，12）
ssavefilepaths = ssavefilepath /
savefilename = ssavefilepaths arrsavefilename
电话saveremotefile（savefilename，RemoteFileurl）
s_content =取代（s_content，remotefileurl，SaveFileName）
下一个
replaceremoteurl = s_content
端功能

作用：将远程文件保存到本地
参数：保存本地的文件名-本地文件名
remotefileurl ---远程文件的URL
回报值：真的---成功
错误---失败
Sub SaveRemoteFile（s_localfilename，s_remotefileurl）
昏暗的广告、检索、执行GetRemoteData
下次继续出错
设置检索= server.createobject（微软。XMLHTTP ）
与检索
打开获取
。发送
responsebody执行GetRemoteData =。
结束
设置检索=无
设置广告= server.createobject（ADODB。流）
与广告
类型= 1
开。
写执行GetRemoteData。
SaveToFile Server.MapPath（s_localfilename），2。
取消（）
关闭（）
结束
设置广告
端子

作用：检查组件是否已安装。
参数：strclassstring ---组件名称
返回值：真的-已经安装
错误---不安装
功能isobjinstalled（s_classstring）
下次继续出错
isobjinstalled = false
错误＝0
昏暗的xtestobj
集xtestobj = server.createobject（s_classstring）
0如果=犯错然后isobjinstalled =真
集xtestobj =没有
错误＝0
端功能
%>

2。调用方法：

将文章存储的位置改为以下代码
复制代码代码如下所示：
如果ssavefileselect =真
Rs（内容）= replaceremoteurl（articlecontent，ssavefilepath，sfileext）
其他的
Rs（内容）= articlecontent
最后如果