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 %>