asp替换和保存远程图片的实现代码

通过ASP实现功能置换，节省远程图像，完成图像，提取图像的自动采集功能，自动重复图片判断功能，链接路径的智能分析，并转化为相应的图片地址存储在你指定的网站目录，我们可以在编辑器的后台使用这个功能，当你复制包含图片的内容，代码会自动帮你上传的照片。同时，此代码也在收集程序的重要处理函数，函数的代码如下：




功能replacesaveremotefile（建设，strinstalldir，strchanneldir，SaveTf，TistUrl）
如果建设=假美元$ 或建设为strinstalldir =或然后strchanneldir =
replacesaveremotefile =约束
退出功能
最后如果
昏暗的tempstr，tempstr2，tempstr3，Re，比赛，比赛，Tempi，TempArray，temparray2
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
RE
集比赛= re.execute（建设）
每场比赛的每场比赛
如果TempStr <> 然后
tempstr = tempstr数组$ $ 匹配。值
其他的
tempstr = match.value
最后如果
下一个
如果TempStr <> 然后
temparray =分裂（tempstr，数组$ $ ）
tempstr =
拍子= 0 UBound（temparray）
RE。（GIF JPG BMP | | | JPEG | PSD | PNG | SVG | DXF | WMF | TIFF）
集比赛= re.execute（TempArray（Tempi））
每场比赛的每场比赛
如果TempStr <> 然后
tempstr = tempstr数组$ $ 匹配。值
其他的
tempstr = match.value
最后如果
下一个
下一个
最后如果
如果TempStr <> 然后
模式
tempstr = re.replace（tempstr，）
最后如果
设置匹配=无
设置否
如果tempstr = 或IsNull（tempstr）=真
replacesaveremotefile =约束
退出功能
最后如果
tempstr =取代（tempstr，
tempstr =取代（tempstr，、）
tempstr =取代（tempstr，
昏暗的remotefileurl，SavePath，PathTemp，DtNow，strfilename，strfiletype，arrsavefilename，RanNum，arr_path
dtnow =现在（）
如果SaveTf真的那么
保存路径= strchanneldir / 年（DtNow）右（0 月（dtnow），2） /
response.write链接路径：保存路径
arr_path =分裂（SavePath， / ）
pathtemp =
拍子= 0 UBound（arr_path）
如果时间= 0
pathtemp = arr_path（0） /
拍子= UBound（arr_path）然后
退出
其他的
pathtemp = pathtemp arr_path（拍子） /
最后如果
如果CheckDir（pathtemp）= false
如果MakeNewsDir（pathtemp）= false
savetf = false
退出
最后如果
最后如果
下一个
最后如果
摆脱重复的画面
temparray =分裂（tempstr，数组$ $ ）
tempstr =
拍子= 0 UBound（temparray）
如果仪器（1例（tempstr），1例（temparray（Tempi）））＜1
tempstr = tempstr数组$ $ temparray（拍子）
最后如果
下一个
tempstr =右（tempstr，Len（TempStr）- 7）
temparray =分裂（tempstr，数组$ $ ）
转换相对图片地址
tempstr =
拍子= 0 UBound（temparray）
tempstr = tempstr数组$ $ definiteurl（TempArray（拍子），TistUrl）
下一个
tempstr =右（tempstr，Len（TempStr）- 7）
tempstr =取代（tempstr，CHR（0），）
temparray2 =分裂（tempstr，数组$ $ ）
tempstr =
图片替换/保存
集重=新的正则表达式
re.ignorecase =真
重复全局=真的
拍子= 0 UBound（temparray2）
remotefileurl = temparray2（拍子）
如果RemoteFileUrl <>假美元$ 和savetf =真正的then'save图片
arrsavefilename =分裂（remotefileurl，，）
strfiletype = 1例（arrsavefilename（UBound（arrsavefilename）））的文件类型
如果strfiletype =，ASP，或strfiletype =，ASA，或strfiletype =，ASPX，或者，strfiletype =，ASPX。
uploadfiles =
replacesaveremotefile =约束
退出功能
最后如果

随机化
rannum = int（900 * Rnd）+ 100
strfilename =年（DtNow）右（0 月（dtnow），2）右（0 的日子（DtNow），2）右（0小时（dtnow），2），（0）
再次，模式= temparray（拍子）
如果SaveRemoteFile（SavePath strFileName，remotefileurl）=真
********************************
pathtemp =保存路径strfilename
建筑= re.replace（建设、PathTemp）
再次，模式= strinstalldir strchanneldir /
uploadfiles = uploadfiles| （保存路径重新更换strfilename，）
其他的
pathtemp = remotefileurl
建筑= re.replace（建设、PathTemp）
uploadfiles = uploadfiles|remotefileurl
最后如果
ElseIf RemoteFileurl的< >假美元$ 和savetf =假then'do不保存图片
再次，模式= temparray（拍子）
建筑= re.replace（建设、RemoteFileUrl）
uploadfiles = uploadfiles|remotefileurl
最后如果
下一个
设置否
如果UploadFiles <> 然后
uploadfiles =右（uploadfiles，Len（uploadfiles）- 1）
最后如果
replacesaveremotefile =约束
端功能


函数参数说明：

建设：一个字符串替换

参数：savetf：是否保存文件，虚假不救，真是救了

参数：tisturl：当前的Web地址

以上是asp替换，保存远程图片功能代码，希望对大家有所帮助。