只看该作者”的修改办法_ForDv8.2

蓝雨

第一步：

进入后台 ==> 风格界面 ==> 分页面模板(page_dispbbs) 的 界面风格

然后找到

{$bbslist.ip}

把这个替换成

{$bbslist.ip} {$bbslist.authorid}

替换后保存就可以退出后台了 HOHO~``

第二步：

打开文件：dispbbs.asp [在修改前请先备份好该文件]

找到

If Dvbbs.BoardMaster Then CanRead=True

在这句下面添加

Dim authorid
authorid = Dvbbs.CheckNumeric(Request(\"authorid\"))

然后再找到

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

把这整句话替换成

Dim PostSQL
If authorid = 0 Then
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
Else
PostSQL = \" where postuserid = \"&authorid&\" And RootID=\"& ReplyID &\" and Boardid=\"& Dvbbs.Boardid&\" Order By Announceid\"
End If
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

再接着找

Case \"dateandtime\" TPL_Echo G_ItemList(3, G_Floor)

在这句下面添加

Case \"authorid\"
If authorid = 0 Then
TPL_Echo \"[只看该作者]\"
Else
TPL_Echo \"[显示全部帖子]\"
End If