logic_config.asp

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

'= Time		   : Created At 2006-5-5
'= Input	   : intAdminId :  操作管理员 ID
'= Input	   : objFormData :  表单数据
'= Return      : boolean
'= Description : 保存网站信息
'==================================================================='
Function SaveConfigLogic(intAdminId,objFormData)

	GBL_objPubDB.Clear()
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.TableName = "CLASS_CONFIG"
	GBL_objPubDB.AddField "CONFIG_HOME_URL",objFormData.Item("HomeUrl")
	GBL_objPubDB.AddField "CONFIG_SITE_URL",objFormData.Item("SiteUrl")
	GBL_objPubDB.AddField "CONFIG_EMAIL",objFormData.Item("Email")
	GBL_objPubDB.AddField "CONFIG_CONTACT",objFormData.Item("Contact")
	GBL_objPubDB.AddField "CONFIG_RECORD",objFormData.Item("Record")
	GBL_objPubDB.AddField "CONFIG_COPY_RIGHT",objFormData.Item("CopyRight")
	GBL_objPubDB.AddField "CONFIG_CREATER", objFormData.Item("Creater")
	GBL_objPubDB.AddField "CONFIG_CREATE_TIME",objFormData.Item("CreateTime")
	GBL_objPubDB.AddField "CONFIG_SITE_NAME",objFormData.Item("SiteName")
	GBL_objPubDB.AddField "CONFIG_LAST_ADMIN_ID",intAdminId
	GBL_objPubDB.AddField "CONFIG_LAST_TIME",Now()
	If Not GBL_objPubDB.SQLRSExecute() Then
		SaveConfigLogic = False
		Exit Function
	End If

	'== 更新application数据
	If Not LoadParaLogic() Then
		SaveConfigLogic = False
		Exit Function
	End If
	SaveConfigLogic = True
End Function

''===================================================================
'= Function    : SaveSetupLogic()
'= Time		   : Created At 2006-5-5
'= Input	   : intAdminId :  操作管理员 ID
'= Input	   : objFormData :  表单数据
'= Return      : boolean
'= Description : 保存参数设置
'==================================================================='
Function SaveSetupLogic(intAdminId,objFormData)

	GBL_objPubDB.Clear()
	GBL_objPubDB.SQLType = "UPDATE"
	GBL_objPubDB.TableName = "CLASS_SETUP"
	GBL_objPubDB.AddField "SETUP_ADMIN_PER_PAGE",objFormData.Item("AdminPerPage")
	GBL_objPubDB.AddField "SETUP_USER_PER_PAGE",objFormData.Item("UserPerPage")
	GBL_objPubDB.AddField "SETUP_ALBUM_SIZE",objFormData.Item("AlbumSize")

	GBL_objPubDB.AddField "SETUP_CCID",objFormData.Item("CCID")
	GBL_objPubDB.AddField "SETUP_LISTID",objFormData.Item("ListID")
	GBL_objPubDB.AddField "SETUP_CCBUTTON",objFormData.Item("CCButton")
	GBL_objPubDB.AddField "SETUP_OPEN_LIST",objFormData.Item("OpenList")

	GBL_objPubDB.AddField "SETUP_LAST_ADMIN_ID",intAdminId
	GBL_objPubDB.AddField "SETUP_LAST_TIME",Now()
	If Not GBL_objPubDB.SQLRSExecute() Then
		SaveSetupLogic = False
		Exit Function
	End If

	'== 更新application数据
	If Not LoadParaLogic() Then
		SaveSetupLogic = False
		Exit Function
	End If
	SaveSetupLogic = True
End Function

''===================================================================
'= Function    : LoadParaLogic()
'= Time		   : Created At 2006-5-5
'= Return      : boolean
'= Description : 装入网站参数到内容中
'==================================================================='
Function LoadParaLogic()
	Dim i

	'== load config
	If Not GetConfigLogic() Then
		LoadParaLogic = False
		Exit Function
	End If
	Application.Lock()
	Application(GBL_strCookieURL & "APP_strSiteName") = GBL_objPubDB.objPubRS("CONFIG_SITE_NAME")
	Application(GBL_strCookieURL & "APP_strSiteUrl") = GBL_objPubDB.objPubRS("CONFIG_SITE_URL")
	Application(GBL_strCookieURL & "APP_strHomeUrl") = GBL_objPubDB.objPubRS("CONFIG_HOME_URL")
	Application(GBL_strCookieURL & "APP_strRecord") = GBL_objPubDB.objPubRS("CONFIG_RECORD")
	Application(GBL_strCookieURL & "APP_strEmail") = GBL_objPubDB.objPubRS("CONFIG_EMAIL")
	Application(GBL_strCookieURL & "APP_strCopyRight") = GBL_objPubDB.objPubRS("CONFIG_COPY_RIGHT")
	Application.UnLock()

	'== load config
	If Not GetAboutLogic() Then
		LoadParaLogic = False
		Exit Function
	End If
	Application.Lock()
	Application(GBL_strCookieURL & "APP_strBoard") = GBL_objPubDB.objPubRS("ABOUT_BOARD")
	Application(GBL_strCookieURL & "APP_strReg") = GBL_objPubDB.objPubRS("ABOUT_REG")
	Application.UnLock()

	'== load setup
	If Not GetSetupLogic() Then
		LoadParaLogic = False
		Exit Function
	End If
	Application.Lock()
	Application(GBL_strCookieURL & "APP_intAdminPerPage") = GBL_objPubDB.objPubRS("SETUP_ADMIN_PER_PAGE")
	Application(GBL_strCookieURL & "APP_intUserPerPage") = GBL_objPubDB.objPubRS("SETUP_USER_PER_PAGE")
	Application(GBL_strCookieURL & "APP_intUserReg") = GBL_objPubDB.objPubRS("SETUP_USER_REG")
	Application(GBL_strCookieURL & "APP_intUserRegQues") = GBL_objPubDB.objPubRS("SETUP_USER_REG_QUES")
	Application(GBL_strCookieURL & "APP_intAlbumSize") = GBL_objPubDB.objPubRS("SETUP_ALBUM_SIZE")


	Application(GBL_strCookieURL & "APP_strCCID") = GBL_objPubDB.objPubRS("SETUP_CCID")
	Application(GBL_strCookieURL & "APP_strListID") = GBL_objPubDB.objPubRS("SETUP_LISTID")
	Application(GBL_strCookieURL & "APP_strCCButton") = GBL_objPubDB.objPubRS("SETUP_CCBUTTON")
	Application(GBL_strCookieURL & "APP_strOpenList") = GBL_objPubDB.objPubRS("SETUP_OPEN_LIST")
	

	'== load time
	Application(GBL_strCookieURL & "APP_strLoadTime") = Now()

	'== load flag
	Application(GBL_strCookieURL & "APP_ConfigLoaded") = "Y" '==Y/N
	Application.UnLock()

	'== load forum master config
	If Not GetForumConfigLogic() Then
		LoadParaLogic = False
		Exit Function
	End If
	
	Dim strTmp1,strTmp2,strTmp3
	For i = 1 To GBL_objPubDB.intRSNum
		strTmp1 = strTmp1 & "|||Forum" & GBL_objPubDB.objPubRS("FORUM_ID") & "=" & GBL_objPubDB.objPubRS("FORUM_MASTER")
		strTmp2 = strTmp2 & "|||Forum" & GBL_objPubDB.objPubRS("FORUM_ID") & "=" & GBL_objPubDB.objPubRS("FORUM_MASTER_NAME")
		strTmp3 = strTmp3 & "|||Forum" & GBL_objPubDB.objPubRS("FORUM_ID") & "=" & GBL_objPubDB.objPubRS("FORUM_NAME") & "|" & GBL_objPubDB.objPubRS("FORUM_DES") & "|" & GBL_objPubDB.objPubRS("FORUM_ICO")
		GBL_objPubDB.objPubRS.MoveNext
	Next
	If Left(strTmp1,3) = "|||" Then
		strTmp1 = Right(strTmp1,Len(strTmp1) - 3)
	End If
	If Left(strTmp2,3) = "|||" Then
		strTmp2 = Right(strTmp2,Len(strTmp2) - 3)
	End If
	If Left(strTmp3,3) = "|||" Then
		strTmp3 = Right(strTmp3,Len(strTmp3) - 3)
	End If

	Application.Lock
	Application(GBL_strCookieURL & "FORUM_MASTER") = strTmp1
	Application(GBL_strCookieURL & "FORUM_MASTER_NAME") = strTmp2
	Application(GBL_strCookieURL & "FORUM_CATE") = strTmp3
	Application.UnLock

	'== 取论坛分类记录
	Dim strTmpCateName,strTmpCateId,strTmpCateLink
	If Not GetForumCatesLogic() Then
		LoadParaLogic = False
		Exit Function
	End If
	
		While Not GBL_objPubDB.objPubRS.Eof
			strTmpCateName = strTmpCateName & "|||" & GBL_objPubDB.objPubRS("CATE_NAME")
			strTmpCateId = strTmpCateId & "|||" & GBL_objPubDB.objPubRS("CATE_ID")
			GBL_objPubDB.objPubRS.MoveNext
		Wend
	If Left(strTmpCateName,3) = "|||" Then
		strTmpCateName = Right(strTmpCateName,Len(strTmpCateName) - 3)
		strTmpCateId = Right(strTmpCateId,Len(strTmpCateId) - 3)
	End If
	Application.Lock
	Application(GBL_strCookieURL & "FORUM_CATE_NAME") = strTmpCateName
	Application(GBL_strCookieURL & "FORUM_CATE_ID") = strTmpCateId
	Application(GBL_strCookieURL & "FORUM_CATE_LINK") = strTmpCateLink
	Application.Unlock()

	'== 取得论坛总版主
	GBL_objPubDB.Clear()
	GBL_objPubDB.ALLSQL = "SELECT USER_ACCOUNT,USER_ID,USER_REALNAME FROM CLASS_USER WHERE USER_AUTHEN=1"
	If Not GBL_objPubDB.SQLRSExecute() Then
		LoadParaLogic = False
		Exit Function
	End If
	Dim strMaster,strAccount,strId
	While Not GBL_objPubDB.objPubRS.Eof
		strMaster = strMaster & "|||" & GBL_objPubDB.objPubRS("USER_REALNAME")	
		strAccount = strAccount & "|||" & GBL_objPubDB.objPubRS("USER_ACCOUNT")
		strId = strId & "|||" & GBL_objPubDB.objPubRS("USER_ID")
		GBL_objPubDB.objPubRS.MoveNext
	Wend
	Application.Lock
	Application(GBL_strCookieURL & "strForumMasterName") = strMaster
	Application(GBL_strCookieURL & "strForumMasterAccount") = strAccount
	Application(GBL_strCookieURL & "strForumMasterId") = strId
	Application.Unlock()
	
	LoadParaLogic = True
End Function

%>