📄 default.asp
字号:
<%
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") = ""
dn= LCase(Request.ServerVariables("SERVER_NAME"))
dn=split(dn,".")
Session("domain") =dn(1) & "." & dn(2)
if ubound(dn)=3 then
if dn(3)="cn" or dn(3)="hk" then
Session("domain") =Session("domain") & "."& dn(3)
end if
end if
un=un & "@"& session("domain")
dim ei
dim errmsg
errmsg = trim(request("errstr"))
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 "err.asp?errstr=" & Server.URLEncode("Error: WebEasyMail service may not have started") & "&" & 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 "err.asp?errstr=" & Server.URLEncode("Access from IP address " & rip & " denied") & "&" & getGRSN()
end if
set webkill = nothing
end if
set ei = Application("em")
Session("wem") = ""
Session("mail") = ""
Session("tid") = ""
Session("SecEx") = ""
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
Session("mail") = ei.GetUserMail(un)
set ei = 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 = 0 then
Response.Redirect "../welcome.asp"
else
Response.Redirect "welcome.asp"
end if
elseif checkret = 2 then
set ei = nothing
errmsg = "Your account has been locked for " & pwwt & " minute(s) because of 3 unsuccessful login attempts."
else
set ei = nothing
errmsg = "Invalid password, please try again."
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("mail") = ""
Session("tid") = ""
Session("SecEx") = ""
%>
<html>
<head>
<title>Corp.Mail</title>
<LINK href="images\hwem.css" rel=stylesheet>
<SCRIPT LANGUAGE=javascript>
<!--
if (top.location !== self.location) {
top.location=self.location;
}
function window_onload() {
<%
if showaccounts = "" then
%>
usernameshow.focus();
<%
else
%>
pwshow.focus();
<%
end if
if errmsg <> "" then
%>
alert("<%=errmsg %>");
<%
end if
%>
}
function gook() {
<%
if showaccounts = "" then
%>
if (usernameshow.value == "")
{
alert("User ID cannot be empty.");
usernameshow.focus();
return ;
}
<%
end if
%>
if (pwshow.value == "")
{
alert("Password cannot be empty.");
pwshow.focus();
return ;
}
<%
if showaccounts = "" then
%>
f1.saveUser.value = showsaveUser.checked;
f1.username.value = usernameshow.value;
<%
else
%>
f1.username.value = "<%=showaccounts %>";
<%
end if
%>
f1.SecEx.value = showSecEx.checked;
f1.pwhidden.value = encode(pwshow.value, parseInt(f1.picnum.value));
f1.submit();
}
function encode(datastr, bassnum) {
var tempstr;
var tchar;
var newdata = "";
for (var i = 0; i < datastr.length; i++)
{
tchar = 65535 + bassnum - datastr.charCodeAt(i);
tchar = tchar.toString();
while(tchar.length < 5)
{
tchar = "0" + tchar;
}
newdata = newdata + tchar;
}
return newdata;
}
//-->
</SCRIPT>
</head>
<body LANGUAGE=javascript onload="return window_onload()"><table align=center border=0 cellpadding=0 cellspacing=0 width=776>
<tbody>
<tr>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=64></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=142></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=41></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=49></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=27></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=453></td>
<td><img border=0 height=1 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#edf8fe colspan=6> </td>
<td><img border=0 height=23 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff rowspan=3> </td>
<td bgcolor=#ffffff rowspan=3><img border=0 height=168 name=shetuan_r2_c2
src="../images/icon/shetuan_r2_c2.gif" width=142></td>
<td bgcolor=#ffffff colspan=3> </td>
<td bgcolor=#ffffff rowspan=2>
<div align=right>
<form name="f1" method="post" action="default.asp">
<input type="hidden" name="username">
<input type="hidden" name="pwhidden">
<input type="hidden" name="picnum" value="<%=createRnd() %>">
<input type="hidden" name="saveUser">
<input type="hidden" name="SecEx">
</form>
</div>
</td>
<td><img border=0 height=24 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=3>
<div align=center><font face="Verdana, Arial, Helvetica, sans-serif"><%=session("domain")%></font></div>
</td>
<td><img border=0 height=21 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff> </td>
<td bgcolor=#ffffff rowspan=2><img border=0 height=233 name=shetuan_r4_c4
src="../images/icon/shetuan_r4_c4.gif" width=49></td>
<td bgcolor=#ffffff colspan=2 rowspan=2>
<table align=center border=0 cellpadding=0 cellspacing=0 width="99%">
<tbody>
<tr>
<td height=40>
<table cellspacing=0 cellpadding=0 align=center border=0>
<tbody>
<tr>
<td nowrap height="30" width="14"> </td>
<td nowrap colspan="-1"><font class="s">
<%
if showaccounts = "" then
%>
<b>UserName: </b></font>
<input type="text" name="usernameshow" maxlength="64" class="textbox" size="13">
<font color=#3399ff><img height=15
src="../images/icon/icon1.gif" width=15 1><font
size=3><b><font
face="Geneva, Arial, Helvetica, san-serif"><%=session("domain")%></font></b></font></font>
<%
else
%>
<b>UserName: </b><b><font class="s" color="#000099"><%=showaccounts %></font></b>
<%
end if
%>
</td>
</tr>
<tr>
<td nowrap height="30" width="14"></td>
<td nowrap colspan="-1"> <font class="s"><b> PassWord: </b></font>
<input type="password" name="pwshow" maxlength="32" class="textbox" size="13">
<font class="s" color="#000000">
<%
if showaccounts = "" then
%>
<input type="checkbox" name="showSecEx">
Increased security
<input type="checkbox" name="showsaveUser">
Remember my ID </font>
<%
else
%>
<font class="s" color="#000000">
<input type="checkbox" name="showSecEx">
Increased security <a href="default.asp?cleancookies=true">Switch account</a>
<%
end if
%>
</font> </td>
</tr>
<tr>
<td colspan="2" nowrap height="35">
<input type="image" border="0" name="button_login" src="../images/login.gif" width="44" height="18" onClick="javascript:gook()">
<input type="image" border="0" name="button_login" src="../images/password.gif" width="67" height="18" onClick="javascript:location.href='forgetbf.asp'"></td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td class=d
height=63> </td>
</tr>
<tr>
<td class=d height=40>
<div align=right><img height=13 src="../images/icon/help.gif"
width=36></div>
</td>
</tr>
</tbody>
</table>
</td>
<td><img border=0 height=123 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff rowspan=3><img border=0 height=259 name=shetuan_r5_c1
src="../images/icon/shetuan_r5_c1.gif" width=64></td>
<td bgcolor=#ffffff colspan=2><img border=0 height=110 name=shetuan_r5_c2
src="../images/icon/shetuan_r5_c2.gif" width=183></td>
<td><img border=0 height=110 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=2 rowspan=2><img border=0 height=149
name=shetuan_r6_c2 src="../images/icon/shetuan_r6_c2.gif" width=183></td>
<td bgcolor=#ffffff colspan=2><img border=0 height=85 name=shetuan_r6_c4
src="../images/icon/shetuan_r6_c4.gif" width=76></td>
<td bgcolor=#4994bf> </td>
<td><img border=0 height=85 src="../images/icon/spacer.gif" width=1></td>
</tr>
<tr>
<td bgcolor=#ffffff colspan=3>
</td>
<td><img border=0 height=64 src="../images/icon/spacer.gif"
width=1></td>
</tr>
</tbody>
</table>
</body>
</html>
<%
function getGRSN()
dim theGRSN
Randomize
theGRSN = Int((9999999 * Rnd) + 1)
getGRSN = "GRSN=" & CStr(theGRSN)
end function
function createRnd()
dim retval
retval = getGRSN()
if Len(retval) > 4 then
retval = Right(retval, 4)
end if
if Left(retval, 1) = "0" then
retval = "5" & Right(retval, 3)
end if
createRnd = retval
end function
function strDecode(sd_Data, sd_bassnum)
dim sd_vChar
dim sd_NewData
dim sd_TempChar
sd_vChar = 1
do
if sd_vChar > Len(sd_Data) then
exit do
end if
sd_TempChar = CLng(Mid(sd_Data, sd_vChar, 5))
sd_TempChar = ChrW(65535 + sd_bassnum - sd_TempChar)
sd_NewData = sd_NewData & sd_TempChar
sd_vChar = sd_vChar + 5
loop
strDecode = sd_NewData
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 + -