ITPub博客

首页 > IT基础架构 > 网络安全 > 动网论坛在论坛上添加防复制的版权保护

动网论坛在论坛上添加防复制的版权保护

原创 网络安全 作者:youhello 时间:2007-10-12 16:56:08 0 删除 编辑
版权保护[@more@]

1、在Inc/Dv_ubbcode.asp文件的最后上面一行插入以下代码:

Public Function htmlencode2(str)
dim result
dim i,j,k
if isnull(str) then
htmlencode2=""
exit function
end if
Randomize
k=instr(str,"


2、在Dispbbs.asp文件里找到以下代码,添加红色部分:
If Not (node.attributes.getNamedItem("LockUser").text="2" Or (node.attributes.getNamedItem("isbest").text="1" And Dvbbs.GroupSetting(41)="0") Or node.attributes.getNamedItem("LockUser").text="1") Then
If InStr(Ubblists,",39,") > 0 Then
TopicBody = dv_ubb.Dv_UbbCode(node.attributes.getNamedItem("body").text,node.attributes.getNamedItem("UserGroupID").text,1,0)

TopicBody = htmlencode2(TopicBody)

Else
TopicBody = dv_ubb.Dv_UbbCode(node.attributes.getNamedItem("body").text,node.attributes.getNamedItem("UserGroupID").text,1,1)

TopicBody = htmlencode2(TopicBody)

End If
End If


3、在TopicOther.asp文件里找到以下代码,添加红色部分:

Templist=Replace(Templist,"{$body}",htmlencode2(SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1))))

")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
'result =result&chr(Int(125 * Rnd)+1) ' 产生随机数。
result =result&chr(j) ' 产生随机数。
if i=9 then
if (j mod 4) = 0 then
result=result&"--防复制版权保护系统"
elseif (j mod 4) = 1 then
result=result&"--http://www.7park.cn"
elseif (j mod 4) = 2 then
result=result&"--未经许可,禁止转载"
elseif (j mod 4) = 3 then
result=result&"--非法转载将被追究责任"
end if
end if
'i=i+1
next
result=""&result&""
str=replace(str,"

",result&"<'/P>",1,1)
k=instr(str,"

")
loop
str=replace(str,"<'/P>","

")
k=instr(str,"
")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
'result =result&chr(Int(125 * Rnd)+1) ' 产生随机数。
result =result&chr(j) ' 产生随机数。
if i=9 then
if (j mod 4) = 0 then
result=result&"--防复制版权保护系统"
elseif (j mod 4) = 1 then
result=result&"--http://www.7park.cn"
elseif (j mod 4) = 2 then
result=result&"--未经许可,禁止转载"
elseif (j mod 4) = 3 then
result=result&"--非法转载将被追究责任"
end if
end if
'i=i+1
next
result=""&result&""
str=replace(str,"
",result&"<'br>",1,1)
k=instr(str,"
")
loop
str=replace(str,"<'br>","
")
htmlencode2=str
End Function

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/79126/viewspace-976198/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论
  • 博文量
    47
  • 访问量
    712891