You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
203 lines
8.5 KiB
203 lines
8.5 KiB
<%
|
|
'-------------------------------------------------------------------------
|
|
' POP3 Mail Add-in - General include file
|
|
' Copyright (C) Microsoft Corporation. All rights reserved.
|
|
'-------------------------------------------------------------------------
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Global Constants
|
|
'-------------------------------------------------------------------------
|
|
Const RES_DLL_NAME = "pop3msg.dll"
|
|
|
|
Const AUTH_AD = "ef9d811e-36c5-497f-ade7-2b36df172824"
|
|
Const AUTH_SAM = "14f1665c-e3d3-46aa-884f-ed4cf19d7ad5"
|
|
Const AUTH_FILE = "c395e20c-2236-4af7-b736-54fad07dc526"
|
|
|
|
Const LOGGING_NONE = 0
|
|
Const LOGGING_MINIMUM = 1
|
|
Const LOGGING_MEDIUM = 2
|
|
Const LOGGING_MAXIMUM = 3
|
|
|
|
Const PARAM_LOCKFLAG = "LOCKFLAG"
|
|
Const LOCKFLAG_LOCK = "LOCK"
|
|
Const LOCKFLAG_UNLOCK = "UNLOCK"
|
|
|
|
Const PARAM_DOMAINNAME = "DOMAINNAME"
|
|
|
|
Const SESSION_POP3DOMAINNAME = "POP3DOMAINNAME"
|
|
|
|
Const BYTES_PER_MB = 1048576 '1024^2
|
|
Const BYTES_PER_KB = 1024
|
|
|
|
|
|
'-------------------------------------------------------------------------
|
|
' Message IDs
|
|
'-------------------------------------------------------------------------
|
|
Const POP3_TASKS = "&H40010008"
|
|
Const POP3_E_UNEXPECTED = "&HC0010010"
|
|
' Master settings
|
|
Const POP3_PAGETITLE_MASTERSETTINGS = "&H40010080"
|
|
Const POP3_CAPTION_MASTERSETTINGS_AUTHENTICATION = "&H40010088"
|
|
Const POP3_AUTHENTICATION_ACTIVEDIRECTORY = "&H40010090"
|
|
Const POP3_AUTHENTICATION_WINDOWSACCOUNTS = "&H40010098"
|
|
Const POP3_AUTHENTICATION_FILE = "&H400100A0"
|
|
Const POP3_CAPTION_MASTERSETTINGS_PORT = "&H400100B0"
|
|
Const POP3_CAPTION_MASTERSETTINGS_LOGGING = "&H400100B8"
|
|
Const POP3_LOGGING_NONE = "&H400100C0"
|
|
Const POP3_LOGGING_MINIMUM = "&H400100C8"
|
|
Const POP3_LOGGING_MEDIUM = "&H400100D0"
|
|
Const POP3_LOGGING_MAXIMUM = "&H400100D8"
|
|
Const POP3_CAPTION_MASTERSETTINGS_MAILROOT = "&H400100E0"
|
|
Const POP3_CAPTION_MASTERSETTINGS_CREATEUSERS = "&H400100E8"
|
|
Const POP3_PROMPT_MAILROOTCONFIRM = "&H400100F0"
|
|
Const POP3_PROMPT_SERVICERESTART_POP3SVC = "&H400100F1"
|
|
Const POP3_PROMPT_SERVICERESTART_POP3SVC_SMTP = "&H400100F2"
|
|
Const POP3_E_INVALIDPORT = "&HC00100F8"
|
|
Const POP3_CAPTION_MASTERSETTINGS_REQUIRESPA = "&H40010010"
|
|
' Domains OTS
|
|
Const POP3_PAGETITLE_DOMAINS = "&H40010100"
|
|
Const POP3_TABLECAPTION_DOMAINS = "&H40010108"
|
|
Const POP3_TASK_DOMAINS_NEW = "&H40010110"
|
|
Const POP3_TASKCAPTION_DOMAINS_NEW = "&H40010118"
|
|
Const POP3_TASK_DOMAINS_DELETE = "&H40010120"
|
|
Const POP3_TASKCAPTION_DOMAINS_DELETE = "&H40010128"
|
|
Const POP3_TASK_DOMAINS_MAILBOXES = "&H40010130"
|
|
Const POP3_TASKCAPTION_DOMAINS_MAILBOXES = "&H40010138"
|
|
Const POP3_TASK_DOMAINS_LOCK = "&H40010140"
|
|
Const POP3_TASKCAPTION_DOMAINS_LOCK = "&H40010148"
|
|
Const POP3_TASK_DOMAINS_UNLOCK = "&H40010150"
|
|
Const POP3_TASKCAPTION_DOMAINS_UNLOCK = "&H40010158"
|
|
Const POP3_COL_DOMAIN_NAME = "&H40010160"
|
|
Const POP3_COL_DOMAIN_MAILBOXES = "&H40010168"
|
|
Const POP3_COL_DOMAIN_SIZE = "&H40010170"
|
|
Const POP3_COL_DOMAIN_MESSAGES = "&H40010178"
|
|
Const POP3_COL_DOMAIN_LOCKED = "&H40010180"
|
|
Const POP3_DOMAIN_LOCKED_YES = "&H40010188"
|
|
Const POP3_DOMAIN_LOCKED_NO = "&H40010190"
|
|
' Domains Add
|
|
Const POP3_PAGETITLE_DOMAINS_NEW = "&H40010200"
|
|
Const POP3_CAPTION_DOMAINS_NEW_NAME = "&H40010208"
|
|
Const POP3_CAPTION_DOMAINS_NEW_CREATEUSERS = "&H40010210"
|
|
Const POP3_CAPTION_DOMAINS_NEW_SETAUTH = "&H40010218"
|
|
' Domains Delete
|
|
Const POP3_PAGETITLE_DOMAINS_DELETE = "&H40010250"
|
|
Const POP3_PROMPT_DOMAINS_DELETE = "&H40010258"
|
|
Const POP3_PAGETITLE_DOMAINS_DELETEERROR = "&H40010260"
|
|
Const POP3_PROMPT_DOMAINS_DELETEERROR = "&H40010268"
|
|
Const POP3_PROMPT_DOMAINS_DELETERETRY = "&H40010270"
|
|
' Domains Lock/Unlock
|
|
Const POP3_PAGETITLE_DOMAINS_LOCKERROR = "&H400102A0"
|
|
Const POP3_PROMPT_DOMAINS_LOCKERROR = "&H400102A8"
|
|
Const POP3_PAGETITLE_DOMAINS_UNLOCKERROR = "&H400102B0"
|
|
Const POP3_PROMPT_DOMAINS_UNLOCKERROR = "&H400102B8"
|
|
Const POP3_PROMPT_DOMAINS_LOCKRETRY = "&H400102C0"
|
|
' Mailboxes OTS
|
|
Const POP3_PAGETITLE_MAILBOXES = "&H40010300"
|
|
Const POP3_TABLECAPTION_MAILBOXES = "&H40010308"
|
|
Const POP3_TASK_MAILBOXES_NEW = "&H40010310"
|
|
Const POP3_TASKCAPTION_MAILBOXES_NEW = "&H40010318"
|
|
Const POP3_TASK_MAILBOXES_DELETE = "&H40010320"
|
|
Const POP3_TASKCAPTION_MAILBOXES_DELETE = "&H40010328"
|
|
Const POP3_TASK_MAILBOXES_LOCK = "&H40010330"
|
|
Const POP3_TASKCAPTION_MAILBOXES_LOCK = "&H40010338"
|
|
Const POP3_TASK_MAILBOXES_UNLOCK = "&H40010340"
|
|
Const POP3_TASKCAPTION_MAILBOXES_UNLOCK = "&H40010348"
|
|
Const POP3_COL_MAILBOX_NAME = "&H40010350"
|
|
Const POP3_COL_MAILBOX_SIZE = "&H40010358"
|
|
Const POP3_COL_MAILBOX_MESSAGES = "&H40010360"
|
|
Const POP3_COL_MAILBOX_LOCKED = "&H40010368"
|
|
Const POP3_MAILBOX_LOCKED_YES = "&H40010370"
|
|
Const POP3_MAILBOX_LOCKED_NO = "&H40010378"
|
|
' Mailboxes Add
|
|
Const POP3_PAGETITLE_MAILBOXES_NEW = "&H40010400"
|
|
Const POP3_CAPTION_MAILBOXES_NEW_NAME = "&H40010408"
|
|
Const POP3_CAPTION_MAILBOXES_NEW_PASSWORD = "&H40010410"
|
|
Const POP3_CAPTION_MAILBOXES_NEW_CONFIRMPASSWORD = "&H40010418"
|
|
Const POP3_CAPTION_MAILBOXES_NEW_CREATEUSERS = "&H40010420"
|
|
Const POP3_E_PASSWORDMISMATCH = "&HC0010428"
|
|
' Mailboxes Delete
|
|
Const POP3_PAGETITLE_MAILBOXES_DELETE = "&H40010480"
|
|
Const POP3_PROMPT_MAILBOXES_DELETE = "&H40010488"
|
|
Const POP3_PAGETITLE_MAILBOXES_DELETEERROR = "&H40010490"
|
|
Const POP3_PROMPT_MAILBOXES_DELETEERROR = "&H40010498"
|
|
Const POP3_PROMPT_MAILBOXES_DELETERETRY = "&H400104A0"
|
|
Const POP3_CAPTION_MAILBOXES_DELETEUSER = "&H400104A8"
|
|
' Mailboxes Lock/Unlock
|
|
Const POP3_PAGETITLE_MAILBOXES_LOCKERROR = "&H40010500"
|
|
Const POP3_PROMPT_MAILBOXES_LOCKERROR = "&H40010508"
|
|
Const POP3_PAGETITLE_MAILBOXES_UNLOCKERROR = "&H40010510"
|
|
Const POP3_PROMPT_MAILBOXES_UNLOCKERROR = "&H40010518"
|
|
Const POP3_PROMPT_MAILBOXES_LOCKRETRY = "&H40010520"
|
|
' Size Factors
|
|
Const POP3_FACTOR_MB = "&H40010600"
|
|
Const POP3_FACTOR_KB = "&H40010608"
|
|
|
|
|
|
'**********************************************************************
|
|
'* H E L P E R S U B R O U T I N E S
|
|
'**********************************************************************
|
|
'---------------------------------------------------------------------
|
|
' GetDomainName
|
|
'---------------------------------------------------------------------
|
|
Function GetDomainName()
|
|
'
|
|
' Check whether the name was passed on the query string.
|
|
'
|
|
If (Request.QueryString(PARAM_DOMAINNAME).Count > 0) Then
|
|
GetDomainName = Request.QueryString(PARAM_DOMAINNAME).Item(1)
|
|
Else
|
|
'
|
|
' The value wasn't in the query string. Check the session
|
|
' variable.
|
|
'
|
|
If (Session(SESSION_POP3DOMAINNAME) <> "") Then
|
|
GetDomainName = Session(SESSION_POP3DOMAINNAME)
|
|
Else
|
|
GetDomainName = ""
|
|
End If
|
|
End If
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' CalculateDiskUsage
|
|
'---------------------------------------------------------------------
|
|
Function CalculateDiskUsage(nBytes, nFactor, bInKB)
|
|
If ( bInKB ) Then
|
|
CalculateDiskUsage = nBytes * nFactor / BYTES_PER_KB
|
|
Else
|
|
CalculateDiskUsage = nBytes * nFactor / BYTES_PER_MB
|
|
End If
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' GetSortableNumber
|
|
'
|
|
' Pads a given number with leading zeros so it can be alphabetically
|
|
' compared to other numbers for correct sorting. This will handle
|
|
' numbers up to 999,999,999,999.
|
|
'
|
|
'---------------------------------------------------------------------
|
|
Function GetSortableNumber(nNumber)
|
|
Dim strPadding
|
|
strPadding = "000000000000"
|
|
|
|
Dim strNumber
|
|
strNumber = FormatNumber(nNumber, 0, -1, 0, 0)
|
|
|
|
GetSortableNumber = Left(strPadding, Len(strPadding) - Len(strNumber)) & strNumber
|
|
End Function
|
|
|
|
'---------------------------------------------------------------------
|
|
' HandleUnexpectedError
|
|
'
|
|
' Wraps SA_SetErrMsg to handle verbose error messages.
|
|
'
|
|
'---------------------------------------------------------------------
|
|
Function HandleUnexpectedError
|
|
Dim oConfig, sErrDesc
|
|
Set oConfig = Server.CreateObject("P3Admin.P3Config")
|
|
oConfig.GetFormattedMessage CLng(Err.number), sErrDesc
|
|
HandleUnexpectedError = sErrDesc
|
|
End Function
|
|
|
|
%>
|