📄 admin_article.asp

📁 1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册相片上传[方便上传
💻 ASP
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
	Set clsForm = Nothing

End Sub
'============== End of Function FormMdyArticleSort() ===============
'===================================================================
'= Sub         : FormSaveAddArticleSort()
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : Add article sort save
'===================================================================
Sub FormSaveAddArticleSort()

	Dim strAddInfo
	Dim intErrId
	Dim strSortName,strSortDesc

	intErrId = 0

	'== Check sort name
	strSortName = Trim(Request.Form("iptSortName"))
	strAddInfo = "文章类型名"
	intErrId = DataCheck("DT_FIX_LENGTH",strSortName,strAddInfo,"2|DTC_LESS_MORE_LEN|20|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check sort desc
	strSortDesc = Trim(Request.Form("iptSortDesc"))
	strAddInfo = "类型描述"
	intErrId = DataCheck("DT_FIX_LENGTH",strSortDesc,strAddInfo,"2|DTC_LESS_MORE_LEN|20|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	clsPubDB.Clear()
	clsPubDB.SQLType = "INSERT"
	clsPubDB.TableName = "CLASS_ARTICLE_SORT"
	clsPubDB.AddField "ARTICLE_SORT_NAME",strSortName
	clsPubDB.AddField "ARTICLE_SORT_DESC",strSortDesc
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"add new article sort","ES_ERR")

	Set clsPubDB = Nothing
	Response.Write"<script>alert('新的文章类型[" & strSortName & "]被成功提交\n若无变化,请刷新页面');location='admin_article.asp?action=ShowArticleSort'</script>"



End Sub
'=============== End of Sub FormSaveAddArticleSort() ===============
'===================================================================
'= Sub         : FormSaveMdyArticleSort()
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : Add article sort save
'===================================================================
Sub FormSaveMdyArticleSort()

	Dim strAddInfo
	Dim intErrId
	Dim strSortName,strSortDesc,intSortOrder
	Dim GetRSId

	intErrId = 0

	GetRSId = Trim(Request.QueryString("ArticleSortId"))
	If Not IsNumeric(GetRSId) Then
		Call ResultExecute(E_USER_PUB,"要修改的文章类型ID参数错误","ES_ERR")
		Exit Sub
	End If

	'== Check sort name
	strSortName = Trim(Request.Form("iptSortName"))
	strAddInfo = "文章类型名"
	intErrId = DataCheck("DT_FIX_LENGTH",strSortName,strAddInfo,"2|DTC_LESS_MORE_LEN|20|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check sort desc
	strSortDesc = Trim(Request.Form("iptSortDesc"))
	strAddInfo = "类型描述"
	intErrId = DataCheck("DT_FIX_LENGTH",strSortDesc,strAddInfo,"2|DTC_LESS_MORE_LEN|20|")
	Call ResultExecute(intErrId,strAddInfo,"ES_ERR")

	'== Check sort order
	intSortOrder = Trim(Request.Form("iptSortOrder"))
	If Not IsNumeric(intSortOrder) Then
		Call ResultExecute(E_USER_PUB,"排序号错误","ES_ERR")
		Exit Sub
	End If

	clsPubDB.Clear()
	clsPubDB.SQLType = "UPDATE"
	clsPubDB.TableName = "CLASS_ARTICLE_SORT"
	clsPubDB.AddField "ARTICLE_SORT_NAME",strSortName
	clsPubDB.AddField "ARTICLE_SORT_DESC",strSortDesc
	clsPubDB.AddField "ARTICLE_SORT_ORDER",Cint(intSortOrder)
	clsPubDB.Where = "ARTICLE_SORT_ID=" & GetRSId
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"mdy  article sort","ES_ERR")

	Set clsPubDB = Nothing
	Response.Write"<script>alert('要修改的文章类型[" & strSortName & "]被成功修改\n若无变化,请刷新页面');location='admin_article.asp?action=ShowArticleSort'</script>"



End Sub
'=============== End of Sub FormSaveMdyArticleSort() ===============
'===================================================================
'= Sub         : ShowArticleSort()
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : show article sort save
'===================================================================
Sub ShowArticleSort()

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT * FROM CLASS_ARTICLE_SORT ORDER BY ARTICLE_SORT_ORDER DESC,ARTICLE_SORT_ID DESC"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"show article sort","ES_ERR")

	Set clsTable = New classTable
	'== Set table prameters
	clsTable.Border = "0"
	clsTable.CellPadding = "3"
	clsTable.CellSpacing = "1"
	clsTable.Width = "95%"
	clsTable.ClassType = GBL_cssListTable
	clsTable.Align = "center"
	clsTable.MakeTable()

	clsTable.AddTitleTr strTbClass
	clsTable.AddTitleTd "ID号","CSS_TD_CENTER2","10%"
	clsTable.AddTitleTd "排序号","CSS_TD_CENTER2","10%"
	clsTable.AddTitleTd "类型名","CSS_TD_CENTER2","20%"
	clsTable.AddTitleTd "类型描述","CSS_TD_CENTER2","30%"
	clsTable.AddTitleTd "文章数","CSS_TD_CENTER2","10%"
	clsTable.AddTitleTd "操&nbsp;&nbsp;作","CSS_TD_CENTER2",""

	Do While Not clsPubDB.objPubRS.Eof

		clsTable.AddTr strTbClass
		clsTable.AddTd clsPubDB.objPubRS("ARTICLE_SORT_ID"),"CSS_TD_CENTER2"
		clsTable.AddTd clsPubDB.objPubRS("ARTICLE_SORT_ORDER"),"CSS_TD_CENTER1"
		clsTable.AddTd clsPubDB.objPubRS("ARTICLE_SORT_NAME"),"CSS_TD_CENTER2"
		clsTable.AddTd clsPubDB.objPubRS("ARTICLE_SORT_DESC"),"CSS_TD_CENTER1"
		clsTable.AddTd clsPubDB.objPubRS("ARTICLE_SORT_NUM"),"CSS_TD_CENTER2"

		strHtmlCode = "<a href='admin_article.asp?action=DelArticleSort&ArticleSortId=" & clsPubDB.objPubRS("ARTICLE_SORT_ID") & "' onclick=""return confirm('您确认删除该类型及该类型所有文章');"">[删除]</a> <a href='admin_article.asp?action=FormMdyArticleSort&ArticleSortId=" & clsPubDB.objPubRS("ARTICLE_SORT_ID") & "'>[修改]</a>"
		clsTable.AddTd strHtmlCode,"CSS_TD_CENTER1"

		clsPubDB.objPubRS.MoveNext

	Loop

	clsTable.AddInfoTr "CSS_TD_TITLE1","TOP"
	clsTable.AddInfoTd "文 章 类 型 列 表",GBL_cssListTitleTd

	clsTable.AddInfoTr "CSS_TD_TITLE1","BOTTOM"
	clsTable.AddInfoTd "【排序号大的类型将先显示,删除某个类型将删除该类型的所有文章,请慎重选择】","CSS_TD_CENTER2"

	clsTable.AddInfoTr "CSS_TD_TITLE1","BOTTOM"
	clsTable.AddInfoTd "<a href='admin_article.asp?action=GetArticleNum'>【刷新目前各类型文章数目】</a>","CSS_TD_CENTER2"

	clsTable.OutPutTable()
	clsTable.Clear()
	Set clsTable = Nothing
	
End Sub
'=============== End of Sub ShowArticleSort() ======================
'===================================================================
'= Sub         : DelArticleSort()
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : del article sort 
'===================================================================
Sub DelArticleSort()

	Dim GetRSId

	GetRSId = Trim(Request.QueryString("ArticleSortId"))
	If Not IsNumeric(GetRSId) Then
		Call ResultExecute(E_USER_PUB,"要删除的文章类型ID参数错误","ES_ERR")
		Exit Sub
	End If

	'== delete this sort article
	clsPubDB.Clear()
	clsPubDB.AllSQL = "DELETE FROM CLASS_LIST WHERE LIST_TYPE=" & GetRSId
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"del article before del sort","ES_ERR")

	'== delete this sort
	clsPubDB.Clear()
	clsPubDB.AllSQL = "DELETE FROM CLASS_ARTICLE_SORT WHERE ARTICLE_SORT_ID=" & GetRSId
	clsPubDB.SQLExecute()
	Call ResultExecute(clsPubDB.intErrNum,"del article sort","ES_ERR")

	Response.Redirect "admin_article.asp?action=ShowArticleSort"

End Sub
'=============== End of Sub DelArticleSort() =======================
'===================================================================
'= Sub         : GetArticleSort(clsObjForm)
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : get sort
'===================================================================
Sub GetArticleSort(ByRef clsObjForm,strSort)

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT ARTICLE_SORT_ID,ARTICLE_SORT_NAME FROM CLASS_ARTICLE_SORT ORDER BY ARTICLE_SORT_ORDER DESC"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"get article sort","ES_ERR")
	Do While Not clsPubDB.objPubRS.Eof
		clsObjForm.AddOption Cstr(clsPubDB.objPubRS("ARTICLE_SORT_ID")),clsPubDB.objPubRS("ARTICLE_SORT_NAME"),strSort
		clsPubDB.objPubRS.MoveNext
	Loop
End Sub
'=============== End Sub of GetArticleSort() =======================
'===================================================================
'= Function    : FindArticleSort(intSort)
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : find sort
'===================================================================
Function FindArticleSort(intSort)

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT ARTICLE_SORT_NAME FROM CLASS_ARTICLE_SORT WHERE ARTICLE_SORT_ID=" & Cint(intSort)
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"find article sort","ES_ERR")
	If clsPubDB.intRSNum <= 0 Then
		FindArticleSort = "NULL"
		Exit Function
	Else
		FindArticleSort = clsPubDB.objPubRS("ARTICLE_SORT_NAME")
	End If

End Function
'=============== End of Function FindArticleSort() =================
'===================================================================
'= Function    : GetArticleNum
'= Time		   : Created At Apr,11,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : get article Num
'===================================================================
Function GetArticleNum()

	Dim arrTmp
	Dim i

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT LIST_TYPE,COUNT(LIST_TYPE) FROM CLASS_LIST GROUP BY LIST_TYPE ORDER BY LIST_TYPE DESC"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"get article num","ES_ERR")

	arrTmp = clsPubDB.objPubRS.GetRows
	For i = LBound(arrTmp) To UBound(arrTmp)
		clsPubDB.Clear()
		clsPubDB.AllSQL = "UPDATE CLASS_ARTICLE_SORT SET ARTICLE_SORT_NUM=" & arrTmp(1,i) & " WHERE ARTICLE_SORT_ID=" & arrTmp(0,i)
		clsPubDB.SQLRSExecute()
		Call ResultExecute(clsPubDB.intErrNum,"up article num","ES_ERR")
	Next

	Response.Redirect "admin_article.asp?action=ShowArticleSort"

End Function
'=============== End of Function GetArticleNum() ===================
'===================================================================
'= Function    : ArticleSortSlt()
'= Time		   : Created At Apr,12,2004
'= Input       : None

'= Called by   : 
'= Calls       : 
'= Description : find sort
'===================================================================
Function ArticleSortSlt()
	
	Dim strHtmlCode

	strHtmlCode = ""

	clsPubDB.Clear()
	clsPubDB.AllSQL = "SELECT * FROM CLASS_ARTICLE_SORT ORDER BY ARTICLE_SORT_ORDER DESC"
	clsPubDB.SQLRSExecute()
	Call ResultExecute(clsPubDB.intErrNum,"get article sort","ES_ERR")
	
	Do While Not clsPubDB.objPubRS.Eof
		strHtmlCode = strHtmlCode & "<a href='admin_article.asp?action=ShowList&pstAddType=" & clsPubDB.objPubRS("ARTICLE_SORT_ID") & "'>" & clsPubDB.objPubRS("ARTICLE_SORT_NAME") & "</a> | "
		clsPubDB.objPubRS.MoveNext
	Loop

	ArticleSortSlt = strHtmlCode

End Function
'=============== End of Function ArticleSortSlt() ==================
'=============== FUNCTION BODY END =================================
%>
上一页 1 23
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -