% 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 "./Mail/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") = ""
%>
| 今天是 >* 设为首页 * |
闲置设备调剂网站欢迎您!
|
![]() |
![]() |
|
|
|
Copyright © 2002-2004 盐城市生产力促进中心
all rights reserved
|
||
|
地址:盐城市开放大道61号 TEL:(0515)88333213
E-mail::ycpc@sbtj.com
| ||
|
备案序号:苏ICP备05009595号
|