[分享] “已解决”功能的实现方法

安装方法：
先把xt_setup.asp文件传到论坛根目录执行，为数据库增加一个字段。
然后按下面步骤操作：

一、admin_postings.asp文件中，找到
 Select Case Request(\"action\")
在下面添加
  Case \"IsOK\"
   Call IsOK()
  Case \"NoOK\"
   Call NoOK()
  Case \"OK\"
   Call OK()
再找到最后一行

 End Class

在这一行的上面添加如下代码

 \'心跳添加技术帖解决与否状态开始
 Public Sub IsOK()
  LogType=3
  sucmsg=\"问题已解决\" & \"，版块ID：\" & Dvbbs.BoardID & \"，主题ID：\" & ID
  Dvbbs.Execute(\"Update [Dv_topic] Set Ok = 1 Where BoardID = \" & Dvbbs.BoardID & \" And TopicID = \" & ID)
  Insert_Forum_Log()
  Update_User_Point(\"\")
  Topic_Manage_Sms()
  Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
 End Sub
 Public Sub NoOK()
  LogType=3
  sucmsg=\"问题待解决\" & \"，版块ID：\" & Dvbbs.BoardID & \"，主题ID：\" & ID
  Dvbbs.Execute(\"Update [Dv_topic] Set Ok = 2 Where BoardID = \" & Dvbbs.BoardID & \" And TopicID = \" & ID)
  Insert_Forum_Log()
  Update_User_Point(\"\")
  Topic_Manage_Sms()
  Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
 End Sub
 Public Sub OK()
  LogType=3
  sucmsg=\"取消技术帖标记\" & \"，版块ID：\" & Dvbbs.BoardID & \"，主题ID：\" & ID
  Dvbbs.Execute(\"Update [Dv_topic] Set Ok = 0 Where BoardID = \" & Dvbbs.BoardID & \" And TopicID = \" & ID)
  Insert_Forum_Log()
  Update_User_Point(\"\")
  Topic_Manage_Sms()
  Dvbbs.Dvbbs_Suc(SucMsgInfo(sucmsg))
 End Sub
 \'心跳添加技术帖解决与否状态结束

二、index.asp文件中，找到
 Dim action
改为
 Dim action,Ok

找到
 If Request(\"topicmode\")<>\"\" and IsNumeric(Request(\"topicmode\")) Then
  TopicMode=Cint(Request(\"topicmode\"))
 Else
  TopicMode=0
 End If
下面添加
 If Request(\"ok\")<>\"\" and IsNumeric(Request(\"ok\"))Then
  Ok=Cint(Request(\"ok\"))
 Else
  Ok=0
 End If

找到
 Set Rs=Dvbbs.Execute(\"Select topicid,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,expression,topicmode,mode,getmoney,getmoneytype,usetools,issmstopic,hidename from dv_topic Where istop > 0 and topicid in (\"& Dvbbs.Checkstr(topidlist) &\") Order By istop desc, Lastposttime Desc\")
改为
 Set Rs=Dvbbs.Execute(\"Select topicid,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,expression,topicmode,mode,getmoney,getmoneytype,usetools,issmstopic,hidename,ok from dv_topic Where istop > 0 and topicid in (\"& Dvbbs.Checkstr(topidlist) &\") Order By istop desc, Lastposttime Desc\")

删掉
  Set Rs = Dvbbs.Execute(\"Select Count(TopicId) From Dv_Topic Where BoardID=\"&Dvbbs.BoardID&\" And isTop=0 \"&SQLQuery&\"\")
  Count = Rs(0)
  Set Rs=Nothing
找到
  Set Rs = Dvbbs.iCreateObject(\"adodb.recordset\")
  If Cint(TopicMode)=0 Then
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField&\" \"& OrderStr
  Else
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename From Dv_Topic Where Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField &\" \"& OrderStr
  End If
改为
  Set Rs = Dvbbs.iCreateObject(\"adodb.recordset\")
  If Cint(TopicMode)=0 And Cint(Ok)=0 Then
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename,ok From Dv_Topic Where BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField&\" \"& OrderStr
  ElseIf CInt(TopicMode)>0 And Cint(Ok)>0 Then
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename,ok From Dv_Topic Where Mode=\"&TopicMode&\" And Ok=\"&Ok&\" And BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField&\" \"& OrderStr
  ElseIf Cint(Ok)>0 Then
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename,ok From Dv_Topic Where Ok=\"&Ok&\" And BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField&\" \"& OrderStr
  Else
   Sql=\"Select  TopicID,boardid,title,postusername,postuserid,dateandtime,child,hits,votetotal,lastpost,lastposttime,istop,isvote,isbest,locktopic,Expression,TopicMode,Mode,GetMoney,GetMoneyType,UseTools,IsSmsTopic,hidename,ok From Dv_Topic Where Mode=\"&TopicMode&\" and BoardID=\"&Dvbbs.BoardID&\" And IsTop=0 \"&SQLQuery&\" Order By \"&OrderField &\" \"& OrderStr
  End If
找到
  If Not Rs.EoF Then   
   Topic=Rs.GetRows(Dvbbs.Board_Setting(26))
  Else
   Topic=Null
  End If
在下面添加一行
  Count = Rs.RecordCount

再找到
   If InStr(Topic(15,i),\"|\")>0 And InStr(Topic(15,i),\"0|\")<>1 Then Call TopicTool(0,0,Topic(0,i),5) \' 魔法表情帖子
在这一行下面添加
   If Topic(23,i)=1 Then Call TopicTool(0,0,Topic(0,i),6)
   If Topic(23,i)=2 Then Call TopicTool(0,0,Topic(0,i),7)
找到
    Call TopicTool(TopTopic(20,i),0,TopTopic(0,i),2)
在下面添加
   ElseIf TopTopic(21,i)=\"1\" Then Rem 心跳修正固顶帖后面标志
    Call TopicTool(0,0,TopTopic(0,i),3)
   ElseIf TopTopic(21,i)=\"2\" Then
    Call TopicTool(0,0,TopTopic(0,i),4)
   ElseIf InStr(TopTopic(15,i),\"|\")>0 And InStr(TopTopic(15,i),\"0|\")<>1 Then
    Call TopicTool(0,0,TopTopic(0,i),5)
   ElseIf TopTopic(23,i)=1 Then
    Call TopicTool(0,0,TopTopic(0,i),6)
   ElseIf TopTopic(23,i)=2 Then
    Call TopicTool(0,0,TopTopic(0,i),7)
继续，汗一个，慢慢来，再找到
  TPL_Echo \"<span style=\"\"float:right\"\"><img src=\"\"dv_plus/tools/magicface/magicemot.gif\"\" border=\"\"0\"\"  alt=\"\"魔法表情\"\" /></span> \" /></span> \"
下面添加
 Case 6
  TPL_Echo \"<span style=\"\"float:right\"\"><img src=\"\"images/right.gif\"\" border=\"\"0\"\" alt=\"\"已解决\"\" /></span> \"
 Case 7
  TPL_Echo \"<span style=\"\"float:right\"\"><img src=\"\"images/wait.gif\"\" border=\"\"0\"\" alt=\"\"待解决\"\" /></span> \"
再找到
   TPL_ShowPage Page,Count, Dvbbs.CheckNumeric(Dvbbs.Board_Setting(26)),10, \"index.asp?boardid=\"&Dvbbs.BoardID & gaction &\"&TopicMode=\"&TopicMode&\"&List_Type=\"&Replace(Request(\"list_type\"),\" \",\"\")&\"&Page=\"
改为
   TPL_ShowPage Page,Count, Dvbbs.CheckNumeric(Dvbbs.Board_Setting(26)),10, \"index.asp?boardid=\"&Dvbbs.BoardID & gaction &\"&TopicMode=\"&TopicMode&\"&Ok=\"&Ok&\"&List_Type=\"&Replace(Request(\"list_type\"),\" \",\"\")&\"&Page=\"

三、dispbbs.asp文件中，找到
  Case \"topicadminlist\"
在这一行上面添加
  Case \"ok\"
   If Dvbbs.UserID > 0 And (Dvbbs.Boardmaster Or IsSelfPost()) Then
    TPL_Echo \"<div class=\"\"m_li_top\"\" style=\"\"display:inline;\"\" onmouseover=\"\"showmenu1(\'Menu_ts\',0);\"\"><a href=\"\"javascript: void(0);\"\">是否解决</a>\"
    TPL_Echo \"<div class=\"\"submenu submunu_popup\"\" style=\"\"margin:0;padding:5px;\"\" id=\"\"Menu_ts\"\" onmouseout=\"\"hidemenu1();\"\">\"
    TPL_Echo \" <a href=\"\"admin_postings.asp?action=IsOK&BoardID=\"&Dvbbs.boardid&\"&ID=\"&AnnounceID&\"\"\" title=\"\"本问题已经得到解决\"\">已解决</a><br /><a href=\"\"admin_postings.asp?action=NoOK&BoardID=\"&Dvbbs.boardid&\"&ID=\"&AnnounceID&\"\"\" title=\"\"本问题尚未得到解决\"\">待解决</a><br /><a href=\"\"admin_postings.asp?action=OK&BoardID=\"&Dvbbs.boardid&\"&ID=\"&AnnounceID&\"\"\" title=\"\"取消技术帖标记\"\">非技术</a>\"
    TPL_Echo \"</div></div>\"
   End If

四、在风格page_dispbbs  template.html(0)中找到
 {$page.topicadminlist}
在后面添加
 {$page.ok}

五、在风格page_index    template.html(1)中找到
  [ <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=8,0,0&page=\" title=\"查看我在本版发表的主题\">我的主题</a> |  <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=6,0,0&page=\" title=\"查看本版精华主题\"><font color=\"#FF0000\">精华主题</font></a> | <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=7,0,0&page=\" title=\"查看本版投票主题\">投票主题</a> ]<a href=\"infolist.asp?t=even&boardid={$pub.boardid}\" title=\"查看本版事件\">事件</a>|<a href=\"BoardPermission.asp?boardid={$pub.boardid}\" title=\"查看本版用户组权限\">权限</a>|<a href=\"admin_boardset.asp?boardid={$pub.boardid}\">管理</a>|<a href=\"AccessTopic.asp?boardid={$pub.boardid}\" title=\"进入审核管理页面\">审核</a>
改为
  [ <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=8,0,0&page=\" title=\"查看我在本版发表的主题\">我的主题</a> |  <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=6,0,0&page=\" title=\"查看本版精华主题\"><font color=\"#FF0000\">精华主题</font></a> | <a href=\"index.asp?boardid={$pub.boardid}&TopicMode={$page.TopicMode}&List_Type=7,0,0&page=\" title=\"查看本版投票主题\">投票主题</a> ]<a href=\"index.asp?boardid={$pub.boardid}&ok=1\" title=\"查看所有已解决问题\">已解决</a>|<a href=\"index.asp?boardid={$pub.boardid}&ok=2\" title=\"查看所有未解决问题\">未解决</a>|<a href=\"infolist.asp?t=even&boardid={$pub.boardid}\" title=\"查看本版事件\">事件</a>|<a href=\"BoardPermission.asp?boardid={$pub.boardid}\" title=\"查看本版用户组权限\">权限</a>|<a href=\"admin_boardset.asp?boardid={$pub.boardid}\">管理</a>|<a href=\"AccessTopic.asp?boardid={$pub.boardid}\" title=\"进入审核管理页面\">审核</a>

六、最后把压缩包中的right.gif和wait.gif传到论坛的images目录中