动网虫子大作 实现版主已阅

蓝雨

1.先升级数据库 下面压缩包里面下载 2.admin_postings.asp文件 找到Public Function Main() If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(42)vbbs.Showerr() Select Case Request(\"action\") Case \"IsOK\" Call IsOK() Case \"NoOK\" Call NoOK() Case \"修复\" 最后两行 Public Sub IsOK() Dvbbs.Execute(\"Update [Dv_topic] set ok = 1 where boardid = \" & Dvbbs.BoardID & \" and topicID = \" & ID) Dvbbs.Dvbbs_Suc(SucMsgInfo(\"版主已阅\")) End Sub Public Sub NoOK() Dvbbs.Execute(\"Update [Dv_topic] set ok = 0 where boardid = \" & Dvbbs.BoardID & \" and topicID = \" & ID) Dvbbs.Dvbbs_Suc(SucMsgInfo(\"待处理\")) End Sub End Class %> 3.index.asp文件 有四处,issmstopic,hidename,ok from dv_topic 然后 Case 7 : SQLQuery = \" And isvote=1\" Case 8 If Dvbbs.UserID>0 Then SQLQuery = \" And postuserid=\"&Dvbbs.UserID Case 9 : SQLQuery = \" And ok=1 And datediff(\"&(d&\"d\"&d)&\",DateAndTime,\"&SqlNowString&\")=0\" Case Else : SQLQuery = \" \" 往下 TPL_Echo \"匿名用户\" Else TPL_Echo \"客人\" End If Case \"ok\" If TopTopic(23,i)=\"1\" Then TPL_Echo \"√\" End If 继续往下 TPL_Echo \"匿名用户\" Else TPL_Echo \"客人\" End If Case \"ok\" If Topic(23,i)=\"1\" Then TPL_Echo \"√\" End If 4.index模板1部分增加查询当天斑竹工作情况 第一处 最后发帖：{$toptopic.lastpostcontent}\">{$toptopic.title}{$toptopic.pagelist} {$toptopic.titleimg}{$toptopic.ok}