?? forum_add_topics.asp
字號(hào):
<%
'===================================================================
'= ASP FILENAME : /forum/forum_add_topics.asp
'= CREATED TIME : 2006-5-4
'= LAST MODIFIED: 2006-5-4
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION : 發(fā)表論壇新貼
'= Change Log:
'===================================================================
%>
<!-- #include file = "../inc/customer/include_customer_action_view.asp" -->
<!-- #include file = "../main_func.asp" -->
<!-- #include file = "./forum_func.asp" -->
<!-- #include file = "./forum_inc.asp" -->
<!-- #include file = "../inc/inc_ubb.asp" -->
<%
'========================================================
'== Action參數(shù)設(shè)置
'========================================================
'== 頁(yè)面名
Const CONST_PAGE_FILE = "forum/forum_add_topics.asp"
'== 頁(yè)面標(biāo)題/功能
Const CONST_PAGE_TITLE = "發(fā)表論壇新貼"
'== 功能函數(shù)名字空間
Const CONST_ACTION_FUNC = "FormAddTopicsCtl"
'== 相對(duì)根目錄路徑
GBL_strHomeURL = "../"
'== 頁(yè)面構(gòu)造
Call ActionBuild()
'== 在模板中引用的標(biāo)簽變量
Dim TAG_strVerifyCode '== 表單校驗(yàn)
Dim TAG_objDicUnit '== 單列記錄
'== 請(qǐng)求校驗(yàn)與過(guò)濾
Call ActionFilter(CONST_PAGE_FILE,CONST_ACTION_FUNC)
'== 頁(yè)面析構(gòu)
Call ActionOver()
%>
<%
'===================================================================
'= Function : LoadPageTpl()
'= Time : Created At 2006-5-4
'= Description : 加載頁(yè)面模塊
'===================================================================
Function LoadPageTpl()
%>
<!-- #include file = "../template_c/page_forum_add_topics_form.html.asp" -->
<%
End Function
'===================================================================
'= Sub : FormAddTopicsCtl()
'= Time : Created At Jan,18,2004
'= Input : None
'= Description : 發(fā)表論壇新貼
'===================================================================
Sub FormAddTopicsCtl()
Dim clsForm '== Class of form
Dim strHtmlCode
Dim strActFlag
Dim strAddInfo,intErrId
Dim GetRSId
Dim strTilte,strContent,strFace,strTitle,ForumId
strTitle = ""
strContent = ""
strFace = "14.gif"
strContent = "" '== for quote
strActFlag = Trim(Request.QueryString("pstActFlag"))
If strActFlag <> "" And strActFlag <> "FORUM_EDIT_MODE" Then
Call ResultExecute(E_USER_PUB,"貼子編輯模式不正確","ES_ERR")
Exit Sub
End If
'== 論壇導(dǎo)航條
If strActFlag = "FORUM_EDIT_MODE" Then
Call ShowAddTopicsForumMenu("編輯帖子")
Else
Call ShowAddTopicsForumMenu("發(fā)新貼")
End If
ForumId = Trim(Request.QueryString("ForumId"))
strAddInfo = "論壇欄目"
intErrId = DataCheck("DT_ID",ForumId,strAddInfo,"ES_ERR")
Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
Call CheckMasterForum(ForumId)
'== edit mode
If strActFlag = "FORUM_EDIT_MODE" Then
GetRSId = Trim(Request.QueryString("TopicsId"))
strAddInfo = "該要編輯的帖子"
intErrId = DataCheck("DT_ID",GetRSId,strAddInfo,"")
Call ResultExecute(intErrId,strAddInfo,"ES_ERR")
GBL_objPubDB.Clear()
GBL_objPubDB.TableName = "CLASS_TOPICS"
GBL_objPubDB.SQLType = "SELECT"
If GBL_strUserAuthen = 1 Or GetMaster(ForumId) Then
GBL_objPubDB.Where = "TOPICS_ID=" & GetRSId
Else
GBL_objPubDB.Where = "TOPICS_ID=" & GetRSId & " AND TOPICS_OWNER_ID=" & GBL_intUserId
End If
GBL_objPubDB.AddField "TOPICS_TITLE,TOPICS_CONTENT,TOPICS_SUBJECT,TOPICS_FACE",""
GBL_objPubDB.SQLRSExecute()
Call ResultExecute(GBL_objPubDB.intErrNum,"get edit topics content","ES_ERR")
If GBL_objPubDB.intRSNum = 0 Then
Call ResultExecute(E_USER_PUB,"該要編輯帖子不存在或已刪除","ES_ERR")
Exit Sub
End If
strTitle = GBL_objPubDB.objPubRS("TOPICS_TITLE")
strContent = GBL_objPubDB.objPubRS("TOPICS_CONTENT")
strFace = GBL_objPubDB.objPubRS("TOPICS_FACE")
Dim intSubject : intSubject = GBL_objPubDB.objPubRS("TOPICS_SUBJECT")
End If
Set clsForm = New classForm
If strActFlag = "FORUM_EDIT_MODE" Then
clsForm.Action = "./forum_add_save.asp?action=FormSaveAddTopics&pstActFlag=FORUM_EDIT_MODE&TopicsId=" & GetRSId
Else
clsForm.Action = "./forum_add_save.asp?action=FormSaveAddTopics"
End If
clsForm.Id = "vbform"
clsForm.Name = "vbform"
clsForm.OnSubmit = "return CheckFormAddTopics(this)"
'clsForm.DataChkArr = arrAddBoardDataChk
clsForm.ColumnScale = "25%"
clsForm.MakeForm()
clsForm.MakeTableSet "0","5","1","center","100%","TBone"
clsForm.AddTrByStyle "TBHead"
If strActFlag = "FORUM_EDIT_MODE" Then
clsForm.AddTitle "<b>修 改 貼 子</b>"
Else
clsForm.AddTitle "<b>發(fā) 表 新 貼 子</b>"
End If
Dim strTmp
GBL_cssFormTdOne = "TBBG9"
GBL_cssFormTdTwo = "TBBG1"
GBL_cssFormTr = ""
clsForm.AddTrByStyle GBL_cssFormTr
strTmp = " <select onchange='document.vbform.iptTitle.value=this.value+document.vbform.iptTitle.value;document.vbform.iptTitle.focus();'><OPTION selected value=''>話題</option> <OPTION value=[原創(chuàng)]>[原創(chuàng)] </option> <OPTION value=[轉(zhuǎn)帖]>[轉(zhuǎn)帖] <OPTION value=[灌水]>[灌水]</option> <OPTION value=[討論]>[討論] <OPTION value=[求助]>[求助] <OPTION value=[推薦]>[推薦] </option> <OPTION value=[公告]>[公告]<OPTION value=[注意]>[注意] </option> <OPTION value=[貼圖]>[貼圖]<OPTION value=[建議]>[建議] <OPTION value=[下載]>[下載]</option> <OPTION value=[分享]>[分享]</option></select>"
clsForm.AddTdByStyle "*帖子主題" & strTmp,GBL_cssFormTdOne & " align=absmiddle ",GBL_cssFormTdTwo
clsForm.AddText "iptTitle class='fminpt' ","100","75"
clsForm.AddValue strTitle
'== get now smile
Call ForumFace(clsForm,strFace)
clsForm.AddTrByStyle GBL_cssFormTr
clsForm.AddTdByStyle "UBB標(biāo)簽",GBL_cssFormTdOne,GBL_cssFormTdTwo
clsForm.AddLine GetUbb()
clsForm.AddTrByStyle GBL_cssFormTr
clsForm.AddTdByStyle "*帖子內(nèi)容",GBL_cssFormTdOne,GBL_cssFormTdTwo
clsForm.AddTextrea "txtContent class=fmtxtra ","75","20"
clsForm.AddValue FilterHtml(strContent)
'clsForm.AddTrByStyle GBL_cssFormTr
'clsForm.AddTdByStyle "本版專(zhuān)題",GBL_cssFormTdOne,GBL_cssFormTdTwo
'== subject
'If Not IsEmpty(DEF_FormSubject(ForumId)) Then
' If IsArray(DEF_FormSubject(ForumId)) Then
' clsForm.AddSelect "selForumSubject",""
' clsForm.AddOption 0,"一般貼",intSubject
' arrNowSub = DEF_FormSubject(ForumId)
' For n = Lbound(arrNowSub) To Ubound(arrNowSub)
' Response.Write arrNowSub(n)
' clsForm.AddOption n+1,arrNowSub(n),intSubject
' Next
' Else
' clsForm.AddLine "沒(méi)有專(zhuān)題可以指定"
' End If
'Else
' clsForm.AddLine "沒(méi)有專(zhuān)題可以指定"
'End If
clsForm.AddTrByStyle GBL_cssFormTr
clsForm.AddTdByStyle "*插入表情",GBL_cssFormTdOne,GBL_cssFormTdTwo
clsForm.AddLine ShowSmileOut(11)
clsForm.AddTrByStyle GBL_cssFormTr
clsForm.AddTdByStyle "帖子提交",GBL_cssFormTdOne,GBL_cssFormTdTwo
strHtmlCode = "<input type=hidden name='hidForumId' id='hidForumId' value=" & ForumId & ">"
clsForm.AddLine "Alt+S或Ctrl+Enter快速提交" & strHtmlCode
clsForm.AddTrByStyle "TBBG9"
clsForm.AddSubTdByStyle " align=center "
clsForm.AddSub "subAddTopics","提 交","submit class='fmbtn' "
clsForm.AddSub "rstAddTopics","重 寫(xiě)","submit class='fmbtn' "
clsForm.OutPutForm()
Set clsForm = Nothing
End Sub
'====================================================================
'= Function : ForumFace(strInFace)
'= Time : Created At Feb,29,2004
'= Input : objForm : form object
'= strInFace : now smile
'= Description : face show fo forum
'====================================================================
Function ForumFace(ByRef objForm,strInFace)
objForm.AddTrByStyle ""
objForm.AddTdByStyle "發(fā)帖心情","TBBG9","TBBG1"
objForm.AddRadio "rdoFace","14.gif","<img src='" & GBL_strHomeURL & "images/smile/14.gif' title='微笑' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","12.gif","<img src='" & GBL_strHomeURL & "images/smile/12.gif' title='高興' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","5.gif","<img src='" & GBL_strHomeURL & "images/smile/5.gif' title='悲傷' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","32.gif","<img src='" & GBL_strHomeURL & "images/smile/32.gif' title='疑惑' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","76.gif","<img src='" & GBL_strHomeURL & "images/smile/76.gif' title='強(qiáng)' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","23.gif","<img src='" & GBL_strHomeURL & "images/smile/23.gif' title='傲慢' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","25.gif","<img src='" & GBL_strHomeURL & "images/smile/25.gif' title='困' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","6.gif","<img src='" & GBL_strHomeURL & "images/smile/6.gif' title='害羞' align='absmiddle' valign='middle'>",strInFace
objForm.AddRadio "rdoFace","20.gif","<img src='" & GBL_strHomeURL & "images/smile/20.gif' title='偷笑' align='absmiddle' valign='middle'>",strInFace
End Function
%>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -