www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > inc/logic/logic_collection.asp

    <%
''===================================================================
'= ASP FILENAME	: /inc/logic/logic_collection.asp
'= CREATED TIME : 2006-5-6
'= LAST MODIFIED: 2006-5-6
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 用户收藏业务逻辑
'= Change Log:
'==================================================================='
%>

<%
Const CONST_COLLECTION_TYPE_USER	= 0		'== 用户收藏
Const CONST_COLLECTION_TYPE_TOPIC	= 1		'== 帖子收藏
Const CONST_COLLECTION_TYPE_ALBUM	= 2		'== 相片收藏

''===================================================================
'= Function    : GetCollectionLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取得收藏记录
'==================================================================='
Function GetCollectionLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_COLLECTION"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "COLLECTION_ID",""
	GBL_objPubDB.AddField "COLLECTION_OID",""
	GBL_objPubDB.AddField "COLLECTION_TYPE",""
	GBL_objPubDB.AddField "COLLECTION_OWNER_ID",""
	GBL_objPubDB.Where = " 1=1 " & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetCollectionLogic = False
		Exit Function
	End If
	GetCollectionLogic = True
End Function

''===================================================================
'= Function    : GetCollectionsLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : strWhere : 符合条件
'= Return      : boolean
'= Description : 取得收藏记录
'==================================================================='
Function GetCollectionsLogic(intType,strWhere)
	Dim strSql
	If intType = CONST_COLLECTION_TYPE_USER Then
		strSql = "SELECT USER_REALNAME,USER_ADD_DATE,USER_CLASS,USER_SEX,USER_ACCOUNT,USER_ID, CLASS_COLLECTION.* FROM CLASS_USER,CLASS_COLLECTION WHERE COLLECTION_OID=USER_ID AND COLLECTION_TYPE=" & intType & strWhere
	ElseIf intType = CONST_COLLECTION_TYPE_TOPIC Then
		strSql = "SELECT TOPICS_LAST_POSTER,TOPICS_LAST_POST,TOPICS_REPLY_FORBID,FORUM_NAME,TOPICS_FORUM_ID,TOPICS_CONTENT,TOPICS_OWNER,TOPICS_TITLE,TOPICS_ID,TOPICS_STATUS,TOPICS_HITS,TOPICS_REPLIES,CLASS_COLLECTION.* FROM CLASS_TOPICS,CLASS_FORUM,CLASS_COLLECTION WHERE TOPICS_FORUM_ID=FORUM_ID AND  COLLECTION_OID=TOPICS_ID AND COLLECTION_TYPE=" & intType & strWhere
	ElseIf intType = CONST_COLLECTION_TYPE_ALBUM Then
		strSql = "SELECT ALBUM_IMG_FILE,ALBUM_ADD_TIME,ALBUM_TITLE,ALBUM_OWNER_ID,ALBUM_STATUS,USER_REALNAME,CLASS_COLLECTION.* FROM CLASS_USER,CLASS_ALBUM,CLASS_COLLECTION WHERE USER_ID=ALBUM_OWNER_ID AND  COLLECTION_OID=ALBUM_ID AND COLLECTION_TYPE=" & intType & strWhere
	End If
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = strSql
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetCollectionsLogic = False
		Exit Function
	End If
	GetCollectionsLogic = True
End Function

''===================================================================
'= Function    : SaveCollectionLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intUserId : 用户ID
'= Input	   : objFormData : 表单数据(OID,Type)
'= Return      : boolean
'= Description : 新收藏
'==================================================================='
Function SaveCollectionLogic(intUserId,objFormData)
	Dim strSql

	'== 校验是否存在
	strSql = " AND COLLECTION_OWNER_ID=" & intUserId & " AND COLLECTION_OID=" & objFormData.Item("OID") & " AND COLLECTION_TYPE=" &  objFormData.Item("Type")
	If Not GetCollectionLogic(strSql) Then 
		SaveCollectionLogic = False
		Exit Function
	End If
	If GBL_objPubDB.intRSNum > 0 Then
		Call GBL_objException.catchErr(E_USER_PUB,"您已添加该收藏")
		SaveCollectionLogic = False
		Exit Function
	End If

	'== 保存记录
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_COLLECTION"
	GBL_objPubDB.SQLType = "INSERT"
	GBL_objPubDB.AddField "COLLECTION_TYPE",objFormData.Item("Type")
	GBL_objPubDB.AddField "COLLECTION_OID",objFormData.Item("OID")
	GBL_objPubDB.AddField "COLLECTION_OWNER_ID",intUserId
	GBL_objPubDB.AddField "COLLECTION_ADD_TIME",Now()
	If Not GBL_objPubDB.SQLExecute() Then
		SaveCollectionLogic = False
		Exit Function
	End If
	SaveCollectionLogic = True
End Function

''===================================================================
'= Function    : RemoveCollectionLogic(intUserId,strWhere)
'= Time		   : Created At 2006-6-24
'= Input	   : intUserId : 用户ID
'= Input	   : strWhere : 
'= Return      : boolean
'= Description : 删除收藏
'==================================================================='
Function RemoveCollectionLogic(intUserId,strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_COLLECTION"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.AddField "COLLECTION_OWNER_ID",intUserId
	GBL_objPubDB.WHERE = "1=1" & strWhere
	If Not GBL_objPubDB.SQLExecute() Then
		RemoveCollectionLogic = False
		Exit Function
	End If
	RemoveCollectionLogic = True
End Function
%>