版权保护[@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