www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > forum/forum_status.asp

    <%
'===================================================================
'= ASP FILENAME	: /forum/forum_status.asp
'= CREATED TIME : 2006-6-24
'= LAST MODIFIED: 2006-6-24
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 改变帖子状态
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/customer/include_customer_action_execute.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "./forum_inc.asp" -->
<!-- #include file = "./forum_func.asp" -->

<%
'========================================================
'==   Action参数设置
'========================================================
'== 页面名
Const CONST_PAGE_FILE	= "forum/forum_status.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "改变帖子状态"

'== 功能函数名字空间
Const CONST_ACTION_FUNC	= "MdyTopicsStatusCtl"

'== 相对根目录路径 
GBL_strHomeURL			= "../"

'== 页面构造
Call ActionBuild()

'== 请求校验与过滤
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)

'== 页面析构
Call ActionOver()

%>

<%
'===================================================================
'= Sub         : MdyTopicsStatusCtl() 
'= Time	       : Created At 2006-6-25
'= Input       : None
'= Table       : UPDATE CLASS_TOPICS
'= Description : 改变帖子状态
'===================================================================
Sub MdyTopicsStatusCtl() 

	Dim strAddInfo								'== checked data's clew
	Dim intErrId,ForumId,GetRSId
	Dim intStatus

	intErrId = 0

	If Request.QueryString("ACT_MODE") = "ACT_FORBID" Then
		 Call MdyTopicsForbid()
		 Exit Sub
	ElseIf Request.QueryString("ACT_MODE") = "ACT_ALLTOP" Then
		 Call MdyTopicsAllTop()
		 Exit Sub
	End If

	ForumId = Trim(Request.QueryString("ForumId"))
	strAddInfo = "贴吧栏目"
	intErrId = DataCheck("DT_ID",ForumId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	GetRSId = Trim(Request.QueryString("TopicsId"))
	strAddInfo = "所属贴吧帖子"
	intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	intStatus = Trim(Request.QueryString("pstStatus"))
	strAddInfo = "帖子状态指定"
	intErrId = DataCheck("DT_ENUM",intStatus,strAddInfo,"0,9")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
	intStatus = Cint(intStatus)

	If GBL_strUserAuthen <> 1 And Not GetMaster(ForumId) Then
		Call ResultExecute(E_USER_PUB,"你没有操作权限","ES_ERR")
		Exit Sub
	End If

	'== mdy topics stauts
	GBL_objPubDB.Clear()
	If intStatus = 0 Then 
		GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_STATUS=" & intStatus & " WHERE TOPICS_ID=" & GetRSId & " AND TOPICS_STATUS=9 "
	Else
		GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_STATUS=" & intStatus & " WHERE TOPICS_ID=" & GetRSId & " AND TOPICS_STATUS=0 "
	End If
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"mdy topics status","ES_ERR")

	Set GBL_objPubDB = Nothing
	Response.Redirect GBL_strHomeURL & "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
	
End Sub

'===================================================================
'= Sub         : MdyTopicsForbid() 
'= Time	       : Created At Mar,15,2004
'= Input       : None
'= Table       : UPDATE CLASS_TOPICS
'= Description : modify topics status
'===================================================================
Sub MdyTopicsForbid() 

	Dim strAddInfo								'== checked data's clew
	Dim intErrId,ForumId,GetRSId
	Dim intForbid

	intErrId = 0

	ForumId = Trim(Request.QueryString("ForumId"))
	strAddInfo = "贴吧栏目"
	intErrId = DataCheck("DT_ID",ForumId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	GetRSId = Trim(Request.QueryString("TopicsId"))
	strAddInfo = "所属贴吧帖子"
	intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	intForbid = Trim(Request.QueryString("pstForbid"))
	strAddInfo = "帖子状态指定"
	intErrId = DataCheck("DT_ENUM",intForbid,strAddInfo,"0,1")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	If GBL_strUserAuthen <> 1 And Not GetMaster(ForumId) Then
		Call ResultExecute(E_USER_PUB,"你没有操作权限","ES_ERR")
		Exit Sub
	End If

	'== mdy topics stauts
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_REPLY_FORBID=" & intForbid & " WHERE TOPICS_ID=" & GetRSId
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"mdy topics forbid","ES_ERR")

	Set GBL_objPubDB = Nothing
	Response.Redirect GBL_strHomeURL & "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
	
End Sub

'===================================================================
'= Sub         : MdyTopicsAllTop() 
'= Time	       : Created At Aug,1,2004
'= Input       : None
'= Table       : UPDATE CLASS_TOPICS
'= Description : modify topics status
'===================================================================
Sub MdyTopicsAllTop() 

	Dim strAddInfo								'== checked data's clew
	Dim intErrId,ForumId,GetRSId
	Dim intForbid

	intErrId = 0

	'== now only for admin
	If GBL_strUserAuthen <> 1 Then
		Call ResultExecute(E_USER_PUB,"您需要有管理员权限!!","ES_ERR")
		Exit Sub
	End If

	ForumId = Trim(Request.QueryString("ForumId"))
	strAddInfo = "贴吧栏目"
	intErrId = DataCheck("DT_ID",ForumId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	GetRSId = Trim(Request.QueryString("TopicsId"))
	strAddInfo = "所属贴吧帖子"
	intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"ES_ERR")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	Dim intAllTop : intAllTop = Trim(Request.QueryString("pstAllTop"))
	strAddInfo = "帖子状态指定"
	intErrId = DataCheck("DT_ENUM",intAllTop,strAddInfo,"0,10")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
	intAllTop = Cint(intAllTop)

	'== mdy topics stauts
	GBL_objPubDB.Clear()
	If intAllTop = 0 Then
		GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_STATUS=" & intAllTop & " WHERE TOPICS_ID=" & GetRSId & " AND TOPICS_STATUS=10 "
	Else
		GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_STATUS=" & intAllTop & " WHERE TOPICS_ID=" & GetRSId 
	End If
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"mdy topics all top","ES_ERR")

	Set GBL_objPubDB = Nothing
	Response.Redirect GBL_strHomeURL & "forum/forum_show.asp?action=ShowForumContent&TopicsId=" & GetRSId & "&ForumId=" & ForumId
	
End Sub
%>