📄 style.asp
字号:
<%
Response.CacheControl = "no-cache"
%>
<!--#include file="passinc.asp" -->
<%
dim ei
set ei = server.createobject("easymail.UserWeb")
'-----------------------------------------
ei.Load Session("wem")
dim ischangeicon
dim lang
ischangeicon = FALSE
if trim(request("maxlist")) <> "" and Request.ServerVariables("REQUEST_METHOD") = "POST" then
MailName = trim(request("MailName"))
MailName = replace(MailName, """", "'")
ei.MailName = MailName
QuestionInfo = trim(request("QuestionInfo"))
QuestionInfo = replace(QuestionInfo, """", "'")
ei.QuestionInfo = QuestionInfo
AnswerInfo = trim(request("AnswerInfo"))
AnswerInfo = replace(AnswerInfo, """", "'")
ei.AnswerInfo = AnswerInfo
HintInfo = trim(request("HintInfo"))
HintInfo = replace(HintInfo, """", "'")
ei.HintInfo = HintInfo
ReMail = trim(request("ReMail"))
ReMail = replace(ReMail, """", "'")
ei.ReMail = ReMail
ei.CharSet = trim(request("CharSet"))
if trim(request("expandFolder")) = "" then
ei.expandFolder = false
else
ei.expandFolder = true
end if
if trim(request("expandShareFolder")) = "" then
ei.expandShareFolder = false
else
ei.expandShareFolder = true
end if
if trim(request("expandPublicFolder")) = "" then
ei.expandPublicFolder = false
else
ei.expandPublicFolder = true
end if
if trim(request("enableRichEditer")) = "" then
ei.useRichEditer = false
else
ei.useRichEditer = true
end if
if trim(request("enableBackupMail")) = "" then
ei.enableBackupMail = false
else
ei.enableBackupMail = true
end if
if trim(request("defaultSign")) <> "" and IsNumeric(trim(request("defaultSign"))) = true then
ei.defaultSign = CInt(trim(request("defaultSign")))
end if
if trim(request("ShowLanguage")) <> "" and IsNumeric(trim(request("ShowLanguage"))) = true then
if ei.ShowLanguage <> CInt(trim(request("ShowLanguage"))) then
lang = "../"
end if
ei.ShowLanguage = CInt(trim(request("ShowLanguage")))
end if
if trim(request("ShowIcon")) <> "" and IsNumeric(trim(request("ShowIcon"))) = true then
if ei.ShowIcon <> CInt(trim(request("ShowIcon"))) then
ischangeicon = true
end if
ei.ShowIcon = CInt(trim(request("ShowIcon")))
end if
if trim(request("enableAutoClear")) = "" then
ei.useAutoClearTrashBox = false
else
ei.useAutoClearTrashBox = true
end if
if trim(request("autoClearDays")) <> "" and IsNumeric(trim(request("autoClearDays"))) = true then
ei.autoClearTrashBoxDays = CInt(trim(request("autoClearDays")))
else
ei.autoClearTrashBoxDays = 15
end if
if trim(request("maxlist")) <> "" then
ei.pageLines = CInt(trim(request("maxlist")))
else
ei.pageLines = 10
end if
Session("pl") = ei.pageLines
if trim(request("addo")) = 1 then
ei.orMailForReply = true
else
ei.orMailForReply = false
end if
Session("addomail") = ei.orMailForReply
if trim(request("replyf")) <> "" then
ei.addInSubjectForReply = CInt(trim(request("replyf")))
if ei.addInSubjectForReply = 0 then
Session("addsubject") = "> "
elseif ei.addInSubjectForReply = 1 then
Session("addsubject") = "Re: "
elseif ei.addInSubjectForReply = 2 then
Session("addsubject") = "Reply: "
end if
end if
if trim(request("delProc")) <> "" then
ei.delProc = CInt(trim(request("delProc")))
else
ei.delProc = 0
end if
Session("delProc") = ei.delProc
ei.save
set ei = nothing
if ischangeicon = false and lang = "" then
if err.number = 0 then
response.redirect "ok.asp?" & getGRSN() & "&gourl=style.asp"
else
response.redirect "err.asp?" & getGRSN() & "&gourl=style.asp"
end if
else
Response.Write "<SCRIPT LANGUAGE=javascript>"
if lang <> "" then
response.write "parent.parent.window.location.href = """ & lang & "welcome.asp?" & getGRSN() & """;"
else
if ischangeicon = TRUE then
Response.Write "parent.parent.window.location.href = ""welcome.asp?" & getGRSN() & """;"
end if
end if
Response.Write "</script>"
Response.End
end if
end if
%>
<HTML>
<HEAD>
<title>Corp.Email</title>
<LINK href="images\hwem.css" rel=stylesheet>
</HEAD>
<SCRIPT LANGUAGE=javascript>
<!--
function window_onload() {
<%
if ei.CharSet = "" then
%>
fm1.charSet.value = "gb2312";
<% else %>
fm1.charSet.value = "<%=ei.CharSet %>";
<% end if %>
}
function gosub() {
if (fm1.ReMail.value != "" && remailisok() == false)
{
alert("Wrong reply address.");
fm1.ReMail.focus();
return ;
}
if (fm1.HintInfo.value != "" || fm1.AnswerInfo.value != "")
{
if (fm1.QuestionInfo.value == "")
{
alert("Please enter \"question for account protection\".");
fm1.QuestionInfo.focus();
return ;
}
}
if (fm1.QuestionInfo.value != "" && fm1.AnswerInfo.value == "")
{
alert("Please enter \"the answer for account protection question\".");
fm1.AnswerInfo.focus();
return ;
}
fm1.submit();
}
function remailisok() {
var mailisok = true;
var sp = fm1.ReMail.value.indexOf("@");
if (sp == -1)
mailisok = false;
else
{
sp = fm1.ReMail.value.indexOf("@", sp + 1);
if (sp != -1)
mailisok = false;
else
{
if (fm1.ReMail.value.charAt(0) == '@' || fm1.ReMail.value.charAt(fm1.ReMail.value.length - 1) == '@')
{
mailisok = false;
}
}
}
return mailisok;
}
//-->
</SCRIPT>
<BODY LANGUAGE=javascript onload="return window_onload()">
<br><br>
<form method="post" action="style.asp" name="fm1">
<table width="90%" border="0" align="center">
<tr>
<td>
<div align="center">
<table width="498" border="0" align="center" cellspacing="0" bgcolor="#EFF7FF" style="border-top:1px #8CA5B5 solid;">
<tr>
<td width="60%" valign=center bgcolor="#dbeaf5" style='border-bottom:1px #8CA5B5 solid;'
height=30>
<div>Name of Sender: </div>
</td>
<td align=left style='border-bottom:1px #8CA5B5 solid;'>
<input type="text" name="MailName" class='textbox' value="<%=ei.MailName %>" maxlength="256">
</td>
</tr>
<tr>
<td valign=center bgcolor="#dbeaf5" style='border-bottom:1px #8CA5B5 solid;'
height=30>
<div>Send in HTML format: </div>
</td>
<td align=left style='border-bottom:1px #8CA5B5 solid;'>
<input type="checkbox" name="enableRichEditer" value="checkbox" <% if ei.useRichEditer = true then response.write "checked"%>>
</td>
</tr>
<tr>
<td valign=center bgcolor="#dbeaf5" style='border-bottom:1px #8CA5B5 solid;'
height=30>
<div>Set system display language: </div>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -