<% Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" %> <% un = trim(request("username")) pw = trim(request("pwhidden")) saveUser = trim(request("saveUser")) cleancookies = trim(request("cleancookies")) if cleancookies = "true" then Response.Cookies("accounts") = "" end if showaccounts = trim(request.Cookies("accounts")) Response.Cookies("name") = "" dim ei dim errmsg errmsg = trim(request("errstr")) if IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then dim mam set mam = server.createobject("easymail.AdminManager") tmp_num = 0 do while tmp_num < 30 mam.LoadExt if mam.IsLoadOK = true then Exit Do end if mam.Sleep 500 tmp_num = tmp_num + 1 loop if mam.IsLoadOK = true then Application("em_MaxMPOP3") = mam.MaxMPOP3 Application("em_MaxSigns") = mam.MaxSigns Application("em_SystemAdmin") = LCase(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") = LCase(mam.TestAccounts) Application("em_SignMode") = mam.SignMode Application("em_SignWaitDays") = mam.SignWaitDays Application("em_am_Name") = mam.am_Name Application("em_am_Accounts") = LCase(mam.am_Accounts) Application("em_AccountsAdmin") = LCase(mam.AccountsAdmin) Application("em_EnableTrap") = mam.EnableTrap if mam.EnableTrap = true then Application("em_TrapMail") = mam.TrapMail end if set mam = nothing else set mam = nothing response.redirect "outerr.asp?errstr=" & Server.URLEncode("超时, 请重试") & "&" & getGRSN() end if end if if un <> "" and pw <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then un = LCase(un) pw = strDecode(pw, trim(request("picnum"))) if un <> Application("em_SystemAdmin") then dim webkill set webkill = server.createobject("easymail.WebKill") webkill.Load rip = Request.ServerVariables("REMOTE_ADDR") if webkill.IsKill(rip) = true then set webkill = nothing response.redirect "outerr.asp?errstr=" & Server.URLEncode("拒绝IP地址 " & rip & " 访问") & "&" & getGRSN() end if set webkill = nothing end if set ei = Application("em") Session("wem") = "" Session("mail") = "" Session("tid") = "" Session("SecEx") = "" Session("scpw") = "" Session("cert_ca") = "" dim pwwt pwwt = ei.PassWordWaitMinute dim checkret checkret = ei.CheckPassWordEx(un, pw, Request.ServerVariables("REMOTE_ADDR")) if checkret = 0 then if un = Application("em_SystemAdmin") and ei.CheckAdminIP(Request.ServerVariables("REMOTE_ADDR")) = false then set ei = nothing errmsg = "管理员登录IP地址错误。" else Session("tid") = ei.Login(un) Session("wem") = un Session("mail") = ei.GetUserMail(un) set ei = nothing dim mri set mri = server.createobject("easymail.MoreRegInfo") mri.LoadRegInfo un mri.CurrentlyIP = Request.ServerVariables("REMOTE_ADDR") mri.SaveRegInfo set mri = nothing if saveUser = "true" then Response.Cookies("accounts") = un Response.Cookies("accounts").Expires = DateAdd("y", 5, Now()) end if SecEx = trim(request("SecEx")) if SecEx = "true" then Session("SecEx") = "1" else Session("SecEx") = "0" end if dim userweb set userweb = server.createobject("easymail.UserWeb") userweb.Load Session("wem") ShowLanguage = userweb.ShowLanguage set userweb = nothing if ShowLanguage = 1 then Response.Redirect "en/welcome.asp" else Response.Redirect "welcome.asp" end if end if elseif checkret = 2 then set ei = nothing errmsg = "连续三次输入密码错误,请过" & pwwt & "分钟后再试。" else set ei = nothing errmsg = "错误的用户名或密码!请再次输入。" end if end if if trim(request("logout")) = "true" then if Session("wem") <> "" then Application("em").Logout Session("wem"), Session("tid") end if Session("wem") = "" Session("mail") = "" Session("tid") = "" Session("SecEx") = "" Session("scpw") = "" Session("cert_ca") = "" end if %> 维晨信息网络-邮局系统

 

维晨信息网络企业邮局系统

 
用户名: 
密  码: 
增强安全性   记住用户名


 

 

126 邮 局 系 统

用户名:

密 码:
      
 
<% if Application("em_EnableTrap") = true then %> <% end if %>