动网论坛游客只能看到帖子的部分内容修改方法

蓝雨

1、打开dispbbs.asp文件，找到：

1. If InStr(Ubblists,",39,") > 0  Then     
   
2. TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,0) )
   
3. Else     
   
4. TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,1) )
   
5. 
   
6. End If
   

复制代码

修改成

1. If InStr(Ubblists,",39,") > 0  Then
   
2.    dim body
   
3.    If Dvbbs.userid=0 then
   
4. response.write"<font color=#AAAAAA size=4px>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red size=4px>[注册]</font></a>或者<a href=login.asp><font color=blue size=4px>[登陆]</font></a>。</font>"
   
5. response.write"<hr>"
   
6. response.write"文章简介："
   
7. body=cstr(len(Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,0) )))
   
8. j=body/3  '取文章的几分之几
   
9. TPL_Echo left(Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,0) ),j)
   
10. Else
    
11.     TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,0) )
    
12.     End If
    
13.    Else
    
14.    If Dvbbs.userid=0 then
    
15. response.write"<font color=#AAAAAA size=4px>您还没有登陆，欲知全文内容，请选择<a href=reg.asp><font color=red size=4px>[注册]</font></a>或者<a href=login.asp><font color=blue size=4px>[登陆]</font></a>。</font>"
    
16. response.write"<hr>"
    
17. response.write"文章简介："
    
18. body=cstr(len(Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,1) )))
    
19. j=body/3  '取文章的几分之几
    
20. TPL_Echo left(Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,1) ),j)
    
21. Else
    
22.     TPL_Echo Dvbbs.ChkBadWords( Dv_ubb.Dv_UbbCode(G_ItemList(4, G_Floor),i,1,1) )
    
23.     End If
    
24.    End If

复制代码

2、打开TopicOther.asp文件，找到：

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