仓酷云

标题: ASP教程之用EasyMailObject组件处置Exchange邮件... [打印本页]

作者: 兰色精灵 时间: 2015-1-16 22:30
标题: ASP教程之用EasyMailObject组件处置Exchange邮件...
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.在ASP顶用EasyMailObject组件处置Exchange邮件源代码---读取邮件主题和巨细(maillist1.asp)

<%@LANGUAGE="VBSCRIPT"%>
<%
************************************************

这个文件列出一切邮件，并把邮件内容显现窗口置为空缺窗口
awayeah
邮箱：awayeah@163.net

************************************************
%>
<scriptlanguage=vbscript>
parent.frmbottom.location.href="blank.htm"
subcmdel_onClick()
删除邮件
frmail.submit
endsub
</script>
<%
ifsession("straccount")=""orsession("strpassword")=""then
Response.write("<html><title>毛病，还没有登录</title><body><palign=center><br><br>你还没有登录，请先加入登录!<br><br>")
Response.Write("<ahref=login.asptarget=_top><imgsrc=http://edu.cnzz.cn/NewsInfo/logout.jpgborder=0></a></p></body></html>")
Response.End
endif
%>
<html>
<head>
<title>收邮件</title>
</head>
<STYLE>

</STYLE>
<bodybgcolor="#008080"text="#000000">
<%
界说邮件服务器地点
strserver=session("strserver")
界说帐号
strAccount=session("straccount")
界说暗码
strPassword=session("strpassword")
设置组件的各类属性
SetPOP3=CreateObject("EasyMail.POP3.5")
POP3.LicenseKey="awa/S19I500R1AX30C0R3100"
POP3.MailServer=strServer
POP3.Account=strAccount
POP3.Password=strPassword
pop3.PreferredBodyFormat=1
pop3.TimeOut=120

x=POP3.Connect
Ifx0Then
Response.Write"<palign=center>毗连毛病:"+CStr(x)+"<br><br>请和办理员接洽"
POP3.Disconnect
Response.End
EndIf

x=POP3.DownloadMessages(0)
Ifx0Then
Response.Write"下载毛病:"+CStr(x)+"<br><br>请和办理员接洽"
POP3.Disconnect
Response.End
EndIf%>
<p><br></p>
<formname="frmail"action="mail_prc.asp"method="POST">
<center>
<tableborder="1"width="580"cellspacing="0"cellpadding="0"bordercolor="#000080"bgcolor="#FFFFFF">
<tr><tdcolspan=6align="center">
<%
分页处置
ifRequest.QueryString("currentpage")=""then
cp=1
else
cp=Request.QueryString("currentpage")
endif
失掉邮件总数
m_count=POP3.Messages.Count
ifm_count<=10then
pagenum=1
sd=1
ed=m_count
else
pagenum=int(m_count/10)+1
ifclng(cp)pagenumthen
lastpage=m_countmod10
sd=(clng(cp)-1)*10+1
ed=clng(cp)*10
else
sd=(clng(cp)-1)*10+1
ed=m_count
endif
endif
%>
你有<fontcolor="ff00ff"><%=POP3.Messages.Count%></font>封邮件。</td>
<%session("msgcount")=POP3.Messages.Count%>
</tr>
<tr>
<tdalign="center"width="20">号</td>
<tdalign="center"width="120">来自/复兴</td>
<tdalign="center"width="270">主题</td>
<tdalign="center"width="90">日期</td>
<tdalign="center"width="60">巨细</td>
<tdalign="center"width="20">选择</td>
</tr>
<%fori=sdtoed%>

<tr>
<tdalign="center"width="20"><%=i%></td>
<%
fw="复兴:"+replace(POP3.messages.item(i).subject,space(1),"_")
%>
<tdwidth="100">
<%receiver=POP3.Messages.item(i).from%>
<%ifPOP3.Messages.item(i).fromaddr=""then%>
<ahref="">
<%else
%>
<ahref=#onClick=javascript:window.open(sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>,sendnew,width=600,height=480,scrollbars=yes);>
<%endif%>
<%iftrim(receiver)=""then
response.write"匿名</a>"%>
<%else%>
<ahref=#onClick=javascript:window.open(sendmail1.asp?addr=<%=pop3.messages.item(i).fromaddr%>&subject=<%=fw%>,sendnew,width=600,height=480,scrollbars=yes);>
<fontface="宋体"size="2">
<%=POP3.Messages.item(i).From%></font>
<%endif%>
</td>
<tdwidth="270">

<%msgid=POP3.GetMessageID(i)%>
<ahref="showbody1.asp?id=<%=msgid%>"target="frmbottom">
<fontface="宋体"size="2">
<%
iftrim(POP3.messages.item(i).Subject)=""then
response.write"无主题"
else
response.writePOP3.messages.item(i).Subject
endif
%></font>
</a></td>
<tdwidth="90"><fontface="宋体"size="2"><%=cdate(mid(cstr(POP3.messages.item(i).date),6,11))%></font></td>

<tdwidth="60"><fontface="宋体"size="2"><%=POP3.messages.item(i).size%></font></td>
<td><inputtype="checkbox"name="c<%=i%>"value="<%=i%>"></td>
</tr>
<%next
POP3.Disconnect

%>
</table>
</center>
<palign="center"><inputtype="button"name="cmdel"value="删除"></p>
</form>
<divalign="center">
<tableborder="1"cellspacing="0"cellpadding="0"bordercolor="#ff0080"bgcolor="#FFFFFF">
<tr><td>页数</td>
<%fori=1topagenum%>
<td><ahref="maillist1.asp?currentpage=<%=i%>"target=frmtop><%=i%></a></td>
<%next%>
</tr></table></div>

</body>
</html>
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

作者: 飘灵儿 时间: 2015-1-19 15:44
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 分手快乐 时间: 2015-1-25 13:15
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

作者: 深爱那片海 时间: 2015-2-2 22:14
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 谁可相欹 时间: 2015-2-8 12:25
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 金色的骷髅 时间: 2015-2-25 14:28
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

作者: 变相怪杰 时间: 2015-3-7 22:28
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 活着的死人 时间: 2015-3-15 15:30
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 第二个灵魂 时间: 2015-3-22 02:25
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

欢迎光临仓酷云 (http://ckuyun.com/)