ASP开发WAP简易邮件系统实例

　2007-07-19 12:04:27　来源：WEB开发网　　　

核心提示： 图三 (登陆失败) 图四(登陆成功)邮件主页面源代码： main.asp〈% @LANGUAGE="VBSCRIPT" CODEPAGE="65001" %〉〈%Response.ContentType = "text/vnd.wap.wm

请点击图片查看原图

图三 (登陆失败) 图四(登陆成功)

邮件主页面源代码： 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〉