sicend - 2007-10-16 09:00:00
最近不少朋友寻求sp5远程存图加水印功能，我自己搞图片新闻的大、小图远程抓图是否加水印时做了这部分，拿出来和大家共享一下。
想省事的朋友可以在三楼下载已修改好的sp5文件.
解压密码:sicend
第一步：
找到fs_inc/function.asp文件，在页首加上<!--#include file="WaterPrint_Function.asp" -->
sicend - 2007-10-16 09:04:00
第二步：
225行找到函数
'远程存图
Function ReplaceRemoteUrl(NewsContent,SaveFilePath,FunDoMain,DummyPath)
把下面几句
For Each RemoteFileurl in RemoteFile
SaveFileName = Mid(RemoteFileurl,InstrRev(RemoteFileurl,"/")+1)
Call SaveRemoteFile(SaveFilePath & "/" & SaveFileName,RemoteFileurl,1)
'Call SaveRemoteFile(DummyPath & SaveFilePath & "/" & SaveFileName,RemoteFileurl)
'tNewsContent = Replace(tNewsContent,RemoteFileurl,FunDoMain & SaveFilePath & "/" & SaveFileName)
tNewsContent = Replace(tNewsContent,RemoteFileurl,SaveFilePath & "/" & SaveFileName)
Next
换成下面几句：
For Each RemoteFileurl in RemoteFile
SaveFileName = Mid(RemoteFileurl,InstrRev(RemoteFileurl,"/")+1)
'Call SaveRemoteFile(SaveFilePath & "/" & SaveFileName,RemoteFileurl,1)
Call SaveRemoteFile(DummyPath & SaveFilePath & "/" & SaveFileName,RemoteFileurl,1)
tNewsContent = Replace(tNewsContent,RemoteFileurl,FunDoMain & SaveFilePath & "/" & SaveFileName)
'tNewsContent = Replace(tNewsContent,RemoteFileurl,SaveFilePath & "/" & SaveFileName)
Next
sicend - 2007-10-16 09:05:00
这样就可以了，文件为SP5
修改后的文件。
附件:
您所在的用户组无法下载或查看附件
lcc1969 - 2007-10-16 09:13:00
虽然不使用采集或远程存图，但也强烈支持。
kaige163 - 2007-10-16 10:17:00
这个一定要顶起哦！！！
特别 非常 感谢楼主
圈圈点点 - 2007-10-16 10:21:00
不错,支持!
楼主好人啊
sicend - 2007-10-16 10:25:00
解压密码一楼有呀！
原帖由 圈圈点点 于 2007-10-16 10:21:00 发表
解压密码是多少呢
圈圈点点 - 2007-10-16 10:30:00
看到了呢,我已经修改了
camlin - 2007-10-16 11:19:00
好东西收藏起来~~~~~~~~:)
sleepR - 2007-10-16 11:43:00
虽然暂时用不上，但是还是非常感谢LZ的作品
cyxjq - 2007-10-16 13:05:00
支持!
支持!
支持!
wh99168 - 2007-10-16 14:09:00
支持楼主
chunhuijia - 2008-3-31 15:36:00
晕死了.....密码呢?
南京么么茶 - 2008-7-21 14:41:00
貌似我修改了，不行...