/website/ewcfg8.asp

<%



' 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 = ""

%>