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

    <%
'===================================================================
'= ASP FILENAME	: /admin/admin_bulletin.asp
'= CREATED TIME : Feb,08,2004
'= LAST MODIFIED: Feb,08,2004
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : class bulletin manage
'= Change Log:
'===================================================================
%>

<!-- #include file = "../inc/inc_class_def.asp" -->

<!-- #include file = "../inc/inc_db_func.asp" -->
<!-- #include file = "../class/class_db.asp" -->

<!-- #include file = "../inc/inc_pub_func.asp" -->
<!-- #include file = "../inc/inc_char_func.asp" -->
<!-- #include file = "../inc/inc_data_check.asp" -->
<!-- #include file = "../inc/inc_ubb.asp" -->

<!-- #include file = "../class/class_html_form.asp" -->
<!-- #include file = "../class/class_html_table.asp" -->
<!-- #include file = "../main_func.asp" -->

<!-- #include file = "./admin_func.asp" -->

<!-- #include file = "../js/comm_func.js" -->
<!-- #include file = "../js/ubbcode.js" -->

<%
Const CONST_PAGE_FILE = "admin/admin_bulletin.asp"
GBL_strHomeURL = "../"

Call AdminCheckExec()

Dim clsPubDB
Set clsPubDB = New classDBOprt

Call SiteHead("网站通告")

Call CheckPostExist("FormBulletinAdmin,FormSaveBulletinAdmin")

Call ExeSysAdminQst()

Set clsPubDB = Nothing

%>
<%
'=============== FUNCTION BODY BEGIN ===============================
'===================================================================
'= Function     : FormBulletinAdmin()  
'= Time		    : Created At Nov,06,2003
'= Input        : None
'= Output       : None
'= Called by    : SwitchExeFunction()
'= Calls        : None
'= Table        : QUERY CLASS_BULLETIN,CLASS_CONFIG.CONFIG_BULLETIN_SET
'= Description  : Set the web bulletin content and parameters
'===================================================================
Sub FormBulletinAdmin()

	Dim strBulletinContent,strBulletinCfg
	Dim arrTmp
	Dim strHtmlCode

	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_BULLETIN"
	clsPubDB.SQLType = "SELECT"
	clsPubDB.AddField "BULLETIN_CONTENT",""
	clsPubDB.Where = "BULLETIN_PRIORITY='2'"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"site bulletin get"&clsPubDB.returnsql,"ES_ERR")

	If clsPubDB.intRSNum = 0 Then
		strBulletinContent = ""
	Else
		strBulletinContent = FilterHtml(clsPubDB.objPubRS("BULLETIN_CONTENT"))
	End If	

	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_CONFIG"
	clsPubDB.SQLType = "SELECT"
	clsPubDB.AddField "CONFIG_BULLETIN_SET",""
	clsPubDB.Where = "CONFIG_PRIORITY='2'"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"site bullentin admin","ES_ERR")
	If clsPubDB.intRSNum = 0 Then
		Call LostConfigExec()
	Else

		strBulletinCfg = Trim(clsPubDB.objPubRS("CONFIG_BULLETIN_SET"))

		Set clsForm = New classForm
		'== Set form parameters
		clsForm.Action = GBL_strHomeURL & "admin/admin_bulletin.asp?action=FormSaveBulletinAdmin"
		clsForm.Id = "frmBulletinAdmin"
		clsForm.Name = "frmBulletinAdmin"
		clsForm.OnSubmit = "return CheckFormBulletinAdmin()"
		clsForm.ColumnScale = "20%"

		clsForm.MakeForm()
		clsForm.MakeTable "0","3","1","center","98%",GBL_cssFormTable

		clsForm.AddTr GBL_cssFormTitleTr
		clsForm.AddTitle "网站通告设置",GBL_cssFormTitleTd

		strTmp = GetConfig(strBulletinCfg,"ScrollAmount")
		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "*显示速度",GBL_cssFormTdOne,GBL_cssFormTdTwo
		clsForm.AddSelect "selScrollAmount",""
		clsForm.AddOption "1","慢",strTmp
		clsForm.AddOption "2","较慢",strTmp
		clsForm.AddOption "3","一般",strTmp
		clsForm.AddOption "5","较快",strTmp
		clsForm.AddOption "10","快",strTmp

		strTmp = GetConfig(strBulletinCfg,"ScrollDelay")
		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "*延迟速度",GBL_cssFormTdOne,GBL_cssFormTdTwo
		clsForm.AddSelect "selScrollDelay",""
		clsForm.AddOption "100","慢",strTmp
		clsForm.AddOption "80","较慢",strTmp
		clsForm.AddOption "60","一般",strTmp
		clsForm.AddOption "40","较快",strTmp
		clsForm.AddOption "20","快",strTmp

		strTmp = GetConfig(strBulletinCfg,"Direction")
		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "*滚动方向",GBL_cssFormTdOne,GBL_cssFormTdTwo
		clsForm.AddSelect "selDirection",""
		clsForm.AddOption "up","向上",strTmp
		clsForm.AddOption "down","向下",strTmp

		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "UBB代码",GBL_cssFormTdOne,GBL_cssFormTdTwo
		clsForm.AddLine GetUbb()

		clsForm.AddTr GBL_cssFormTr
		clsForm.AddTd "*宣言内容",GBL_cssFormTdOne,GBL_cssFormTdTwo
		clsForm.AddTextrea "txtContent id=txtContent onkeydown=ctlent()","45","9"
		clsForm.AddValue strBulletinContent

		clsForm.AddTr GBL_cssFormSubTr
		clsForm.AddSubTd GBL_cssFormSubTd
		clsForm.AddSub "subFormBulletinAdmin","提 交","submit"
		clsForm.AddSub "rstFormBulletinAdmin","重 写","reset"

		clsForm.OutPutForm()
		Set clsForm = Nothing

	End If

End Sub
'================== End of Function FormBulletinAdmin() ============
'===================================================================
'= Sub		    : FormSaveBulletinAdmin()  
'= Time		    : Created At Nov,06,2003
'= Input        : None
'= Output       : None
'= Called by    : SwitchExeFunction()
'= Calls        : None
'= Table        : UPATE CLASS_BULLETIN
'= Description  : Set the web bulletin content and parameters
'===================================================================
Sub FormSaveBulletinAdmin()

	Dim intErrId 
	Dim strAddInfo
	Dim strDirection,strScrollDelay,strContext,strScrollAmount
	Dim strBulletinSet

	intErrId = 0

	'== Check direction of bulletion
	strDirection = Trim(Request.Form("selDirection"))
	strAddInfo = "网站通告滚动方向"
	intErrId = DataCheck("DT_ENUM",strDirection,strAddInfo,"up,down")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check scrollamount of bulletion
	strScrollAmount = Trim(Request.Form("selScrollAmount"))
	strAddInfo = "网站通告显示速度"
	intErrId = DataCheck("DT_ENUM",strScrollAmount,strAddInfo,"1,2,3,5,10")
	Call ResultExecute(intErrId,strScrollAmount,"ES_ERR")

	'== Check scrolldelay of bulletion
	strScrollDelay = Trim(Request.Form("selScrollDelay"))
	strAddInfo = "网站通告延迟速度"
	intErrId = DataCheck("DT_ENUM",strScrollDelay,strAddInfo,"20,40,60,80,100")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check content of bulletion
	strContent = Trim(Request.Form("txtContent"))
	strAddInfo = "网站通告内容"
	intErrId = DataCheck("DT_FIX_LENGTH",strContent,strAddInfo,"5|DTC_LESS_MORE_LEN|500|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	strBulletinSet = "ScrollDelay=" & strScrollDelay & "|||Direction=" & strDirection & "|||ScrollAmount=" & strScrollAmount

	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_CONFIG"
	clsPubDB.SQLType = "UPDATE"
	clsPubDB.Where = "CONFIG_PRIORITY='2'"
	clsPubDB.AddField "CONFIG_BULLETIN_SET",strBulletinSet
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"","ES_ERR")

	clsPubDB.Clear()
	clsPubDB.TableName = "CLASS_BULLETIN"
	clsPubDB.SQLType = "UPDATE"
	clsPubDB.Where = "BULLETIN_PRIORITY='2'"
	clsPubDB.AddField "BULLETIN_CONTENT",htmlencode2(strContent)
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"","ES_ERR")

	Call ResultExecute(391,"网站通告设置" & GBL_DIVIDER & "FormBulletinAdmin","ES_SUCC")

End Sub
'================= End Of Sub FormSaveBulletinAdmin() ==============
'=============== FUNCTION BODY END =================================
%>