logic_content.asp

1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 小巧而实用的论坛,支持UBB标签,快速回复,帖子搜索,灵活的将帖子置顶,设置精华 3] 校友相册 相片上传[方便上传

<%
''===================================================================
'= ASP FILENAME	: /inc/logic/logic_content.asp
'= CREATED TIME : 2006-5-8
'= LAST MODIFIED: 2006-5-8
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 内容系统管理
'= Change Log:
'==================================================================='
%>

<%
'== Const define
Const CONST_SORT_NOT_DEFAULT = 1	'== 非默认分类
Const CONST_SORT_DEFAULT = 0		'== 默认分类

Const CONST_SORT_OPEN = 0			'== 分类开启状态
Const CONST_SORT_CLOSE = 1			'== 分类关闭状态


''===================================================================
'= Function    : GetArticlesLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取得文章集
'==================================================================='
Function GetArticlesLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT ARTICLE_ID,ARTICLE_TITLE,ARTICLE_ORDER,ARTICLE_SORT_ID,ARTICLE_ORDER,ARTICLE_ADD_TIME,ARTICLE_HITS FROM CLASS_ARTICLE  WHERE 1=1 " & strWhere & " ORDER BY ARTICLE_ORDER DESC,ARTICLE_ID DESC"
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetArticlesLogic = False
		Exit Function
	End If
	GetArticlesLogic = True
End Function

''===================================================================
'= Function    : GetArticleLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intArticleId : 文章ID
'= Return      : boolean
'= Description : 取单个文章记录 
'==================================================================='
Function GetArticleLogic(intArticleId)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "ARTICLE_ID",""
	GBL_objPubDB.AddField "ARTICLE_TITLE",""
	GBL_objPubDB.AddField "ARTICLE_CONTENT",""
	GBL_objPubDB.AddField "ARTICLE_ADD_TIME",""
	GBL_objPubDB.AddField "ARTICLE_HITS",""
	GBL_objPubDB.AddField "ARTICLE_SORT_ID",""
	GBL_objPubDB.AddField "ARTICLE_ORDER",""
	GBL_objPubDB.AddField "ARTICLE_KEY",""
	GBL_objPubDB.Where = "ARTICLE_ID=" & intArticleId
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetArticleLogic = False
		Exit Function
	End If
	GetArticleLogic = True
End Function

'===================================================================
'= Function    : GetHomeArticles()
'= Time		   : Created At 2007-7-3
'= Input	   : intSortId 
'= Return      : boolean
'= Description : 首页取得文章记录集
'==================================================================='
Function GetHomeArticles(strTop,intSortId)
	Dim arr 

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT " & strTop & " ARTICLE_ID,ARTICLE_TITLE, ARTICLE_ADD_TIME FROM CLASS_ARTICLE WHERE ARTICLE_SORT_ID=" & intSortId &  " ORDER BY  ARTICLE_ORDER DESC,ARTICLE_ID DESC  "
	
	If Not GBL_objPubDB.SQLRSExecute() Then
		arr = "null"
	Else
		If GBL_objPubDB.intRSNum <= 0 Then
			arr = "null"
		Else
			arr = GBL_objPubDB.objPubRS.GetRows()
		End If
		
	End If

	GetHomeArticles = arr 

End Function

'===================================================================
'= Function    : GetHomeSorts()
'= Time		   : Created At 2007-7-3
'= Input	   : intSortId 
'= Return      : boolean
'= Description : 首页取得专题栏目记录集
'==================================================================='
Function GetHomeSorts()
	Dim arr 

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT SORT_NAME,SORT_NAME AS SORT_LOGO,SORT_DESC,SORT_ARTICLE_NUM,SORT_ID FROM CLASS_SORT WHERE SORT_IS_OPEN=0 ORDER BY SORT_ORDER DESC,SORT_ID DESC"
	
	If Not GBL_objPubDB.SQLRSExecute() Then
		arr = "null"
	Else
		If GBL_objPubDB.intRSNum <= 0 Then
			arr = "null"
		Else
			arr = GBL_objPubDB.objPubRS.GetRows()
		End If
	End If

	GetHomeSorts = arr 
End Function

''===================================================================
'= Function    : SaveArticleLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intAdminId :  操作管理员ID
'= Input	   : intArticleId : ""--add other--edit
'= Input	   : objFormData : 表单数据
'= Return      : boolean
'= Description : 添加/编辑文章
'==================================================================='
Function SaveArticleLogic(intAdminId,intArticleId,objFormData)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	If intArticleId = "" Then
		GBL_objPubDB.SQLType = "INSERT"
		GBL_objPubDB.AddField "ARTICLE_ADD_TIME",Now()
		GBL_objPubDB.AddField "ARTICLE_ADD_ADMIN_ID",intAdminId
	Else
		GBL_objPubDB.SQLType = "UPDATE"
	End If
	GBL_objPubDB.AddField "ARTICLE_CONTENT",objFormData.Item("Content")
	GBL_objPubDB.AddField "ARTICLE_TITLE",objFormData.Item("Title")
	GBL_objPubDB.AddField "ARTICLE_KEY",objFormData.Item("Key")
	GBL_objPubDB.AddField "ARTICLE_ORDER",objFormData.Item("Order")
	GBL_objPubDB.AddField "ARTICLE_LAST_TIME",Now()
	GBL_objPubDB.AddField "ARTICLE_LAST_ADMIN_ID",intAdminId
	GBL_objPubDB.AddField "ARTICLE_SORT_ID",objFormData.Item("SortId")

	If intArticleId <> "" Then GBL_objPubDB.Where = "ARTICLE_ID=" & intArticleId

	If Not GBL_objPubDB.SQLExecute() Then
		SaveArticleLogic = False
		Exit Function
	End If

	'== 重新统计文章数
	If Not StatArticleNum(objFormData.Item("SortId")) Then 
		SaveArticleLogic = False
		Exit Function
	End If

	SaveArticleLogic = True
End Function

''===================================================================
'= Function    : RemoveArticlesLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : strWhere : 删除条件
'= Input	   : intSortId : 分类id
'= Return      : boolean
'= Description : 删除文章
'==================================================================='
Function RemoveArticlesLogic(strWhere,intSortId)	
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = " 1=1 " & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveArticlesLogic = False
		Exit Function
	End If

	If intSortId <> "" Then
		'== 重新统计文章数
		If Not StatArticleNum(intSortId) Then 
			RemoveArticlesLogic = False
			Exit Function
		End If
	End If

	RemoveArticlesLogic = True
End Function

''===================================================================
'= Function    : GetSortsLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取得文章类型集
'==================================================================='
Function GetSortsLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT SORT_ID,SORT_NAME,SORT_ADD_TIME,SORT_IS_OPEN,SORT_ORDER,SORT_DESC,SORT_IS_DEFAULT,SORT_ARTICLE_NUM FROM CLASS_SORT WHERE 1=1 " & strWhere & " ORDER BY SORT_ORDER DESC,SORT_ID DESC"
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetSortsLogic = False
		Exit Function
	End If
	GetSortsLogic = True
End Function

''===================================================================
'= Function    : GetSortLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intSortId : 信息分类ID
'= Return      : boolean
'= Description : 取单个类型记录 
'==================================================================='
Function GetSortLogic(intSortId)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "SORT_ID",""
	GBL_objPubDB.AddField "SORT_NAME",""
	GBL_objPubDB.AddField "SORT_ORDER",""
	GBL_objPubDB.AddField "SORT_DESC",""
	GBL_objPubDB.AddField "SORT_ADD_TIME",""
	GBL_objPubDB.AddField "SORT_ARTICLE_NUM",""
	GBL_objPubDB.AddField "SORT_IS_OPEN",""
	GBL_objPubDB.Where = "SORT_ID=" & intSortId
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetSortLogic = False
		Exit Function
	End If
	GetSortLogic = True
End Function