发仿163邮件风格内页 - 第6页 - WinWebMail - 邮件服务器-邮件系统-邮件技术论坛(BBS)

11115555 发表于 2008-2-28 13:56:03

50楼和我的第3个问题是一样的，我的也是这个样子，很不方便。

sanming2005 发表于 2008-2-28 14:02:21

将以下代码保存为：top.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>

</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>

</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 编辑 ]

sanming2005 发表于 2008-2-28 14:04:26

其实只要修改以下两个位置的链接即可的．将原指向VIEWMAILBOX.ASP的改为：mail_info.asp
１.＞＞＞
<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>
２＞＞＞
<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>

[ 本帖最后由 sanming2005 于 2008-2-28 14:05 编辑 ]

11115555 发表于 2008-2-28 16:48:26

谢谢sanming2005的回复，已经好了。

另外我觉得大家还可以把 left.asp 里面的VIEWMAILBOX.ASP一起修改为mail_info.asp，也是2个位置，

这样左边目录树上面那个文件夹链接就也可以指向首页了，很方便。

松子儿 发表于 2008-2-28 17:02:36

SANMING2005很热心....赞一个....

tiaozhan1000 发表于 2008-3-3 13:27:18

模板使用之后感觉不是很好，尤其是上面的“通讯录”、“地址簿”这些有时候要点两次才行，而且不支持firefox浏览器。还有登录之后的那个界面就是介绍有几封新邮件的只显示一次，下次想用的话，找都找不到。要退出，重新登陆:lol

11115555 发表于 2008-3-5 10:43:49

楼上，你的前面的问题可能是火狐导致的，后面的问题解决办法你往你楼上看，不都给出方法了吗

chengyehan 发表于 2008-3-6 23:44:52

能否把修改过的，重新打包再上传一次？

能否把修改过的，重新打包再上传一次？现在这样有点乱，让人看着累。谢谢

chengyehan 发表于 2008-3-6 23:50:00

登陆页面也有错误

登陆页面的系统公告显示该页无发显示。那个页面的代码没有看见在压缩包里。
walpaper/notic_for163.asp

whsfls 发表于 2008-3-7 11:14:43

我只要内页，不要首先，怎么处理！

页: 1 2 3 4 5 [6] 7 8 9 10

邮件服务器-邮件系统-邮件技术论坛(BBS)'s Archiver

能否把修改过的，重新打包再上传一次？

登陆页面也有错误