resaveremotefile功能的ASP实现代码查找文件的保存和更换
================================================功能名称：resaveremotefile
：查找文件保存和替换
参数
参数：URL——当然，网址
参数目录保存目录
参数：救-----是否，真的，假的
返回值：格式化后字符串
================================================
公共功能resaveremotefile（ByVal STR，一个网址，ByVal Dir，InSave）
昏暗的s_content
昏暗的重
昏暗的contentfile，ContentFileUrl
昏暗的strtempurl，strfileurl，DirTemp，PathTemp，filetemp，Tempi，TempUrlArray，arr_path
昏暗的sallowextname
sallowextname =RM | SWF
s_content = str
下次继续出错
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
再次，模式=（（SRC = | href =）（（ ）+ {，} { 1 }（sallowextname）））
集contentfile =重新执行（s_content）。
昏暗的scontenturl（），N，我重复
n = 0
每个contentfileurl在contentfile
strfileurl =替换（替换（替换（替换（contentfileurl.value，src=
如果n＝0，那么
n = n + 1
ReDim sContentUrl（N）
SContentUrl（n）= strfileurl
其他的
重复= false
我= 1，UBound（scontenturl）
如果UCase（strfileurl）= UCase（scontenturl（I））然后
重复=真
退出
最后如果
下一个
如果重复= false
n＝n＋1
ReDim Preserve sContentUrl（N）
SContentUrl（n）= strfileurl
最后如果
最后如果
下一个
如果n＝0，那么
resaveremotefile = s_content
退出功能
最后如果
对于i = 1到n
strtempurl = scontenturl（I）：strtempurl = formatremoteurl（strtempurl，URL）获取文件地址
写（strtempurl）反应。
如果救=真
arr_path =分裂（DIR， / ）
----------建筑目录
拍子= 0 UBound（arr_path）
如果时间= 0
pathtemp = arr_path（0） /
拍子= UBound（arr_path）然后
退出
其他的
pathtemp = pathtemp arr_path（拍子） /
最后如果
如果CheckDir（pathtemp）= false
如果MakeNewsDir（pathtemp）= false
savetf = false
退出
最后如果
最后如果
下一个
------------------------------------------------------
tempurlarray =分裂（strtempurl， / ）
----------检查文件是否存在。如果有C的文件名
而真正的做
filetemp = dir makerandom（5）tempurlarray（UBound（TempUrlArray））产生的随机文件名
如果CheckFile（filetemp）= false
退出
最后如果
环
-------------------------------------------------------------------
写（filetemp）反应。
如果SaveRemoteFile（filetemp，strtempurl）=真
响应。写入（保存成功）
s_content =取代（s_content，scontenturl（我），filetemp，1，1, 1）的替换地址
其他的
响应。写入（保存失败）
最后如果
其他的
s_content =取代（s_content，scontenturl（我），strtempurl，1，1, 1）的替换地址
最后如果
下一个
设置否
pictureexist =真
resaveremotefile = s_content
退出功能
端功能