如何利用ASP实现邮箱访问_Web开发_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

如何利用ASP实现邮箱访问

作者：闵涛文章来源：闵涛的学习笔记点击数：930 更新时间：2009/4/23 10:35:46

　　您在访问网站时是否会在有些页面上见到这种功能---您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神秘呢？下面，我就用ASP来举个例子让您知道是如何实现这一功能的。

　　首先你可以去一些提供免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您注意地址栏中的内容。现在以371为例，你会发现其内容通常是： httpwww.371.netprogloginuser=fighter&pass=mypassword。

　　其中fighter是您的账号，mypassword 是您的密码。这时我们可以从这里得到3个信息。第1条是我们得到了处理文件的url及文件名httpwww.371 .netproglogin；第2条是记录您账号的变量名user；第3条是记录您密码的变量名pass。我们知道这些信息后，就可着手写html文件和asp文件了。

'Html源文件内容如下：
HTML
HEAD
META NAME=GENERATOR Content=Microsoft Visual Studio 6.0
HEAD
titleCity Club 首页title
style type=textcss
!--
td { font-size 9pt}
body { font-size 9pt}
select { font-size 9pt}
A {text-decoration none; color #003366; font-size 9pt}
Ahover {text-decoration underline; color #FF0000; font-size 9pt}
--
style
script language=javascript
function check(tt) {
if (window.document.form1.selectmail.selectedIndex==0) {
alert(请选择您的邮箱服务器！)
window.document.form1.selectmail.focus()
return false
}
if (tt.account.value==) {
alert(帐号不能为空！请填写。)
tt.account.focus()
return false
}
if (tt.account.value.length3) {
alert(帐号长度不能小于3位！请填写。)
tt.account.focus()
return false
}
if (tt.password.value==) {
alert(密码不能为空！请填写。)
tt.password.focus()
return false
}
if (tt.password.value.length3) {
alert(密码长度不能小于3位！请填写。)
tt.password.focus()
return false
}
else
return true
}
script
BODY topmargin=12
table border=0 bgcolor=d3d3d3
td
form action=PostOffice.asp method=post Onsubmit=return check(this) name=form1
target=_blank !--此处用target=_blank，是为了弹出新窗口来查看您的邮箱--
select style=font-size9pt;background-coloradd8e6 name=selectmail
option name=mailsite value=City Club便民邮局 selectedCity Club便民邮局option
option name='MailSite' value='990.netproglogin;user;pass;'990option
option name='MailSite' value='www.371.netproglogin;user;pass;'371option
option name='MailSite' value='www.188.netproglogin;user;pass;'188option
option name='MailSite' value='web.163.netcgilogin;user;pass;'163option
option name='MailSite' value='freemail.263.netcgilogin;user;pass;'263option
option name='MailSite' value='mail.777.net.cnv2.0htmlmailbox.php3;user;pass;'777option
option name='MailSite' value='www.126.comcgilogin;email;password;'126option
option name='MailSite' value='www.2911.netcgi-binlogin;username;password;'2911option
option name='MailSite' value='hotmail.yn.cninfo.netproglogin;user;pass;'云南169option
option name='MailSite' value='freemail.china.comproglogin;user;pass;'chinaoption
option name='MailSite' value='freemail.hongkong.comproglogin;user;pass;'香港免费电邮option
option name='MailSite' value='freemail.netease.comproglogin;user;pass;'Neteaseoption
option name='MailSite' value='lc3.law5.hotmail.comcgi-bindologin;login;passwd;'hotmailoption
option name='MailSite' value='www.netaddress.comtplDoorlogin;UserID;passwd;'use.netoption
option name='MailSite' value='www.88998.comcgi-winlogin;username;password;'88998.comoption
option name='MailSite' value='www.mail.commailcomlogin.jhtml;mn;pw;'@mail.comoption
selectbr
帐号input type=text name=account size=12 style=font-size9ptbr
密码input type=password name=password size=12 style=font-size9ptbr
tdtrtd align=centerinput type=submit value=收信 style=font-size9pt
input type=reset value=重填 style=font-size9pt
td
form
td
table
BODY
HTML
'Html源文件内容结束

'PostOffice.asp源文件内容如下：
%@ Language=VBScript %
%
Response.Buffer = true
'----------------------------------------------------
'Author Peter.yu
'Created Date 2000313
'File Name PostOffice.asp
'All Rights Reserved.所有权归City Club
'----------------------------------------------------
%
HTML
HEAD
META NAME=GENERATOR Content=Microsoft Visual Studio 6.0
HEAD
titleCity Club 便民邮局（All Rights Reserved所有权归City Club）title
BODY
%
dim str(3)
str1 =trim(Request.Form(selectmail)) '获取的邮件服务器及用户账号和密码信息
for i = 1 to 3 '将以上获取的信息进行分割，并赋予给数组变量
p = instr(1,str1,;)
str(i-1) = mid(str1,1,p-1)
str1 = mid(str1,p+1)
next
if instr(1,str(0),http)=0 then
webSiteUrl = http & str(0)
else
webSiteURL = str(0) '邮件服务器地址及指定处理的文件名
end if
usernam = str(1) '账号变量名
password = str(2) '密码变更名
'合并字符，得到诸如httpwww.371.netprogloginuser=fighter&pass=mypassword的字符
mailUrl = webSiteUrl & usernam & = & trim(Request.Form(account))
mailUrl = mailUrl & chr(38) & password & = & trim(Request.Form(password))
Response.Redirect mailUrl '打开邮箱
%
BODY
HTML