?? 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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -