📄 global_variables_inc.asp
字号:
intThreadsPerPage = CInt(rsCommon("Threads_per_page"))
intSpamTimeLimitSeconds = CInt(rsCommon("Spam_seconds"))
intSpamTimeLimitMinutes = CInt(rsCommon("Spam_minutes"))
intMaxPollChoices = CInt(rsCommon("Vote_choices"))
blnEmailMessenger = CBool(rsCommon("Email_sys"))
blnActiveUsers = CBool(rsCommon("Active_users"))
blnForumClosed = CBool(rsCommon("Forums_closed"))
blnShowEditUser = CBool(rsCommon("Show_edit"))
blnShowProcessTime = CBool(rsCommon("Process_time"))
blnFlashFiles = CBool(rsCommon("Flash"))
blnShowMod = CBool(rsCommon("Show_mod"))
blnAvatarUploadEnabled = CBool(rsCommon("Upload_avatar"))
blnRegistrationSuspeneded = CBool(rsCommon("Reg_closed"))
strUploadComponent = rsCommon("Upload_component")
strImageTypes = rsCommon("Upload_img_types")
intUploadMaxImageSize = CInt(rsCommon("Upload_img_size"))
strUploadFileTypes = rsCommon("Upload_files_type")
intUploadMaxFileSize = CInt(rsCommon("Upload_files_size"))
intUploadAllocatedSpace = CInt(rsCommon("Upload_allocation"))
strMailServerUser = rsCommon("Mail_username")
strMailServerPass = rsCommon("Mail_password")
strCSSfile = rsCommon("Skin_file")
strImagePath = rsCommon("Skin_image_path")
strNavSpacer = rsCommon("Skin_nav_spacer")
blnTopicIcon = CBool(rsCommon("Topic_icon"))
blnLongRegForm = CBool(rsCommon("Long_reg"))
blnCAPTCHAsecurityImages = CBool(rsCommon("CAPTCHA"))
blnCalendar = CBool(rsCommon("Calendar"))
blnGuestSessions = CBool(rsCommon("Guest_SID"))
blnMemberApprove = CBool(rsCommon("Member_approve"))
blnRSS = CBool(rsCommon("RSS"))
strInstallID = rsCommon("Install_ID")
intPmFlood = CInt(rsCommon("PM_Flood"))
blnACode = CBool(rsCommon("A_Code"))
blnWebWizNewsPad = CBool(rsCommon("NewsPad"))
strWebWizNewsPadURL = rsCommon("NewsPad_URL")
'If we are using application level variables the configuration into the application level variables
If blnUseApplicationVariables AND strCSSfile <> "" Then
'Lock the application so only one user updates it at a time
Application.Lock
'read in the configuration details from the recordset
Application(strAppPrefix & "strWebsiteName") = strWebsiteName
Application(strAppPrefix & "strMainForumName") = strMainForumName
Application(strAppPrefix & "strWebsiteURL") = strWebsiteURL
Application(strAppPrefix & "strForumPath") = strForumPath
Application(strAppPrefix & "strMailComponent") = strMailComponent
Application(strAppPrefix & "strMailServer") = strMailServer
Application(strAppPrefix & "strForumEmailAddress") = strForumEmailAddress
Application(strAppPrefix & "blnLCode") = CBool(blnLCode)
Application(strAppPrefix & "blnEmail") = CBool(blnEmail)
Application(strAppPrefix & "blnTextLinks") = blnTextLinks
Application(strAppPrefix & "blnRTEEditor") = CBool(blnRTEEditor)
Application(strAppPrefix & "intTopicPerPage") = CInt(intTopicPerPage)
Application(strAppPrefix & "strTitleImage") = strTitleImage
Application(strAppPrefix & "blnEmoticons") = CBool(blnEmoticons)
Application(strAppPrefix & "blnAvatar") = CBool(blnAvatar)
Application(strAppPrefix & "blnEmailActivation") = CBool(blnEmailActivation)
Application(strAppPrefix & "intNumHotViews") = CInt(intNumHotViews)
Application(strAppPrefix & "intNumHotReplies") = CInt(intNumHotReplies)
Application(strAppPrefix & "blnSendPost") = CBool(blnSendPost)
Application(strAppPrefix & "blnPrivateMessages") = CBool(blnPrivateMessages)
Application(strAppPrefix & "intNumPrivateMessages") = CInt(intNumPrivateMessages)
Application(strAppPrefix & "intThreadsPerPage") = CInt(intThreadsPerPage)
Application(strAppPrefix & "intSpamTimeLimitSeconds") = CInt(intSpamTimeLimitSeconds)
Application(strAppPrefix & "intSpamTimeLimitMinutes") = CInt(intSpamTimeLimitMinutes)
Application(strAppPrefix & "intMaxPollChoices") = CInt(intMaxPollChoices)
Application(strAppPrefix & "blnEmailMessenger") = CBool(blnEmailMessenger)
Application(strAppPrefix & "blnActiveUsers") = CBool(blnActiveUsers)
Application(strAppPrefix & "blnForumClosed") = CBool(blnForumClosed)
Application(strAppPrefix & "blnShowEditUser") = CBool(blnShowEditUser)
Application(strAppPrefix & "blnShowProcessTime") = CBool(blnShowProcessTime)
Application(strAppPrefix & "blnFlashFiles") = CBool(blnFlashFiles)
Application(strAppPrefix & "blnShowMod") = CBool(blnShowMod)
Application(strAppPrefix & "blnAvatarUploadEnabled") = CBool(blnAvatarUploadEnabled)
Application(strAppPrefix & "blnRegistrationSuspeneded") = CBool(blnRegistrationSuspeneded)
Application(strAppPrefix & "strUploadComponent") = strUploadComponent
Application(strAppPrefix & "strImageTypes") = strImageTypes
Application(strAppPrefix & "intUploadMaxImageSize") = CInt(intUploadMaxImageSize)
Application(strAppPrefix & "strUploadFileTypes") = strUploadFileTypes
Application(strAppPrefix & "intUploadMaxFileSize") = CInt(intUploadMaxFileSize)
Application(strAppPrefix & "intUploadAllocatedSpace") = CInt(intUploadAllocatedSpace)
Application(strAppPrefix & "strMailServerUser") = strMailServerUser
Application(strAppPrefix & "strMailServerPass") = strMailServerPass
Application(strAppPrefix & "strCSSfile") = strCSSfile
Application(strAppPrefix & "strNavSpacer") = strNavSpacer
Application(strAppPrefix & "strImagePath") = strImagePath
Application(strAppPrefix & "blnTopicIcon") = CBool(blnTopicIcon)
Application(strAppPrefix & "blnLongRegForm") = CBool(blnLongRegForm)
Application(strAppPrefix & "blnCAPTCHAsecurityImages") = CBool(blnCAPTCHAsecurityImages)
Application(strAppPrefix & "blnCalendar") = CBool(blnCalendar)
Application(strAppPrefix & "blnGuestSessions") = CBool(blnGuestSessions)
Application(strAppPrefix & "blnMemberApprove") = CBool(blnMemberApprove)
Application(strAppPrefix & "blnRSS") = CBool(blnRSS)
Application(strAppPrefix & "strInstallID") = strInstallID
Application(strAppPrefix & "intPmFlood") = CInt(intPmFlood)
Application(strAppPrefix & "blnACode") = CBool(blnACode)
Application(strAppPrefix & "blnWebWizNewsPad") = CBool(blnWebWizNewsPad)
Application(strAppPrefix & "strWebWizNewsPadURL") = strWebWizNewsPadURL
'Set the configuartion set application variable to true
Application(strAppPrefix & "blnConfigurationSet") = True
'Unlock the application
Application.UnLock
End If
End If
'Close the recordset
rsCommon.Close
'If an error has occurred write an error to the page
If Err.Number <> 0 Then Call errorMsg("An error initialising Global Variables from database.", "getForumConfigurationData()_get_global_variables", "global_variables_inc.asp")
'Disable error trapping
On Error goto 0
'If we are using application level variables for the forum configuration then load in the variables from the application variables.
ElseIf blnUseApplicationVariables Then
'read in the configuration details from the application varaibales
strWebsiteName = Application(strAppPrefix & "strWebsiteName")
strMainForumName = Application(strAppPrefix & "strMainForumName")
strWebsiteURL = Application(strAppPrefix & "strWebsiteURL")
strForumPath = Application(strAppPrefix & "strForumPath")
strMailComponent = Application(strAppPrefix & "strMailComponent")
strMailServer = Application(strAppPrefix & "strMailServer")
strForumEmailAddress = Application(strAppPrefix & "strForumEmailAddress")
blnLCode = CBool(Application(strAppPrefix & "blnLCode"))
blnEmail = CBool(Application(strAppPrefix & "blnEmail"))
blnTextLinks = Application(strAppPrefix & "blnTextLinks")
blnRTEEditor = CBool(Application(strAppPrefix & "blnRTEEditor"))
intTopicPerPage = CInt(Application(strAppPrefix & "intTopicPerPage"))
strTitleImage = Application(strAppPrefix & "strTitleImage")
blnEmoticons = CBool(Application(strAppPrefix & "blnEmoticons"))
blnAvatar = CBool(Application(strAppPrefix & "blnAvatar"))
blnEmailActivation = CBool(Application(strAppPrefix & "blnEmailActivation"))
intNumHotViews = CInt(Application(strAppPrefix & "intNumHotViews"))
intNumHotReplies = CInt(Application(strAppPrefix & "intNumHotReplies"))
blnSendPost = CBool(Application(strAppPrefix & "blnSendPost"))
blnPrivateMessages = CBool(Application(strAppPrefix & "blnPrivateMessages"))
intNumPrivateMessages = CInt(Application(strAppPrefix & "intNumPrivateMessages"))
intThreadsPerPage = CInt(Application(strAppPrefix & "intThreadsPerPage"))
intSpamTimeLimitSeconds = CInt(Application(strAppPrefix & "intSpamTimeLimitSeconds"))
intSpamTimeLimitMinutes = CInt(Application(strAppPrefix & "intSpamTimeLimitMinutes"))
intMaxPollChoices = CInt(Application(strAppPrefix & "intMaxPollChoices"))
blnEmailMessenger = CBool(Application(strAppPrefix & "blnEmailMessenger"))
blnActiveUsers = CBool(Application(strAppPrefix & "blnActiveUsers"))
blnForumClosed = CBool(Application(strAppPrefix & "blnForumClosed"))
blnShowEditUser = CBool(Application(strAppPrefix & "blnShowEditUser"))
blnShowProcessTime = CBool(Application(strAppPrefix & "blnShowProcessTime"))
blnFlashFiles = CBool(Application(strAppPrefix & "blnFlashFiles"))
blnShowMod = CBool(Application(strAppPrefix & "blnShowMod"))
blnAvatarUploadEnabled = CBool(Application(strAppPrefix & "blnAvatarUploadEnabled"))
blnRegistrationSuspeneded = CBool(Application(strAppPrefix & "blnRegistrationSuspeneded"))
strImageTypes = Application(strAppPrefix & "strImageTypes")
strUploadComponent = Application(strAppPrefix & "strUploadComponent")
intUploadMaxImageSize = Cint(Application(strAppPrefix & "intUploadMaxImageSize"))
strUploadFileTypes = Application(strAppPrefix & "strUploadFileTypes")
intUploadMaxFileSize = CInt(Application(strAppPrefix & "intUploadMaxFileSize"))
intUploadAllocatedSpace = CInt(Application(strAppPrefix & "intUploadAllocatedSpace"))
strMailServerUser = Application(strAppPrefix & "strMailServerUser")
strMailServerPass = Application(strAppPrefix & "strMailServerPass")
strCSSfile = Application(strAppPrefix & "strCSSfile")
strNavSpacer = Application(strAppPrefix & "strNavSpacer")
strImagePath = Application(strAppPrefix & "strImagePath")
blnTopicIcon = CBool(Application(strAppPrefix & "blnTopicIcon"))
blnLongRegForm = CBool(Application(strAppPrefix & "blnLongRegForm"))
blnCAPTCHAsecurityImages = CBool(Application(strAppPrefix & "blnCAPTCHAsecurityImages"))
blnCalendar = CBool(Application(strAppPrefix & "blnCalendar"))
blnGuestSessions = CBool(Application(strAppPrefix & "blnGuestSessions"))
blnMemberApprove = CBool(Application(strAppPrefix & "blnMemberApprove"))
blnRSS = CBool(Application(strAppPrefix & "blnRSS"))
strInstallID = Application(strAppPrefix & "strInstallID")
intPmFlood = CInt(Application(strAppPrefix & "intPmFlood"))
blnACode = CBool(Application(strAppPrefix & "blnACode"))
blnWebWizNewsPad = CBool(Application(strAppPrefix & "blnWebWizNewsPad"))
strWebWizNewsPadURL = Application(strAppPrefix & "strWebWizNewsPadURL")
End If
'***** START WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'Set the installation ID
If strInstallID = "" OR isNull(strInstallID) Then
strInstallID = "Free Express Edition Install"
blnACode = True
blnLCode = True
End If
If blnACode OR strInstallID = "" Then
strUploadComponent = "none"
intUploadMaxFileSize = 0
intUploadMaxImageSize = 0
intUploadAllocatedSpace = 0
blnPrivateMessages = False
blnCalendar = False
End If
'***** END WARNING - REMOVAL OR MODIFICATION OF THIS CODE WILL VIOLATE THE LICENSE AGREEMENT ******
'If someone has placed the default.asp in the path to the forum then remove it as it's not needed
strForumPath = Replace(strForumPath, "default.asp", "")
'Make sure the web addresses has a / on the end
If Mid(strForumPath, len(strForumPath), 1) <> "/" Then strForumPath = strForumPath & "/"
If Mid(strImagePath, len(strImagePath), 1) <> "/" Then strImagePath = strImagePath & "/"
'If Web Wiz NewsPad is enabled make sure we have the correct path
If isNull(strWebWizNewsPadURL) = False AND NOT strWebWizNewsPadURL = "" Then
strWebWizNewsPadURL = Replace(strWebWizNewsPadURL, "default.asp", "")
'Make sure the web addresses has a / on the end
If Mid(strWebWizNewsPadURL, len(strWebWizNewsPadURL), 1) <> "/" Then strWebWizNewsPadURL = strWebWizNewsPadURL & "/"
End If
'Check the CSS file path
If isNull(strCSSfile) = False Then
If Mid(strCSSfile, len(strCSSfile), 1) <> "/" Then strCSSfile = strCSSfile & "/"
End If
'Check the client browser version
strClientBrowserVersion = browserDetect()
'If the cleint browser is IE 6 of below then display GIF's for some of the images
If strClientBrowserVersion = "MSIE6-" Then
strForumImageType = "gif"
Else
strForumImageType = "png"
End If
'If the admin needs to approve the membership, disable email activation for the user
If blnMemberApprove Then blnEmailActivation = false
'For demo mode
If blnDemoMode Then
blnSendPost = False
strMailComponent = ""
blnEmailActivation = False
strForumEmailAddress = ""
blnEmailMessenger = False
blnAvatarUploadEnabled = False
blnRegistrationSuspeneded = False
intUploadAllocatedSpace = 0
blnForumClosed = False
blnMemberApprove = False
blnPrivateMessages = True
blnCalendar = True
blnEmail = False
End If
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -