📄 logic_content.asp

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

''===================================================================
'= Function    : SaveSortLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intAdminId :  操作管理员ID
'= Input	   : intSortId : ""--add other--edit
'= Input	   : objFormData : 表单数据
'= Return      : boolean
'= Description : 添加/编辑文章类型
'==================================================================='
Function SaveSortLogic(intAdminId,intSortId,objFormData)

	'== 校验是否重复
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "SORT_ID",""
	If intSortId = "" Then
		GBL_objPubDB.Where = "SORT_NAME='" & objFormData.Item("Name") & "'"
	Else
		GBL_objPubDB.Where = "SORT_NAME='" & objFormData.Item("Name") & "' AND SORT_ID <>" & intSortId
	End If
	If Not GBL_objPubDB.SQLRSExecute() Then
		SaveSortLogic = False
		Exit Function
	End If
	If GBL_objPubDB.intRSNum > 0 Then
		Call GBL_objException.catchErr(E_USER_PUB,"该信息分类名(" & objFormData.Item("Name") & ")已存在")
		SaveSortLogic = False
		Exit Function
	End If

	'== 保存记录
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	If intSortId = "" Then
		GBL_objPubDB.SQLType = "INSERT"
		GBL_objPubDB.AddField "SORT_ADD_TIME",Now()
		GBL_objPubDB.AddField "SORT_ADD_ADMIN_ID",intAdminId
		GBL_objPubDB.AddField "SORT_IS_DEFAULT",CONST_SORT_NOT_DEFAULT
	Else
		GBL_objPubDB.SQLType = "UPDATE"
	End If
	GBL_objPubDB.AddField "SORT_NAME",objFormData.Item("Name")
	GBL_objPubDB.AddField "SORT_DESC",objFormData.Item("Desc")
	GBL_objPubDB.AddField "SORT_ORDER",objFormData.Item("Order")
	GBL_objPubDB.AddField "SORT_LAST_TIME",Now()
	GBL_objPubDB.AddField "SORT_LAST_ADMIN_ID",intAdminId
	GBL_objPubDB.AddField "SORT_IS_OPEN",objFormData.Item("IsOpen")
	
	If intSortId <> "" Then GBL_objPubDB.Where = "SORT_ID=" & intSortId

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

''===================================================================
'= Function    : RemoveSortsLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : strWhere : 删除条件
'= Return      : boolean
'= Description : 删除信息分类
'==================================================================='
Function RemoveSortsLogic(strWhere)	
	Dim strSql

	'== 该分类是否可以删除
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "SORT_NAME",""
	GBL_objPubDB.Where = "1=1 " & strWhere & " AND SORT_IS_DEFAULT=" & CONST_SORT_DEFAULT
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveSortsLogic = False
		Exit Function
	End If
	If GBL_objPubDB.intRSNum > 0 Then
		Call GBL_objException.catchErr(E_USER_PUB,"存在默认分类("&GBL_objPubDB.objPubRS("SORT_NAME")& "),不能进行删除操作")
		RemoveSortsLogic = False
		Exit Function
	End If

	'== 删除文章
	strSql = " AND ARTICLE_SORT_ID IN (SELECT SORT_ID FROM CLASS_SORT WHERE 1=1 " & strWhere & ")"
	If Not RemoveArticlesLogic(strSql,"") Then 
		RemoveSortsLogic = False
		Exit Function
	End If

	'== 删除分类记录
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	GBL_objPubDB.SQLType = "DELETE"
	GBL_objPubDB.Where = " 1=1 " & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		RemoveSortsLogic = False
		Exit Function
	End If
	RemoveSortsLogic = True
End Function

''===================================================================
'= Function    : StatArticleNum()
'= Time		   : Created At 2006-5-8
'= Input	   : intSortId
'= Return      : boolean
'= Description : 统计某一信息分类的数目并更新
'==================================================================='
Function StatArticleNum(intSortId)
	Dim intArticleNum

	'== 取得数目
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "COUNT(ARTICLE_ID)",""
	GBL_objPubDB.Where = "ARTICLE_SORT_ID=" & intSortId
	If Not GBL_objPubDB.SQLRSExecute() Then
		StatArticleNum = False
		Exit Function
	End If
	intArticleNum = GBL_objPubDB.objPubRS(0)

	'== 更新记录
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_SORT"
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.AddField "SORT_ARTICLE_NUM",intArticleNum
	GBL_objPubDB.Where = "SORT_ID=" & intSortId
	If Not GBL_objPubDB.SQLExecute() Then
		StatArticleNum = False
		Exit Function
	End If

	StatArticleNum = True
End Function

''===================================================================
'= Function    : GetSortIsDefaultLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intValue : 信息分类的数字
'= Return      : 信息分类默认的中文含义
'= Description : 取信息分类是否默认
'==================================================================='
Function GetSortIsDefaultLogic(intValue)
	Dim strTmp
	Select Case intValue
		Case CONST_SORT_DEFAULT:
			strTmp = "默认分类"
		Case CONST_SORT_NOT_DEFAULT:
			strTmp = "非默认分类"
		Case CONST_SORT_NOT_DEFAULT:
			strTmp = "非默认分类"
	End Select
	GetSortIsDefaultLogic = strTmp
End Function


''===================================================================
'= Function    : GetSortOpenLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : intValue : 信息分类的状态
'= Return      : 信息分类的状态的中文含义
'= Description : 取信息分类的状态
'==================================================================='
Function GetSortOpenLogic(intValue)
	Dim strTmp
	Select Case intValue
		Case CONST_SORT_OPEN:
			strTmp = "开启"
		Case CONST_SORT_CLOSE:
			strTmp = "关闭"
		Case CONST_SORT_OPEN:
			strTmp = "开启"
	End Select
	GetSortOpenLogic = strTmp
End Function

''===================================================================
'= Function    : GetArticleNavLogic()
'= Time		   : Created At 2006-5-9
'= Input	   : strWhere : 符合条件
'= Input	   : intNowId : 当前文章ID
'= Input	   : strUrl : url地址
'= Return      : html
'= Description : 构造文件导航条
'==================================================================='
Function GetArticleNavLogic(intNowId,strWhere,strUrl)
	Dim strTmp

	'== 上一篇
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "TOP 1 ARTICLE_TITLE",""
	GBL_objPubDB.AddField "ARTICLE_SORT_ID",""
	GBL_objPubDB.AddField "ARTICLE_ID",""
	GBL_objPubDB.Where = " 1=1 " & strWhere & " AND ARTICLE_ID>" & intNowId
	GBL_objPubDB.Order = "ARTICLE_ORDER DESC,ARTICLE_ID ASC"
	If Not GBL_objPubDB.SQLRSExecute() Then
		strTmp = ""
	End If
	If GBL_objPubDB.intRSNum > 0 Then
		strTmp = strTmp & "<a href=""" & strUrl & "?intArticleId=" & GBL_objPubDB.objPubRS("ARTICLE_ID") & "&intSortId=" & GBL_objPubDB.objPubRS("ARTICLE_SORT_ID") & """>" & "上一篇:" & GBL_objPubDB.objPubRS("ARTICLE_TITLE") & "</a><br>"
	Else
		strTmp = strTmp & "上一篇:已经没有了<br>"
	End If

	'== 下一篇
	GBL_objPubDB.Clear()
	GBL_objPubDB.TableName = "CLASS_ARTICLE"
	GBL_objPubDB.SQLType = "SELECT"
	GBL_objPubDB.AddField "TOP 1  ARTICLE_TITLE",""
	GBL_objPubDB.AddField "ARTICLE_SORT_ID",""
	GBL_objPubDB.AddField "ARTICLE_ID",""
	GBL_objPubDB.Where = " 1=1 " & strWhere & " AND ARTICLE_ID<" & intNowId
	GBL_objPubDB.Order = "ARTICLE_ORDER DESC,ARTICLE_ID DESC"
	If Not GBL_objPubDB.SQLRSExecute() Then
		strTmp = strTmp & ""
	End If
	If GBL_objPubDB.intRSNum > 0 Then
		strTmp = strTmp & "<a href=""" & strUrl & "?intArticleId=" & GBL_objPubDB.objPubRS("ARTICLE_ID") & "&intSortId=" & GBL_objPubDB.objPubRS("ARTICLE_SORT_ID") & """>" & "下一篇:" & GBL_objPubDB.objPubRS("ARTICLE_TITLE") & "</a><br>"
	Else
		strTmp = strTmp & "下一篇:已经没有了"
	End If

	GetArticleNavLogic = strTmp
End Function
%>
上一页 12
⌨️ 快捷键说明

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