设为首页收藏本站
开启辅助访问

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

 找回密码
 会员注册
邮件服务器-邮件系统-邮件技术论坛(BBS)»论坛首页 › ≡ 邮件服务器专区≡ › WinWebMail › 在该论坛下载了一个内部的网页模版,总有个错误，哪为大 ...
返回列表 发新帖
查看: 3339|回复: 1
打印 上一主题 下一主题

[求助] 在该论坛下载了一个内部的网页模版,总有个错误，哪为大侠出手改改啊

[复制链接]
hbczjzc
跳转到指定楼层
顶楼
发表于 2007-8-2 09:20:32 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
首页电子邮件通讯录记事本网络硬盘邮件搜索邮箱配置邮箱帮助

点击上面的连接都报  top 错误。

首页：错误1  行 122 缺少对象  错误2  行 118 缺少对象
电子邮件： 错误1  行 125 缺少对象 错误2  行 118 缺少对象
通讯录:  错误1  行 130 缺少对象 错误2  行 118 缺少对象
欢迎关注本站的微信公众帐号，获取最新邮件资讯与技术文章！
回复

使用道具 举报

hbczjzc
沙发
 楼主| 发表于 2007-8-2 09:22:25 | 只看该作者
<!--#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 content="text/html; charset=gb2312">
<SCRIPT language=javascript src="welcome/date.js"></SCRIPT>
<LINK href="welcome/hwem.css" rel=stylesheet>
<STYLE type=text/css>
A {
        TEXT-DECORATION: none
}
BODY {
        MARGIN: 0px
}
.STYLE1 {
        FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #ffffff
}
.STYLE2 {
        FONT-WEIGHT: bold; FONT-SIZE: 14px; COLOR: #000000
}
A:link {
       
}
.style3 {color: #990000}
</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 content="MSHTML 6.00.3790.2541" name=GENERATOR>
<base target="f2">
</HEAD>
<BODY language=javascript onLoad="return window_onload()">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 bgcolor="#336699">
  <TBODY>
  <TR>
    <TD width="2%">　</TD>
    <TD vAlign=top width="98%">
      <TABLE width="100%" height="56" border=0 cellPadding=0 cellSpacing=0>
        <TBODY>
        <TR>
          <TD height=40 align="right" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="30">
                                <p align="left"> <font color="#FFFFFF">当前用户 </font> <font class=s><span style="font-weight: bold">
                                <font color="#FFFFFF" style="font-size: 10pt; font-family:tahoma,san-serif"><%=Session("mail") %></font></span><font color="#FFFFFF">  
            [ </font><a href="logon.asp" target=f2><font color="blue">修改资料</font></a><font color="#FFFFFF">，</font><a target="_top" href="logout.asp?logout=true"><font color="red">安全退出</font></a><font color="#FFFFFF"> ]</font></td>
            </tr>
          </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td align="center"><div align="left"><font color="#FFFFFF">今天是：
                      <SCRIPT language=JavaScript>
var today= new Date();   // 今天是2004-3-5
var SolarDateString = GetSolarDateString();
var LunarDateString = GetLunarDateString(today);
document.write(SolarDateString +"　农历" + LunarDateString)
                    </SCRIPT>
                        </font>
                </div></td>
              </tr>
            </table></TD>
        </TR></TBODY></TABLE>
      </TD>
  </TR>
  <TR>
    <TD colSpan=2 height=46>

      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 height="22">
        <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 class="STYLE2">
                  <TD id=bt11 style="CURSOR: hand" onclick=show1(1) align=middle
          width=450 height=24 bgcolor="#DBEAF5">
                        <table border="1" width="720" cellspacing="0" cellpadding="0" style="border-collapse: collapse; border-style: dotted; border-width: 1px" height="22">
                                <tr>
                  <TD id=bt17 style="CURSOR: hand" onclick=show1(5) align=center
          width=80 bgcolor="#0099CC"><font color="#008000"><a href="info.asp">
                        <font color="#FFFFFF">首页</font></a></font></TD>
                  <TD id=bt16 style="CURSOR: hand" onclick=show1(1) align=center
          width=80 height=16 bgcolor="#0099CC">
                        <font color="#008000"><a href="viewmailbox.asp">
                        <font color="#FFFFFF">电子邮件</font></a></font></TD>
                  <TD
          width=80 align=center id=bt12 style="CURSOR: hand" onclick=show1(2) bgcolor="#0099CC">
                        <font color="#008000"><a href="ads_brow.asp"><font color="#FFFFFF">通讯录</font></a></font></TD>
                  <TD id=bt13 style="CURSOR: hand" onclick=show1(3) align=center
          width=80 bgcolor="#0099CC"><font color="#008000">
                        <a href="nb_brow.asp"><font color="#FFFFFF">记事本</font></a></font></TD>
                  <TD id=bt14 style="CURSOR: hand" onclick=show1(4) align=center
          width=80 bgcolor="#0099CC"><font color="#008000">
                        <a href="attfolders.asp"><font color="#FFFFFF">网络硬盘</font></a></font></TD>
                  <TD id=bt18 style="CURSOR: hand" onclick=show1(5) align=center
          width=80 bgcolor="#0099CC"><font color="#008000">
                        <a href="findmail.asp"><font color="#FFFFFF">邮件搜索</font></a></font></TD>
                  <TD id=bt17 style="CURSOR: hand" onclick=show1(5) align=center
          width=80 bgcolor="#0099CC"><a href="style.asp" target=f2><font color="#FFFFFF">
                        邮箱配置</font></a></TD>
                  <TD id=bt17 style="CURSOR: hand" onclick=show1(5) align=center
          width=80 bgcolor="#0099CC"> <A href="help.asp" target=f2><font color="#FFFFFF">
                        邮箱帮助</font></A></TD>
                       
               
                       
                                </tr>
                        </table>
                        </TD>
                  <TD id=bt15 style="CURSOR: hand" onclick=show1(5) align=middle
          width=296 bgcolor="#0099CC"><font color="red">
                        <span style="font-size: 10pt">版本1.0</span></font></TD></TR></TBODY></TABLE>      </TD>
  </TR></TBODY></TABLE></DIV>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width=193 bgColor=#336699></TD>
    <TD bgColor=#ffffff><font color="#FFFFFF"><IMG height=5 src="welcome/top/page_conn.jpg"
  width=4></font></TD></TR></TBODY></TABLE></BODY></HTML>
找不到下载链接？请看5DMAIL下载区，下载说明！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网

GMT+8, 2026-8-5 06:13

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构，所有言论属发表者个人意见，不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利，请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知，保留最终解释权。
*本论坛会员专属QQ群：邮件技术资讯网会员QQ群
 *本论坛会员备用QQ群：邮件技术资讯网备用群

快速回复 返回顶部 返回列表