logic_config.asp

学习管理 校友录有关的系统 本人学习的结果 与大家共享

<%
''===================================================================
'= ASP FILENAME	: /inc/logic/logic_config.asp
'= CREATED TIME : 2006-5-1
'= LAST MODIFIED: 2006-5-1
'= VERSION INFO : CCASP Framework Ver 2.0.1 ALL RIGHTS RESERVED BY www.cclinux.com
'= DESCRIPTION  : 网站信息设置业务逻辑
'= Change Log:
'==================================================================='
%>

<%
Const ABOUT_TYPE_INTRO = "ABOUT_INTRO"
Const ABOUT_TYPE_DEV = "ABOUT_DEV"
Const ABOUT_TYPE_ORG = "ABOUT_ORG"
Const ABOUT_TYPE_CONTACT = "ABOUT_CONTACT"
''===================================================================
'= Function    : GetConfigLogic()
'= Time		   : Created At 2006-5-5
'= Return      : boolean
'= Description : 取网站信息记录
'==================================================================='
Function GetConfigLogic()
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT CONFIG_ID,CONFIG_LAST_TIME,CONFIG_COPY_RIGHT,CONFIG_CONTACT,CONFIG_EMAIL,CONFIG_CREATER,CONFIG_CREATE_TIME,CONFIG_LAST_ADMIN_ID,CONFIG_SITE_NAME,CONFIG_RECORD,CONFIG_SITE_URL,CONFIG_HOME_URL FROM CLASS_CONFIG "
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetConfigLogic = False
		Exit Function
	End If
	GetConfigLogic = True
End Function

''===================================================================
'= Function    : GetForumConfigLogic()
'= Time		   : Created At 2006-5-5
'= Return      : boolean
'= Description : 取论坛设置
'==================================================================='
Function GetForumConfigLogic()
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT FORUM_ID,FORUM_NAME,FORUM_ICO,FORUM_DES,FORUM_MASTER,FORUM_MASTER_NAME FROM CLASS_FORUM"
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetForumConfigLogic = False
		Exit Function
	End If
	GetForumConfigLogic = True
End Function

''===================================================================
'= Function    : GetSetupLogic()
'= Time		   : Created At 2006-5-5
'= Return      : boolean
'= Description : 取参数设置记录
'==================================================================='
Function GetSetupLogic()
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT SETUP_LAST_ADMIN_ID,SETUP_LAST_TIME,SETUP_ALBUM_SIZE,SETUP_LISTID,SETUP_CCID,SETUP_OPEN_LIST,SETUP_CCBUTTON,SETUP_ADMIN_PER_PAGE,SETUP_USER_PER_PAGE,SETUP_USER_REG,SETUP_USER_REG_QUES FROM CLASS_SETUP"
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetSetupLogic = False
		Exit Function
	End If
	GetSetupLogic = True
End Function

''===================================================================
'= Function    : GetForumCatesLogic()
'= Time		   : Created At 2006-5-5
'= Return      : boolean
'= Description : 取论坛分类记录
'==================================================================='
Function GetForumCatesLogic()
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT CATE_ID,CATE_NAME FROM CLASS_CATE ORDER BY CATE_ID DESC"
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetForumCatesLogic = False
		Exit Function
	End If
	GetForumCatesLogic = True
End Function

''===================================================================
'= Function    : GetLinksLogic()
'= Time		   : Created At 2006-7-6
'= Return      : boolean
'= Description : 取link
'==================================================================='
Function GetLinksLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT * FROM CLASS_LINK WHERE 1=1 " & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetLinksLogic = False
		Exit Function
	End If
	GetLinksLogic = True
End Function

''===================================================================
'= Function    : GetAboutLogic()
'= Time		   : Created At 2006-7-6
'= Return      : boolean
'= Description : 取校友录介绍
'==================================================================='
Function GetAboutLogic()
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT ABOUT_INTRO,ABOUT_BOARD,ABOUT_REG,ABOUT_DEV,ABOUT_HELP,ABOUT_ORG,ABOUT_CONTACT FROM CLASS_ABOUT "
	If Not GBL_objPubDB.SQLRSExecute() Then
		GetAboutLogic = False
		Exit Function
	End If
	GetAboutLogic = True
End Function

''===================================================================
'= Function    : SaveLinkLogic()
'= Time		   : Created At 2006-7-6
'= Return      : boolean
'= Description : save校友录介绍
'==================================================================='
Function SaveLinkLogic(intLinkId,objFormData)
	GBL_objPubDB.Clear()
	GBL_objPubDB.SQLType = "INSERT"
	GBL_objPubDB.TableName = "CLASS_LINK"
	GBL_objPubDB.AddField "LINK_NAME",objFormData.Item("Name")
	GBL_objPubDB.AddField "LINK_DESC",objFormData.Item("Desc")
	GBL_objPubDB.AddField "LINK_URL",objFormData.Item("LinkUrl")
	GBL_objPubDB.AddField "LINK_LOGO_IMG",objFormData.Item("LogoLink")
	GBL_objPubDB.AddField "LINK_LOGO_SET",objFormData.Item("LogoSet")
	If Not GBL_objPubDB.SQLRSExecute() Then
		SaveLinkLogic = False
		Exit Function
	End If

	If Not LoadParaLogic() Then Exit Function

	SaveLinkLogic = True
End Function

''===================================================================
'= Function    : RemoveLinksLogic()
'= Time		   : Created At 2006-7-6
'= Return      : boolean
'= Description : 删除友情链接
'==================================================================='
Function RemoveLinksLogic(strWhere)
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "DELETE FROM CLASS_LINK WHERE 1=1 " & strWhere
	If Not GBL_objPubDB.SQLExecute() Then
		RemoveLinksLogic = False
		Exit Function
	End If
	RemoveLinksLogic = True
End Function

''===================================================================
'= Function    : MakeHtmlLinkLogic()
'= Time		   : Created At 2006-5-8
'= Input	   : strWhere 符合条件
'= Input	   : strFile  文件地址
'= Return      : boolean
'= Description : 生成友情链接的link html文件
'==================================================================='
Function MakeHtmlLinkLogic(strWhere,strFile)
	Dim strFileContent
	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT * FROM CLASS_LINK WHERE 1=1 " & strWhere
	If Not GBL_objPubDB.SQLRSExecute() Then
		MakeHtmlLinkLogic = False
		Exit Function
	End If
	While Not GBL_objPubDB.objPubRS.Eof 
		If GBL_objPubDB.objPubRS("LINK_LOGO_SET") = 0 Then
			strFileContent = strFileContent & "<center><a href='" & GBL_objPubDB.objPubRS("LINK_URL") & "' title='" & GBL_objPubDB.objPubRS("LINK_DESC") & "' target=_blank>" & GBL_objPubDB.objPubRS("LINK_NAME") & "</a></center><br>"
		Else
			strFileContent = strFileContent & "<center><a href='" & GBL_objPubDB.objPubRS("LINK_URL") & "' title='" & GBL_objPubDB.objPubRS("LINK_DESC") & "' target=_blank><img align=absmiddle src='" & GBL_objPubDB.objPubRS("LINK_LOGO_IMG") & "' border=0 alt='" & GBL_objPubDB.objPubRS("LINK_DESC") & "'></center><br>"
		End If
		GBL_objPubDB.objPubRS.MoveNext
	Wend
	
	Call fsoWriteToFile(strFileContent,strFile,10)

	MakeHtmlLinkLogic = True
End Function

''===================================================================
'= Function    : SaveAboutLogic()
'= Time		   : Created At 2006-7-6
'= Return      : boolean
'= Description : save校友录介绍
'==================================================================='
Function SaveAboutLogic(strType,objFormData)
	GBL_objPubDB.Clear()
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.TableName = "CLASS_ABOUT"
	GBL_objPubDB.AddField strType,objFormData.Item("Content")
	If Not GBL_objPubDB.SQLRSExecute() Then
		SaveAboutLogic = False
		Exit Function
	End If

	If Not LoadParaLogic() Then Exit Function

	SaveAboutLogic = True

End Function

''===================================================================
'= Function    : SaveConfigLogic()