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

    <%
'===================================================================
'= ASP FILENAME	: /forum/forum_move_save.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_move_save.asp"

'== 页面标题/功能
Const CONST_PAGE_TITLE	= "移动帖子"

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

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

'== 页面构造
Call ActionBuild()

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

'== 页面析构
Call ActionOver()

%>

<%
'===================================================================
'= Sub         : FormSaveTopicsMoveCtl()
'= Time		   : Created At 2006-6-25
'= Input       : None
'= Description : 移动帖子
'===================================================================
Sub FormSaveTopicsMoveCtl()

	Dim clsForm			'== Class of form
	Dim strHtmlCode
	Dim ForumId,TopicsId,strTitle,intMoveForumId

	'== subject move
	If Trim(Request.QueryString("ACT_MODE")) = "ACT_SUJECT_MODE" Then
		Call FormSaveTopicsMoveSubject()
		Exit Sub
	End If

	ForumId = Trim(Request.Form("hidForumId"))
	If Not IsNumeric(ForumId) Then
		Call ResultExecute(E_USER_PUB,"贴吧ForumId错误","ES_ERR")
	End If

	intMoveForumId = Trim(Request.Form("selForumId"))
	If Not IsNumeric(intMoveForumId) Then
		Call ResultExecute(E_USER_PUB,"要转移至的贴吧ForumId错误","ES_ERR")
	End If

	TopicsId = Trim(Request.Form("hidTopicsId")) 
	If Not IsNumeric(TopicsId) Then
		Call ResultExecute(E_USER_PUB,"贴吧TopicsID错误","ES_ERR")
	End If

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

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_FORUM_ID=" & intMoveForumId & ",TOPICS_LAST_EDIT=NOW,TOPICS_DATE=NOW WHERE TOPICS_ID=" & TopicsId 
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"move topics","ES_ERR")

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


End Sub
'===================================================================
'= Sub         : FormSaveTopicsMoveSubject()
'= Time		   : Created At 2006-6-25
'= Input       : None 
'= Description : move topics to other forum
'===================================================================
Sub FormSaveTopicsMoveSubject()

	Dim clsForm			'== Class of form
	Dim strHtmlCode
	Dim ForumId,TopicsId,strTitle,intMoveForumId

	
	ForumId = Trim(Request.Form("hidForumId"))
	If Not IsNumeric(ForumId) Then
		Call ResultExecute(E_USER_PUB,"贴吧ForumId错误","ES_ERR")
	End If

	intMoveSubject = Trim(Request.Form("selForumSubject"))
	If Not IsNumeric(intMoveSubject) Then
		Call ResultExecute(E_USER_PUB,"要指定的专题错误","ES_ERR")
	End If

	TopicsId = Trim(Request.Form("hidTopicsId")) 
	If Not IsNumeric(TopicsId) Then
		Call ResultExecute(E_USER_PUB,"贴吧TopicsID错误","ES_ERR")
	End If

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

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "UPDATE CLASS_TOPICS SET TOPICS_SUBJECT=" & intMoveSubject & ",TOPICS_LAST_EDIT=NOW WHERE TOPICS_ID=" & TopicsId 
	GBL_objPubDB.SQLExecute()
	Call ResultExecute(GBL_objPubDB.intErrNum,"move topics subject","ES_ERR")

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


End Sub
%>