2) 邮件主页面
邮件主页面主要功能为验证登陆页面传过来的用户名与密码是否正确，如果正确则显示相关的邮件操作链接(如图四)，反之则提示密码错误要求重新输入(如图三)。由于某些移动设备不支持跳转，程序尽量避免使用跳转语句。
图三 (登陆失败)
邮件主页面源代码： main.asp
<% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>
<%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="main" title="Sohu-PALM-MAIL平台">
<p>
<%
on error resume next
user=request("user")
pwd=request("pwd")
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.connect user,pwd,"http://pop3.sohu.com"
pop3.Disconnect
if err.number<>0 then
response.write("登陆错误，请检查用户名密码是否正确！<br/>")
response.write("<a href='index.asp'>重新登陆</a></p></card></wml>")
response.End()
end if
response.write("欢迎你"&user&"@sohu.com<br/>")
%>
<a href="email_title.asp?user=<%=user%>&pwd=<%=pwd%>">收件箱</a><br/>
<a href="send.asp?user=<%=user%>&pwd=<%=pwd%>">发件箱</a><br/>
<a href="index.asp">重新登陆</a><br/>
</p>
</card>
</wml>
<%Response.ContentType = "text/vnd.wap.wml; charset=UTF-8"%>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="main" title="Sohu-PALM-MAIL平台">
<p>
<%
on error resume next
user=request("user")
pwd=request("pwd")
Set pop3 = Server.CreateObject( "JMail.POP3" )
pop3.connect user,pwd,"http://pop3.sohu.com"
pop3.Disconnect
if err.number<>0 then
response.write("登陆错误，请检查用户名密码是否正确！<br/>")
response.write("<a href='index.asp'>重新登陆</a></p></card></wml>")
response.End()
end if
response.write("欢迎你"&user&"@sohu.com<br/>")
%>
<a href="email_title.asp?user=<%=user%>&pwd=<%=pwd%>">收件箱</a><br/>
<a href="send.asp?user=<%=user%>&pwd=<%=pwd%>">发件箱</a><br/>
<a href="index.asp">重新登陆</a><br/>
</p>
</card>
</wml>
注：
<a href="email_title.asp?user=<%=user%>&pwd=<%=pwd%>">收件箱</a>
由于某些移动设备并不支持session，为了更好的应用，故采用url参数传递，遗憾的是这样做安全性不高，为了提高安全性，建议对参数进行明文加密后再进行传递，在接收页面在做相对应的解密处理,当然如果你有什么更好的办法，还请发邮件指出，谢谢。
站长工具
相关文章
请稍等，评论加载中...