|
3.3 界面设计 1、首页 内容来自论文无忧网 www.paper51.com 首页设置传值页面，把登录信息中的用户名，密码等传到下一个页面（default.asp）,form标签的名称为f1，主要代码如： 内容来自论文无忧网 www.paper51.com <form name="f1" method="post"action="default.asp">’设置属性及传值页面 内容来自www.paper51.com <input type="hidden"name="username">’传用户名 paper51.com <input type="hidden"name="pwhidden">’传密码 内容来自论文无忧网 www.paper51.com </form> 内容来自www.paper51.com 在首页中加入了判断输入的代码，如if (username.value == "") paper51.com { 内容来自论文无忧网 www.paper51.com alert("用户名不可为空"); 内容来自www.paper51.com usernameshow.focus(); http://www.paper51.com return; 内容来自www.paper51.com } paper51.com 并加入了一些图片，生成的效果如图3 paper51.com
内容来自论文无忧网 www.paper51.com 图3 登录首页 copyright paper51.com 2、发送邮件页面 copyright paper51.com 发送邮件的页面调用.NET框架中的System.Web.Mail, 此页面的运行需要.NET2.0框架环境，其它代码也是该设计的核心部分，在主要代码部分有详细的说明，详见3.5发送邮件页面主要代码, 生成页面如图4 paper51.com http://www.paper51.com 图4 邮件发送页面 http://www.paper51.com 3、用户登录后页面 内容来自www.paper51.com 这是一个框架页面，分为收件箱，草稿箱，发件箱和垃圾箱，每一个部分分别用一个页面来实现，其中最重要的收件箱用listmail.asp来实现，在页面中邮件总数用 内容来自论文无忧网 www.paper51.com <% 内容来自论文无忧网 www.paper51.com dim ei 内容来自www.paper51.com set ei =server.createobject("easymail. PerFolders")’创建对象并初始化变量 copyright paper51.com ‘然后分别定义变量来接收 http://www.paper51.com
用<%= ei.newInBoxMailCount %>来显示组件中收件箱邮件的数量，同理分别用<%=ei.inboxMailCount%>,<%=ei.NewOutBoxMailCount%>,<%=CLng(ei.inboxMailSize/1000) %>来调用组件中收件箱数量，未读邮件数量和邮箱使用率，并对是否为空做判断。 内容来自论文无忧网 www.paper51.com 存储空间的大小用<%=maxsize %>来获取，<%=bf %>用来显示空间使用率，其中bf = CInt((100 * CLng(cursize / 1000)) / maxsize),这里邮件设计为10M 内容来自www.paper51.com
生成如图5 内容来自www.paper51.com
paper51.com 图5 登录后 copyright paper51.com 4、收件箱 内容来自www.paper51.com 收件箱页面首先用 内容来自论文无忧网 www.paper51.com <% paper51.com dim ei 内容来自论文无忧网 www.paper51.com
set ei =server.createobject("easymail.InfoList")’创建对象并定义接收信息列表中内容，用 copyright paper51.com ei.LoadMailBox username加载组件中的信息 http://www.paper51.com 收件箱中所有的邮件信息用循环来显示接收， paper51.com <% copyright paper51.com
dim forpn paper51.com forpn = "" http://www.paper51.com i = 0 copyright paper51.com do while i < allnum’循环显示 paper51.com ei.getMailInfoallnum - i - 1, idname, isread, priority, sendMail, sendName, subject, size,etime ’其中allnum为邮件总数,后面的分别从ei中定义的名称，是否阅读，收件人，发件人，主题，大小，时间等。 内容来自论文无忧网 www.paper51.com forpn= forpn & Chr(9) & idname http://www.paper51.com idname= NULL isread = NULL priority =NULL sendMail= NULL http://www.paper51.com sendName= NULL subject = NULL size = NULL copyright paper51.com etime= NULL i = i+ 1 内容来自www.paper51.com
loop %>’循环结束 paper51.com 如图6 copyright paper51.com
内容来自论文无忧网 www.paper51.com 图6 收件箱 内容来自论文无忧网 www.paper51.com 5、邮件查看 内容来自www.paper51.com 在查看邮件页面(showmail.asp)中同样调用组件中 copyright paper51.com <%dim ei 内容来自论文无忧网 www.paper51.com
set ei = server.createobject("easymail.emmail") copyright paper51.com %>‘来显示每一邮件的信息 paper51.com 值得注意的是在显示详细页面的时候，如果没有规定编码格式，可能出现乱码的情况，因此在这里添加一个判断 copyright paper51.com charset =UCase(ei.Text_CharSet) copyright paper51.com if charset = "" orcharset = "DEFAULT_CHARSET" then http://www.paper51.com charset = "gb2312"‘把页面的编码设为gb2312 copyright paper51.com
日期，优先级，发件人，发件人地址，收件人地址，主题和邮件的详细内容分别调用组件中Time，XMSMailPriority等来实现，具体格式如下： copyright paper51.com
<%=ei.Time %> 内容来自www.paper51.com 邮件优先级判断： 内容来自www.paper51.com <% 内容来自www.paper51.com
xmsp = ei.XMSMailPriority’定义邮件优先级 http://www.paper51.com
if xmsp = "High"then paper51.com Response.Write "<font color='#FF3333'>紧急邮件</font>" 内容来自www.paper51.com elseif xmsp ="Low" then 内容来自论文无忧网 www.paper51.com Response.Write "慢件" 内容来自www.paper51.com else paper51.com Response.Write "普通邮件" paper51.com end if http://www.paper51.com %> 内容来自www.paper51.com 发件人调用： paper51.com <% 内容来自论文无忧网 www.paper51.com Dim receiver 内容来自论文无忧网 www.paper51.com receiver =server.htmlencode(ei.FromMail)‘调用发件人 内容来自论文无忧网 www.paper51.com
response.write receiver%> 内容来自论文无忧网 www.paper51.com <% 内容来自www.paper51.com receiver =server.htmlencode(ei.Receiver)‘调用收件人 copyright paper51.com
response.write receiver%>‘定义变量接收收件人变量 paper51.com <%=server.htmlencode(ei.subject) %>‘调用主题 paper51.com
<%=server.htmlencode(ei.text) %>‘调用邮件内容 copyright paper51.com
内容来自论文无忧网 www.paper51.com |