动网虫子大作 实现版主已阅
1.先升级数据库下面压缩包里面下载2.admin_postings.asp文件
找到Public Function Main()
If Not Dvbbs.ChkPost() Then Dvbbs.AddErrCode(42):Dvbbs.Showerr()
Select Case Request(\"action\")
Case \"IsOK\"
Call IsOK()
Case \"NoOK\"
Call NoOK()
Case \"修复\"
最后两行
Public Sub IsOK()
Dvbbs.Execute(\"Update set ok = 1 where boardid = \" & Dvbbs.BoardID & \" and topicID = \" & ID)
Dvbbs.Dvbbs_Suc(SucMsgInfo(\"版主已阅\"))
End Sub
Public Sub NoOK()
Dvbbs.Execute(\"Update 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 \"<span style=\"\"float:right\"\">√</span>\"
End If
继续往下 TPL_Echo \"匿名用户\"
Else
TPL_Echo \"客人\"
End If
Case \"ok\"
If Topic(23,i)=\"1\" Then
TPL_Echo \"<span style=\"\"float:right\"\">√</span>\"
End If
4.index模板1部分增加查询当天斑竹工作情况
第一处
最后发帖：{$toptopic.lastpostcontent}\">{$toptopic.title}</a>{$toptopic.pagelist} {$toptopic.titleimg}{$toptopic.ok}</td>
第二处
最后发帖：{$topic.lastpostcontent}\">{$topic.title}</a>{$topic.pagelist} {$topic.titleimg}{$topic.ok}
第三处<option value=\"4\">半年内的主题</option>
<option value=\"5\">一年内的主题</option>
<option value=\"9\">版主已阅读主题</option>
好了，结束
页:
[1]