<% Response.Expires=0 %>
<%
un = trim(request("username"))
pw = trim(request("password"))
Response.Cookies("name") = ""
dim ei
if un <> "" and pw <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
set ei = Application("em")
Session("wem") = ""
dim pwwt
pwwt = ei.PassWordWaitMinute
dim checkret
checkret = ei.CheckPassWordEx(un, pw, Request.ServerVariables("REMOTE_ADDR"))
if checkret = 0 then
Session("tid") = ei.Login(un)
Session("wem") = un
set ei = nothing
if IsEmpty(Application("em_MaxFolders")) and IsEmpty(Application("em_MaxMPOP3")) and IsEmpty(Application("em_MaxSigns")) then
dim mam
set mam = server.createobject("easymail.AdminManager")
mam.Load
Application("em_EnableMDB") = mam.EnableMDB
Application("em_MaxFolders") = mam.MaxFolders
Application("em_MaxMPOP3") = mam.MaxMPOP3
Application("em_MaxSigns") = mam.MaxSigns
Application("em_SystemAdmin") = mam.SystemAdmin
set mam = nothing
end if
Response.Redirect "http://www.sbtj.com/WebEasyMail/welcome.asp"
elseif checkret = 2 then
set ei = nothing
Response.Write "连续三次输入密码错误，请过" & pwwt & "分钟后再试。 "
else
set ei = nothing
Response.Write "密码错误！请再次输入。 "
end if
end if
if Session("wem") <> "" then
set ei = Application("em")
ei.Logout Session("wem"), Session("tid")
set ei = nothing
end if
Session("wem") = ""
Session("tid") = ""
%>
闲置设备调剂网站
