|
|
将以下代码保存为：top.asp 替换即可．
<!--#include file="passinc.asp" -->
<%
Session("svcal") = ""
dim ischange
ischange = FALSE
if trim(request("mode")) <> "" then
dim pf
set pf = server.createobject("easymail.PerFolders")
pf.Load Session("wem")
if trim(request("mode")) = "del" then
if pf.DeleteFolderByName(trim(request("pfname"))) = FALSE then
response.write "*错误: 请先清空文件夹[" & server.htmlencode(trim(request("pfname"))) & "]后再删除."
else
ischange = TRUE
end if
elseif trim(request("mode")) = "add" then
if pf.MaxPerFolderNumber > pf.FolderCount then
NewName = trim(request("NewName"))
NewName = replace(NewName, Chr(9), " ")
NewName = replace(NewName, """", "")
NewName = replace(NewName, "'", "")
pf.AddFolder NewName
ischange = TRUE
else
response.write "*错误: 私人文件夹数已满."
end if
elseif trim(request("mode")) = "rename" then
NewName = trim(request("NewName"))
NewName = replace(NewName, """", "'")
if pf.CanSetWithReceiveOutMail(NewName) = false and pf.Get_EnableRecOutMail(trim(request("pfname"))) = true then
response.write "*错误: 修改允许接收外部邮件的私人文件夹名称时, 新名称不合法."
else
pf.RenameFolder trim(request("pfname")), NewName
ischange = TRUE
end if
end if
if ischange = TRUE then
pf.Save
end if
set pf = nothing
end if
noticemsg = trim(request("noticemsg"))
dim am
set am = server.createobject("easymail.Attachments")
am.Load Session("wem"), Session("tid")
am.RemoveAll
set am = nothing
'-----------------------------------------
dim eusers
set eusers = Application("em")
maxsize = eusers.GetMailBoxSize(Session("wem"))
set eusers = nothing
if maxsize < 0 then
maxsize = 10000
end if
dim ei
set ei = server.createobject("easymail.InfoList")
'-----------------------------------------
ei.LoadSizeInfo Session("wem")
cursize = ei.allMailSize
dim bf
if maxsize > 0 then
bf = CLng((100 * CLng(cursize / 1000)) / maxsize)
if bf = 0 then
if cursize > 0 then
bf = 1
else
bf = 0
end if
end if
else
bf = 100
end if
if bf > 100 then
bf = 100
end if
if bf < 0 then
bf = 0
end if
dim all_mailnum
dim all_mailnewnum
dim all_mailsize
all_mailnum = 0
all_mailnewnum = 0
all_mailsize = 0
%>
<HTML><HEAD><TITLE>电子邮局</TITLE>
<META http-equiv=Content-Type c>
<SCRIPT language=javascript src="welcome/date.js"></SCRIPT>
<script type="text/javascript" language="JavaScript1.2" src="itcount/mystat.asp?style=no"></script>
<LINK href="welcome/hwem.css" rel=stylesheet>
<STYLE type=text/css>
A {
TEXT-DECORATION: none
}
BODY {
MARGIN: 0px;
background-image: url(163/bg2.gif);
}
.STYLE2 {
FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #ffffff
}
A:link {
}
.style3 {color: #990000}
.STYLE4 {color: #5892BC}
.STYLE5 {color: #3366FF}
</STYLE>
<SCRIPT language=javascript>
<!--
function window_onload() {
}
function deletepf() {
if (f1.pfName.selectedIndex != -1)
{
f1.mode.value = "del";
f1.submit();
}
}
function add() {
if (f1.NewName.value.indexOf("\"") != -1 || f1.NewName.value.indexOf("'") != -1)
{
alert("包含非法字符");
return;
}
if (f1.NewName.value != "")
{
f1.mode.value = "add";
f1.submit();
}
}
function rename() {
if (f1.NewName.value.indexOf("\"") != -1 || f1.NewName.value.indexOf("'") != -1)
{
alert("包含非法字符");
return;
}
if (f1.NewName.value != "")
{
f1.mode.value = "rename";
f1.submit();
}
}
//-->
</SCRIPT>
<META c name=GENERATOR></HEAD>
<BODY language=javascript >
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="230" height="45"><img src="163/logo_2008.gif" alt="<%=Session("mail") %>邮局" width="200" height="40"></TD>
<TD vAlign=top>
<TABLE width="100%" height="42" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD height=42 align="left" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"> <span class="STYLE4">您好</span> <font class=s><span class="STYLE5" style="font-weight: bold"><font style="font-size: 10pt; font-family:tahoma,san-serif"><%=Session("mail") %></font></span><span class="STYLE4">欢迎您登陆邮件系统</span> [ <a href="logon.asp" target=f2>密码修改</a>，<a href="logout.asp?logout=true"><font color="#ff0000"><b>安全退出</b></font></a> ]</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><span class="STYLE4">今天是： <SCRIPT language=JavaScript>
var today= new Date(); // 今天是2004-3-5
var SolarDateString = GetSolarDateString();
var LunarDateString = GetLunarDateString(today);
document.write(SolarDateString +" 农历" + LunarDateString)
</SCRIPT></span> </td>
</tr>
</table></TD>
<TD width="271" align="right" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30"> <A href="mail_info.asp" target=f2>邮箱首页</A> | <a href="style.asp" target=f2>邮箱配置</a> | <A href="help.asp" target=f2>帮助</A> </td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE>
</TD>
</TR>
<TR>
<TD colSpan=2 height=46>
<SCRIPT>
<!--
function show1(num) {
for (ii=1;ii<=5;ii++)
{
eval("d1"+ii).style.display="none";
eval("bt1"+ii).style.background = "url('welcome/top/bg.gif')";
//eval("bt1"+ii).style.font COLOR: #ff6699 ;
}
eval("d1"+num).style.display="";
eval("bt1"+num).style.background = "url('163/bg.gif')"
}
//-->
</SCRIPT>
<TABLE width=450 height="35" border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD>
<DIV id=d11></DIV>
<DIV id=d12></DIV>
<DIV id=d13></DIV>
<DIV id=d14></DIV>
<DIV id=d15></DIV></TD></TR>
<TR>
<TD id=bt11 style="CURSOR: hand" onclick=show1(1) align=middle
width=90 background=163/bg.gif height=30>
<DIV align=center><A class=STYLE2 onfocus=if(this.blur)this.blur()
href="mail_info.asp"
target=f2>电子邮件</A></DIV></TD>
<TD id=bt12 style="CURSOR: hand" onclick=show1(2) align=middle
width=90>
<DIV align=center><A class=STYLE2 onfocus=if(this.blur)this.blur()
href="ads_brow.asp"
target=f2>通讯录</A></DIV></TD>
<TD id=bt13 style="CURSOR: hand" onclick=show1(3) align=middle
width=90 background=welcome/top/bg.gif>
<DIV align=center><A class=STYLE2 onfocus=if(this.blur)this.blur()
href="nb_brow.asp" target=f2>记事本</A></DIV></TD>
<TD id=bt14 style="CURSOR: hand" onclick=show1(4) align=middle
width=90 background=welcome/top/bg.gif>
<DIV align=center><A class=STYLE2 onfocus=if(this.blur)this.blur()
href="attfolders.asp"
target=f2>网络硬盘</A></DIV></TD>
<TD id=bt15 style="CURSOR: hand" onclick=show1(5) align=middle
width=90 background=welcome/top/bg.gif>
<DIV align=center><A class=STYLE2 onfocus=if(this.blur)this.blur()
href="findmail.asp"
target=f2>邮件搜索</A></DIV></TD></TR></TBODY></TABLE> </TD>
</TR></TBODY></TABLE></DIV>
</BODY></HTML>
[ 本帖最后由 sanming2005 于 2008-2-28 14:06 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？会员注册
x
|
狗仔卡
发表于 2008-2-28 13:56:03
显身卡
楼主