/website/ewcfg8.asp
ASP | 290 lines | 201 code | 41 blank | 48 comment | 0 complexity | 290b0a4be1e705f33f9b09c59e4cc9f4 MD5 | raw file
- <%
-
- ' ASPMaker 8 configuration file
- ' - contains all web site configuration settings
-
- Const EW_PROJECT_NAME = "z76F462A57CFB7EDF" ' Project Name
- Const EW_MAX_EMAIL_RECIPIENT = 3
-
- ' Language settings
- Const EW_LANGUAGE_FOLDER = "lang/"
- Dim EW_LANGUAGE_FILE(0)
- EW_LANGUAGE_FILE(0) = Array("Ch", "", "Chinese.xml")
- Const EW_LANGUAGE_DEFAULT_ID = "Ch"
- Dim EW_SESSION_LANGUAGE_FILE_CACHE
- EW_SESSION_LANGUAGE_FILE_CACHE = EW_PROJECT_NAME & "_LanguageFile_4zjUv8xwFYN0uj2d" ' Language File Cache
- Dim EW_SESSION_LANGUAGE_CACHE
- EW_SESSION_LANGUAGE_CACHE = EW_PROJECT_NAME & "_Language_4zjUv8xwFYN0uj2d" ' Language Cache
- Dim EW_SESSION_LANGUAGE_ID
- EW_SESSION_LANGUAGE_ID = EW_PROJECT_NAME & "_LanguageId" ' Language ID
-
- ' Response.Buffer setting
- Const EW_RESPONSE_BUFFER = True
-
- ' Menu
- Const EW_ITEM_TEMPLATE_CLASSNAME = "ewTemplate"
- Const EW_ITEM_TABLE_CLASSNAME = "ewItemTable"
-
- ' Debug flag
- Const EW_DEBUG_ENABLED = False ' True to debug / False to skip
-
- ' Remove XSS
- Const EW_REMOVE_XSS = True ' True to Remove XSS / False to skip
-
- ' XSS Array
- Dim EW_XSS_ARRAY
- EW_XSS_ARRAY = Array("javascript", "vbscript", "expression", "<applet", "<meta", "<xml", "<blink", "<link", "<style", "<script", "<embed", "<object", "<iframe", "<frame", "<frameset", "<ilayer", "<layer", "<bgsound", "<title", "<base", _
- "onabort", "onactivate", "onafterprint", "onafterupdate", "onbeforeactivate", "onbeforecopy", "onbeforecut", "onbeforedeactivate", "onbeforeeditfocus", "onbeforepaste", "onbeforeprint", "onbeforeunload", "onbeforeupdate", "onblur", "onbounce", "oncellchange", "onchange", "onclick", "oncontextmenu", "oncontrolselect", "oncopy", "oncut", "ondataavailable", "ondatasetchanged", "ondatasetcomplete", "ondblclick", "ondeactivate", "ondrag", "ondragend", "ondragenter", "ondragleave", "ondragover", "ondragstart", "ondrop", "onerror", "onerrorupdate", "onfilterchange", "onfinish", "onfocus", "onfocusin", "onfocusout", "onhelp", "onkeydown", "onkeypress", "onkeyup", "onlayoutcomplete", "onload", "onlosecapture", "onmousedown", "onmouseenter", "onmouseleave", "onmousemove", "onmouseout", "onmouseover", "onmouseup", "onmousewheel", "onmove", "onmoveend", "onmovestart", "onpaste", "onpropertychange", "onreadystatechange", "onreset", "onresize", "onresizeend", "onresizestart", "onrowenter", "onrowexit", "onrowsdelete", "onrowsinserted", "onscroll", "onselect", "onselectionchange", "onselectstart", "onstart", "onstop", "onsubmit", "onunload")
-
- ' Session names
- Dim EW_SESSION_STATUS
- EW_SESSION_STATUS = EW_PROJECT_NAME & "_Status" ' Login Status
- Dim EW_SESSION_USER_NAME
- EW_SESSION_USER_NAME = EW_SESSION_STATUS & "_UserName" ' User Name
- Dim EW_SESSION_USER_ID
- EW_SESSION_USER_ID = EW_SESSION_STATUS & "_UserID" ' User ID
- Dim EW_SESSION_USER_PROFILE, EW_SESSION_USER_PROFILE_USER_NAME, EW_SESSION_USER_PROFILE_PASSWORD, EW_SESSION_USER_PROFILE_LOGIN_TYPE
- EW_SESSION_USER_PROFILE = EW_SESSION_STATUS & "_UserProfile" ' User Profile
- EW_SESSION_USER_PROFILE_USER_NAME = EW_SESSION_USER_PROFILE & "_UserName"
- EW_SESSION_USER_PROFILE_PASSWORD = EW_SESSION_USER_PROFILE & "_Password"
- EW_SESSION_USER_PROFILE_LOGIN_TYPE = EW_SESSION_USER_PROFILE & "_LoginType"
- Dim EW_SESSION_USER_LEVEL_ID
- EW_SESSION_USER_LEVEL_ID = EW_SESSION_STATUS & "_UserLevel" ' User Level ID
- Dim EW_SESSION_USER_LEVEL
- EW_SESSION_USER_LEVEL = EW_SESSION_STATUS & "_UserLevelValue" ' User Level
- Dim EW_SESSION_PARENT_USER_ID
- EW_SESSION_PARENT_USER_ID = EW_SESSION_STATUS & "_ParentUserID" ' Parent User ID
- Dim EW_SESSION_SYS_ADMIN
- EW_SESSION_SYS_ADMIN = EW_PROJECT_NAME & "_SysAdmin" ' System Admin
- Dim EW_SESSION_AR_USER_LEVEL
- EW_SESSION_AR_USER_LEVEL = EW_PROJECT_NAME & "_arUserLevel" ' User Level Array
- Dim EW_SESSION_AR_USER_LEVEL_PRIV
- EW_SESSION_AR_USER_LEVEL_PRIV = EW_PROJECT_NAME & "_arUserLevelPriv" ' User Level Privilege Array
- Dim EW_SESSION_SECURITY
- EW_SESSION_SECURITY = EW_PROJECT_NAME & "_Security" ' Security Array
- Dim EW_SESSION_MESSAGE
- EW_SESSION_MESSAGE = EW_PROJECT_NAME & "_Message" ' System Message
- Dim EW_SESSION_INLINE_MODE
- EW_SESSION_INLINE_MODE = EW_PROJECT_NAME & "_InlineMode" ' Inline Mode
-
- ' Css file name
- Const EW_PROJECT_STYLESHEET_FILENAME = "z76f462a57cfb7edf.css"
-
- ' Database settings
- Dim EW_DB_CONNECTION_STRING ' DB Connection String
- EW_DB_CONNECTION_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("#JXW_DRSystem.mdb") & ";"
- Const EW_DB_QUOTE_START = "["
- Const EW_DB_QUOTE_END = "]"
- Const EW_IS_MSACCESS = True ' Access
- Const EW_IS_MSSQL = False ' MS SQL
- Const EW_IS_MYSQL = False ' MySQL
- Const EW_IS_ORACLE = False ' Oracle
- Const EW_CURSORLOCATION = 2 ' Cursor location
- Const EW_DATATYPE_NUMBER = 1
- Const EW_DATATYPE_DATE = 2
- Const EW_DATATYPE_TIME = 7
- Const EW_DATATYPE_STRING = 3
- Const EW_DATATYPE_BOOLEAN = 4
- Const EW_DATATYPE_GUID = 5
- Const EW_DATATYPE_OTHER = 6
- Const EW_COMPOSITE_KEY_SEPARATOR = "," ' Composite key separator
- Const EW_EMAIL_KEYWORD_SEPARATOR = "" ' Email keyword separator
- Const EW_EMAIL_CHARSET = "gb2312" ' Email charset
- Const EW_HIGHLIGHT_COMPARE = 1 ' Highlight compare mode
- Const EW_ROWTYPE_VIEW = 1 ' Row type view
- Const EW_ROWTYPE_ADD = 2 ' Row type add
- Const EW_ROWTYPE_EDIT = 3 ' Row type edit
- Const EW_ROWTYPE_SEARCH = 4 ' Row type search
- Const EW_ROWTYPE_MASTER = 5 ' Row type master record
- Const EW_ROWTYPE_AGGREGATEINIT = 6 ' Row type aggregate init
- Const EW_ROWTYPE_AGGREGATE = 7 ' Row type aggregate
-
- ' Table specific names
- Const EW_TABLE_REC_PER_PAGE = "RecPerPage" ' Records per page
- Const EW_TABLE_START_REC = "start" ' Start record
- Const EW_TABLE_PAGE_NO = "pageno" ' Page number
- Const EW_TABLE_BASIC_SEARCH = "psearch" ' Basic search keyword
- Const EW_TABLE_BASIC_SEARCH_TYPE = "psearchtype" ' Basic search type
- Const EW_TABLE_ADVANCED_SEARCH = "advsrch" ' Advanced search
- Const EW_TABLE_SEARCH_WHERE = "searchwhere" ' Search where clause
- Const EW_TABLE_WHERE = "where" ' Table where
- Const EW_TABLE_WHERE_LIST = "where_list" ' Table where (list page)
- Const EW_TABLE_ORDER_BY = "orderby" ' Table order by
- Const EW_TABLE_ORDER_BY_LIST = "orderby_list" ' Table order by (list page)
- Const EW_TABLE_SORT = "sort" ' Table sort
- Const EW_TABLE_KEY = "key" ' Table key
- Const EW_TABLE_SHOW_MASTER = "showmaster" ' Table show master
- Const EW_TABLE_MASTER_TABLE = "MasterTable" ' Master table
- Const EW_TABLE_MASTER_FILTER = "MasterFilter" ' Master filter
- Const EW_TABLE_DETAIL_FILTER = "DetailFilter" ' Detail filter
- Const EW_TABLE_RETURN_URL = "return" ' Return url
- Const EW_TABLE_EXPORT_RETURN_URL = "exportreturn" ' Export return url
-
- ' Audit Trail
- Const EW_AUDIT_TRAIL_TO_DATABASE = False ' Write audit trail to DB
- Const EW_AUDIT_TRAIL_TABLE_NAME = "" ' Audit trail table name
- Const EW_AUDIT_TRAIL_FIELD_NAME_DATETIME = "" ' Audit trail DateTime field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_SCRIPT = "" ' Audit trail Script field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_USER = "" ' Audit trail User field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_ACTION = "" ' Audit trail Action field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_TABLE = "" ' Audit trail Table field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_FIELD = "" ' Audit trail Field field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_KEYVALUE = "" ' Audit trail Key Value field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_OLDVALUE = "" ' Audit trail Old Value field name
- Const EW_AUDIT_TRAIL_FIELD_NAME_NEWVALUE = "" ' Audit trail New Value field name
-
- ' Security specific
- Const EW_AUDIT_TRAIL_PATH = "" ' Audit trail path
- Const EW_ADMIN_USER_NAME = "" ' Administrator user name
- Const EW_ADMIN_PASSWORD = "" ' Administrator password
- Const EW_MD5_PASSWORD = True ' MD5 password
- Const EW_CASE_SENSITIVE_PASSWORD = False ' Case Sensitive password
-
- ' User level constants
- Const EW_USER_LEVEL_COMPAT = True ' Use old user level values
-
- 'Const EW_USER_LEVEL_COMPAT = False ' Use new user level values (separate values for View/Search)
- Const EW_ALLOW_ADD = 1 ' Add
- Const EW_ALLOW_DELETE = 2 ' Delete
- Const EW_ALLOW_EDIT = 4 ' Edit
- Const EW_ALLOW_LIST = 8 ' List
- Dim EW_ALLOW_VIEW, EW_ALLOW_SEARCH ' View / Search
- If EW_USER_LEVEL_COMPAT Then
- EW_ALLOW_VIEW = 8 ' View
- EW_ALLOW_SEARCH = 8 ' Search
- Else
- EW_ALLOW_VIEW = 32 ' View
- EW_ALLOW_SEARCH = 64 ' Search
- End If
- Const EW_ALLOW_REPORT = 8 ' Report
- Const EW_ALLOW_ADMIN = 16 ' Admin
-
- ' Hierarchical User ID
- Const EW_USER_ID_IS_HIERARCHICAL = True ' True to show all level / False to show 1 level
-
- ' Use subquery for master/detail user id checking
- Const EW_USE_SUBQUERY_FOR_MASTER_USER_ID = False ' True to use subquery / False to skip
-
- ' User table filters
- Const EW_USER_NAME_FILTER = "([????] = '%u')"
- Const EW_USER_ID_FILTER = ""
- Const EW_USER_EMAIL_FILTER = ""
- Const EW_USER_ACTIVATE_FILTER = ""
- Const EW_USER_PROFILE_FIELD_NAME = ""
-
- ' User Profile Constants
- Const EW_USER_PROFILE_KEY_SEPARATOR = "="
- Const EW_USER_PROFILE_FIELD_SEPARATOR = ","
- Const EW_USER_PROFILE_SESSION_ID = "SessionID"
- Const EW_USER_PROFILE_LAST_ACCESSED_DATE_TIME = "LastAccessedDateTime"
- Const EW_USER_PROFILE_SESSION_TIMEOUT = 20
- Const EW_USER_PROFILE_LOGIN_RETRY_COUNT = "LoginRetryCount"
- Const EW_USER_PROFILE_LAST_BAD_LOGIN_DATE_TIME = "LastBadLoginDateTime"
- Const EW_USER_PROFILE_MAX_RETRY = 3
- Const EW_USER_PROFILE_RETRY_LOCKOUT = 20
- Const EW_USER_PROFILE_LAST_PASSWORD_CHANGED_DATE = "LastPasswordChangedDate"
- Const EW_USER_PROFILE_PASSWORD_EXPIRE = 90
-
- ' Date separator / format
- Const EW_DATE_SEPARATOR = "/"
- Const EW_DEFAULT_DATE_FORMAT = 5
-
- ' Email related constants
- Const EW_SMTP_SERVER = "localhost" ' Smtp server
- Const EW_SMTP_SERVER_PORT = 25 ' Smtp server port
- Const EW_SMTP_SERVER_USERNAME = "" ' Smtp server user name
- Const EW_SMTP_SERVER_PASSWORD = "" ' Smtp server password
- Const EW_SENDER_EMAIL = "" ' Sender email
- Const EW_RECIPIENT_EMAIL = "" ' Receiver email
-
- 'Const EW_MAX_EMAIL_RECIPIENT = 3 ' already defined in shared
- Const EW_MAX_EMAIL_SENT_COUNT = 3
- Dim EW_EXPORT_EMAIL_COUNTER
- EW_EXPORT_EMAIL_COUNTER = EW_SESSION_STATUS & "_EmailCounter"
-
- ' File upload constants
- Const EW_UPLOAD_DEST_PATH = "upfile/" ' Upload destination path
- Const EW_UPLOAD_ALLOWED_FILE_EXT = "gif,jpg,jpeg,bmp,png,doc,xls,pdf,zip" ' Allowed file extensions
- Const EW_UPLOAD_CHARSET = "gb2312" ' Upload charset
- Const EW_MAX_FILE_SIZE = 2000000 ' Max file size
- Const EW_THUMBNAIL_DEFAULT_WIDTH = 0 ' Thumbnail default width
- Const EW_THUMBNAIL_DEFAULT_HEIGHT = 0 ' Thumbnail default height
- Const EW_THUMBNAIL_DEFAULT_INTERPOLATION = 1 ' Thumbnail default interpolation
-
- ' Export original value
- Const EW_EXPORT_ORIGINAL_VALUE = False ' True to export original value
- Const EW_EXPORT_FIELD_CAPTION = False ' True to export field caption
- Const EW_EXPORT_CSS_STYLES = True ' True to export css styles
-
- ' Use token in Url
- Const EW_USE_TOKEN_IN_URL = False ' do not use token in url
-
- ' Const EW_USE_TOKEN_IN_URL = True ' use token in url
- ' Search multi value option
- ' 1 - no multi value
- ' 2 - AND all multi values
- ' 3 - OR all multi values
-
- Const EW_SEARCH_MULTI_VALUE_OPTION = 3
-
- ' Validate option
- Const EW_CLIENT_VALIDATE = True
- Const EW_SERVER_VALIDATE = True
-
- ' Blob field byte count for Hash value calculation
- Const EW_BLOB_FIELD_BYTE_COUNT = 200
-
- ' Cookie expiry time
- Const EW_COOKIE_EXPIRY_TIME = 365
-
- ' -------------------------------------
- ' ASPMaker 8 global variables (begin)
- '
- ' Global variables
- ' Common
-
- Dim Page ' Common page object
- Dim Language ' Language object
- Dim gsLanguage ' Current language
- Dim EW_PAGE_ID ' Page ID
- Dim EW_TABLE_NAME ' Table name
- Dim Conn, Rs, RsDtl, i
- Dim Security
- Dim UserProfile
- Dim ObjForm
- Dim PagerItem
- Dim EventArgs
- Dim StartTimer ' Start timer
-
- ' Used by ValidateForm/ValidateSearch
- Dim gsFormError, gsSearchError
-
- ' Used by *master.asp
- Dim gsMasterReturnUrl
-
- ' Used by header.asp, export checking
- Dim gsExport, gsExportFile
- Dim gsEmailSender, gsEmailRecipient, gsEmailCc, gsEmailBcc, gsEmailSubject, gsEmailContent, gsEmailContentType
- Dim gsEmailErrNo, gsEmailErrDesc
-
- ' Used by system generated functions
- Dim sSqlWrk, sWhereWrk, RsWrk, ari, arwrk, armultiwrk, rowswrk, rowcntwrk, selwrk, jswrk, emptywrk
- Dim sFilterWrk
-
- ' Lookup
- Dim EW_RECORD_DELIMITER, EW_FIELD_DELIMITER
- EW_RECORD_DELIMITER = vbCr
- EW_FIELD_DELIMITER = "|"
-
- '
- ' ASPMaker 8 global variables (end)
- ' -----------------------------------
-
- %>
- <!--#include file="ewruserlevel.asp"-->
- <%
-
- ' Menu
- Const EW_MENUBAR_CLASSNAME = "ewMenuBarVertical"
- Const EW_MENUBAR_SUBMENU_CLASSNAME = ""
- %>