“只看该作者”的修改办法_ForDv8.2
<P><FONT color=#ff00ff>当某个帖子出先N页后，你只想在该帖子里查看此人回复了什么就可以用到这个功能啦</FONT></P><P><STRONG></STRONG></P>
<P><STRONG>第一步：</STRONG></P>
<P></P>
<P>进入后台 ==> 风格界面 ==> 分页面模板(page_dispbbs) 的 <FONT face=Verdana>界面风格</FONT></P>
<P></P>
<P>然后找到</P>
<P></P>
<P><FONT face=Verdana>{$bbslist.ip}</FONT></P>
<P></P>
<P>把这个替换成</P>
<P></P>
<P><FONT face=Verdana>{$bbslist.ip} {$bbslist.authorid}</FONT></P>
<P></P>
<P>替换后保存就可以退出后台了 HOHO~``</P>
<P></P>
<P><STRONG>第二步：</STRONG></P>
<P></P>
<P>打开文件：dispbbs.asp [在修改前请先备份好该文件]</P>
<P></P>
<P><U>找到</U></P>
<P></P>
<P><FONT face=Verdana>If Dvbbs.BoardMaster Then CanRead=True</FONT></P>
<P></P>
<P><EM>在这句下面添加</EM></P>
<P></P>
<P><FONT face=Verdana>Dim authorid<BR>authorid = Dvbbs.CheckNumeric(Request(\"authorid\"))</FONT></P>
<P></P>
<P><U>然后再找到</U></P>
<P></P>
<P><FONT face=Verdana><FONT face=Verdana><FONT face=Verdana><FONT face=Verdana><FONT face=Verdana>SQL=\"Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,FlashId From \"& TotalUsetable &\" where RootID=\"& ReplyID &\" and Boardid=\"& Dvbbs.Boardid&\" Order By Announceid\" \'0-AnnounceID,1-UserName,2-Topic,3-dateandtime,4-body,5-Expression,6-ip,7-RootID,8-signflag,9-isbest,10-PostUserid,11-layer,12-isagree,13-GetMoneyType,14-IsUpload,15-Ubblist,16-LockTopic,17-GetMoney,18-UseTools,19-PostBuyUser,20-ParentID</FONT></FONT></FONT></FONT></FONT></P>
<P></P>
<P><EM>把这整句话替换成</EM></P>
<P></P>
<P><FONT face=Verdana>Dim PostSQL<BR>If authorid = 0 Then<BR>PostSQL = \" where RootID=\"& ReplyID &\" and Boardid=\"& Dvbbs.Boardid&\" Order By Announceid\" \'0-AnnounceID,1-UserName,2-Topic,3-dateandtime,4-body,5-Expression,6-ip,7-RootID,8-signflag,9-isbest,10-PostUserid,11-layer,12-isagree,13-GetMoneyType,14-IsUpload,15-Ubblist,16-LockTopic,17-GetMoney,18-UseTools,19-PostBuyUser,20-ParentID<BR>Else<BR>PostSQL = \" where postuserid = \"&authorid&\" And RootID=\"& ReplyID &\" and Boardid=\"& Dvbbs.Boardid&\" Order By Announceid\"<BR>End If<BR>SQL=\"Select AnnounceID,UserName,Topic,dateandtime,body,Expression,ip,RootID,signflag,isbest,PostUserid,layer,isagree,GetMoneyType,IsUpload,Ubblist,LockTopic,GetMoney,UseTools,PostBuyUser,ParentID,FlashId From \"& TotalUsetable & PostSQL</FONT></P>
<P><FONT face=Verdana></FONT></P>
<P><FONT face=Verdana><U>再接着找</U></FONT></P>
<P><FONT face=Verdana></FONT></P>
<P><FONT face=Verdana><FONT face=Verdana>Case \"dateandtime\" TPL_Echo G_ItemList(3, G_Floor)</FONT></FONT></P>
<P><FONT face=Verdana></FONT></P>
<P><FONT face=Verdana><EM>在这句下面添加</EM></FONT></P>
<P><FONT face=Verdana></FONT></P>
<P><FONT face=Verdana><FONT face=Verdana>Case \"authorid\"<BR>If authorid = 0 Then<BR>TPL_Echo \"[<a href=\"\"dispbbs.asp?boardid=\"&Dvbbs.BoardID&\"&Id=\"&AnnounceID&\"&authorid=\"&GetPostUserID()&\"\"\">只看该作者</a>]\"<BR>Else<BR>TPL_Echo \"[<a href=\"\"dispbbs.asp?boardid=\"&Dvbbs.BoardID&\"&Id=\"&AnnounceID&\"\"\">显示全部帖子</a>]\"<BR>End If</FONT></FONT></P>
页:
[1]