帖子水印防复制插件

蓝雨

注意默认只对帖子主题中有[原创]字样的帖子添加水印。

添加的水印在浏览帖子的时候是看不出来的，只有复制的时候会体现效果

安装方法：
(也可使用本站已经为您修改好的dispbbs.asp TopicOther.asp post.asp文件)

1/
打开 dispbbs.asp

查找：

下一行添加

查找：248行左右
\'Ubb转换
If InStr(Ubblists,\",39,\") > 0 Then
Node.selectSingleNode(\"@body\").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
Else
Node.selectSingleNode(\"@body\").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)

在 If InStr(Ubblists,\",39,\") > 0 Then 之前添加一行
postbody=htmlencode2(postbody,Topic,UserName)

打开 TopicOther.asp

1/ 查找：

下一行添加

查找：536行左右

ReplyID_a=Sql(11,i)
AnnounceID_a=Sql(11,i)
RootID_a=Sql(12,i)
Templist=Templist&template.html(3)
Templist=Replace(Templist,\"{$username}\",username)
Templist=Replace(Templist,\"{$dateandtime}\",Sql(2,i))
Templist=Replace(Templist,\"{$topic}\",Dvbbs.HtmlEncode(Sql(1,i)))
Templist=Replace(Templist,\"{$body}\",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1)))

在
ReplyID_a=Sql(11,i)
之前添加
SQL(3,i)=htmlencode2(SQL(3,i),Topic,UserName)

打开 Post.asp
查找

下一行添加

查找：528行左右
If InStr(Ubblists,\",39,\") > 0 Then
TempStr2 = Replace(TempStr2,\"{$body}\",dv_ubb.Dv_UbbCode(Rs(\"body\"),PostUserGroup,1,0))
Else
TempStr2 = Replace(TempStr2,\"{$body}\",dv_ubb.Dv_UbbCode(Rs(\"body\"),PostUserGroup,1,1))
End If
End If
TempStr2 = Replace(TempStr2,\"{$topic}\",Dvbbs.HtmlEncode(Rs(\"Topic\")))
TempStr3 = TempStr3 & TempStr2

在
TempStr2 = Replace(TempStr2,\"{$topic}\",Dvbbs.HtmlEncode(Rs(\"Topic\")))
之前添加
TempStr2=htmlencode2(TempStr2,Topic,UserName)

2/ 复制文件
解压缩 hywq_nocopy.asp 到 论坛目录\\Dv_plus 中

3/ 修改文件

打开 hywq_nocopy.asp
修改第4行的site=\"sitename\" 中的sitename 为你的站点名称

对asp不了解的用户请不要随意修改本插件，如果因修改错误造成无法运行请重新下载文件覆盖

1/ 如果您想对所有帖生效请对这句
if Instr(Topic,\"[原创]\")=0 or not original then
删除[原创]保留引号
即 if Instr(Topic,\"\")=0 or not original then

2/ 变量i 控制添加乱码字符的数量，修改for i=0 to 20即可，但不要填写过大的数值，否则会给服务器带来负担

3/ 变量mark 控制要替换乱码的标记，添加更多的case 语句即可，修改之后一定要更改lop的循环次数，否则不会生效

4/ 要定义显示版权声明文字的样式,请修改

中相关内容

游客，如果您要查看本帖隐藏内容请回复