“已解决”功能的实现方法

蓝雨发表于 2008-3-28 19:13:53

安装方法： 先把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 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 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 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 \"<img src=\"\"dv_plus/tools/magicface/magicemot.gif\"\" border=\"\"0\"\"  alt=\"\"魔法表情\"\" /> \" /> \" 下面添加  Case 6   TPL_Echo \"<img src=\"\"images/right.gif\"\" border=\"\"0\"\" alt=\"\"已解决\"\" /> \"  Case 7   TPL_Echo \"<img src=\"\"images/wait.gif\"\" border=\"\"0\"\" alt=\"\"待解决\"\" /> \" 再找到    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> <a href=\"\"admin_postings.asp?action=NoOK&BoardID=\"&Dvbbs.boardid&\"&ID=\"&AnnounceID&\"\"\" title=\"\"本问题尚未得到解决\"\">待解决</a> <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=\"查看本版精华主题\">精华主题</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=\"查看本版精华主题\">精华主题</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目录中

页: [1]

蓝雨动力's Archiver

“已解决”功能的实现方法