📄 actionit.asp
字号:
<%
if IsEmpty(Application("em_MaxFolders")) and IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then
TimeDelaySeconds(5)
dim mam
set mam = server.createobject("easymail.AdminManager")
mam.Load
if mam.IsLoadOK = true then
Application("em_MaxFolders") = mam.MaxFolders
Application("em_MaxMPOP3") = mam.MaxMPOP3
Application("em_MaxSigns") = mam.MaxSigns
Application("em_SystemAdmin") = mam.SystemAdmin
Application("em_EnableBBS") = mam.EnableBBS
Application("em_Enable_SignHold") = mam.Enable_SignHold
Application("em_Enable_FreeSign") = mam.Enable_FreeSign
Application("em_Enable_SignWithDomainUser") = mam.Enable_SignWithDomainUser
Application("em_Enable_SignNumberLimit") = mam.Enable_SignNumberLimit
Application("em_SignNumberLimitDays") = mam.SignNumberLimitDays
Application("em_Enable_ShareFolder") = mam.Enable_ShareFolder
Application("em_Enable_SignEnglishName") = mam.Enable_SignEnglishName
Application("em_LogPageKSize") = mam.LogPageKSize
Application("em_TestAccounts") = mam.TestAccounts
Application("em_SignMode") = mam.SignMode
Application("em_SignWaitDays") = mam.SignWaitDays
Application("em_am_Name") = mam.am_Name
Application("em_am_Accounts") = mam.am_Accounts
set mam = nothing
else
set mam = nothing
Response.Redirect "default.asp?errstr=" & Server.URLEncode("Error: WebEasyMail service may not have started.") & "&" & getGRSN()
end if
end if
accode = trim(request("accode"))
dim isok
isok = false
dim pr
set pr = server.createobject("easymail.PendRegister")
pr.Load Application("em_SignWaitDays")
if pr.ActionIt(accode) = true then
isok = true
pr.Save
end if
set pr = nothing
if trim(request("thispage")) <> "" and trim(request("gourl")) <> "" then
response.redirect "pendreg.asp?" & getGRSN() & "&page=" & trim(request("thispage"))
end if
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<BODY>
<br><br>
<table width="100%"><tr><td width="30"></td><td>
<table border=0 cellspacing=0 cellpadding=0 width="90%">
<tr bgcolor="#93BEE2">
<%
if accode = "" or isok = false then
%>
<td height="30" style='border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;' colspan="2"><font class="Wf" color="#104A7B"> <b>Mailbox account activation failed</b>.</font></td>
<%
else
%>
<td height="30" style='border-top:1px #8CA5B5 solid; border-right:1px #8CA5B5 solid;' colspan="2"><font class="Wf" color="#104A7B"> <b>Mailbox account activation successful</b>.</font></td>
<%
end if
%>
</tr>
<br>
<tr><td><br><hr size="1" color="#8CA5B5"></td></tr>
<tr><td align="right" colspan="2"><br>
<input type="button" value=" OK " onclick="javascript:location.href='default.asp';" class="Bsbttn">
</td></tr></table>
</td></tr></table>
</body>
</html>
<%
function getGRSN()
dim theGRSN
Randomize
theGRSN = Int((9999999 * Rnd) + 1)
getGRSN = "GRSN=" & CStr(theGRSN)
end function
function TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
while SecCount < DelaySeconds + 1
Sec1 = Second(Time())
if Sec1 <> Sec2 then
Sec2 = Second(Time())
SecCount = SecCount + 1
end if
wend
end function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -