ASP网站制作之使用W3 JMAIL组件收POP3邮件
对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。jmail|jmail组件<%@LANGUAGE=VBSCRIPT%><%
dimstartpage
dimendpage
startpage=int(request("start"))
endpage=int(request("end"))
Setpop3=Server.CreateObject("JMail.POP3")
uid=trim(request("uid"))
pwd=trim(request("pwd"))
pop=trim(request("pop"))
ifuid=""orpwd=""orpop=""then
response.redirect"receivemail.asp"
endif
ifuid""andpwd""andpop""then
response.cookies("uid")=trim(request("uid"))
response.cookies("pwd")=trim(request("pwd"))
response.cookies("pop")=trim(request("pop"))
else
uid=request.cookies("uid")
pwd=request.cookies("pwd")
pop=request.cookies("pop")
endif
pop3.Connectuid,pwd,pop
pop3.Connect"agang0084","921028","pop3.sina.com.cn"
response.write"<divalign=center>"
Response.Write("您的收件箱有<fontcolor=red>"&pop3.count&"</font>封邮件<br><br>")
response.write"</div>"
盘算页数
pagenum=10一页共存几笔记录
ifpop3.count<pagenumthen
pagecount=1
else
intcount=int(pop3.count/pagenum)
modcount=pop3.countmodpagenum
ifmodcount>0then
pagecount=intcount+1假如总纪录除以一页可寄存的纪录数不足数则页数必需加以一
else
pagecount=intcount
endif
endif
response.write("您的邮件共有"&pagecount&"页")
盘算页码
page=trim(request("page"))
ifpage""then
selectcasepage
case"firstpage"
startpage=1
endpage=pagenum
case"lastpage"
startpage=(pagecount-1)*pagenum+1
endpage=pop3.count
case"next"
ifendpage+10>pop3.countthen
startpage=(pagecount-1)*pagenum+1
endpage=pop3.count
else
startpage=startpage+10
endpage=endpage+10
endif
case"back"
ifstartpage=pagenum+1then
startpage=1
endpage=pagenum
else
startpage=startpage-10
endpage=endpage-10
endif
endselect
else
ifpop3.count<pagenumthen
startpage=1
endpage=pop3.count
else
startpage=1
endpage=pagenum
endif
endif
ifpop3.count>0then
dimmsg(20)
dimAttachments(20)
fori=1topop3.count
Setmsg(i)=pop3.Messages.item(i)
SetAttachments(i)=msg(i).Attachments
next
%>
<%
ifstartpage=1then
response.write"第一页"
else
response.write"<ahref=pop3.asp?page=firstpage&start="&startpage&"&end="&endpage&">第一页</a>"
endif
ifendpage=pop3.countthen
response.write"下一页"
else
response.write"<ahref=pop3.asp?page=next&start="&startpage&"&end="&endpage&">下一页</a>"
endif
ifstartpage=1then
response.write"上一页"
else
response.write"<ahref=pop3.asp?page=back&start="&startpage&"&end="&endpage&">上一页</a>"
endif
ifendpage=pop3.countthen
response.write"最初一页"
else
response.write"<ahref=pop3.asp?page=lastpage&start="&startpage&"&end="&endpage&">最初一页</a>"
endif
response.write"以后纪录是从第"
response.writestartpage
response.write"封到"
response.writeendpage
response.write&</p>结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。 另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件) 掌握asp的特性而且一定要知道为什么。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。 它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。 Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。 完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
页:
[1]