asp网页邮箱访问
2018-09-06 12:22
前些日子在群里头有位朋友问到怎么实现在网页上的邮箱访问功能现在将从网上看到的网站载了下来，便人便已。这个是html的代码您在访问网站时是否会在有些页面上见到这种功能---您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神秘呢？下面，我就用ASP来举个例子让您知道是如何实现这一功能的。
首先你可以去一些提供免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您注意地址栏中的内容。现在以371为例，你会发现其内容通常是：。
其中fighter是您的账号，mypassword是您的密码。这时我们可以从这里得到3个信息。第1条是我们得到了处理文件的url及文件名:；第2条是记录您账号的变量名:user；第3条是记录您密码的变量名:pass。我们知道这些信息后，就可着手写html文件和asp文件了。
/*Html源文件内容如下：*/
复制代码 代码如下:
<HTML>
<HEAD>
<METANAME=GENERATORContent=MicrosoftVisualStudio6.0>
</HEAD>
<title>CityClub首页</title>
<styletype=text/css>
<!--
td{font-size:9pt}
body{font-size:9pt}
select{font-size:9pt}
A{text-decoration:none;color:#003366;font-size:9pt}
A:hover{text-decoration:underline;color:#FF0000;font-size:9pt}
-->
</style>
<scriptlanguage=javascript>
functioncheck(tt){
if(window.document.form1.selectmail.selectedIndex==0){
alert(请选择您的邮箱服务器！)
window.document.form1.selectmail.focus()
returnfalse
}
if(tt.account.value==){
alert(帐号不能为空！请填写。)
tt.account.focus()
returnfalse
}
if(tt.account.value.length<3){
alert(帐号长度不能小于3位！请填写。)
tt.account.focus()
returnfalse
}
if(tt.password.value==){
alert(密码不能为空！请填写。)
tt.password.focus()
returnfalse
}
if(tt.password.value.length<3){
alert(密码长度不能小于3位！请填写。)
tt.password.focus()
returnfalse
}
else
returntrue
}
</script>
<BODYtopmargin=12>
<tableborder=0bgcolor=d3d3d3>
<td>
<formaction=PostOffice.aspmethod=postOnsubmit=returncheck(this)name=form1
><!--此处用，是为了弹出新窗口来查看您的邮箱-->
<selectstyle=font-size:9pt;background-color:add8e6name=selectmail>
<optionname=mailsitevalue=CityClub便民邮局selected>CityClub便民邮局</option>
<optionname=MailSitevalue=
<optionname=MailSitevalue=
<optionname=MailSitevalue=web.163.net/cgi/login?;user;pass;>163</option>
<optionname=MailSitevalue=freemail.263.net/cgi/login?;user;pass;>263</option>
<optionname=MailSitevalue=
<optionname=MailSitevalue=
<optionname=MailSitevalue=freemail.netease.com/prog/login?;user;pass;>Netease</option>
<optionname=MailSitevalue=
<optionname=MailSitevalue=
<optionname=MailSitevalue=
</select><br>
帐号:<inputtype=textname=accountsize=12style=font-size:9pt><br>
密码:<inputtype=passwordname=passwordsize=12style=font-size:9pt><br>
</td><tr><tdalign=center><inputtype=submitvalue=收信style=font-size:9pt>
<inputtype=resetvalue=重填style=font-size:9pt>
</td>
</form>
</td>
</table>
</BODY>
</HTML>
/*Html源文件内容结束*/
/*PostOffice.asp源文件内容如下：*/
复制代码 代码如下:
<%@Language=VBScript%>
<%
Response.Buffer=true
----------------------------------------------------
Author:Peter.yu
CreatedDate:2000/3/13
FileName:PostOffice.asp
AllRightsReserved.所有权归CityClub
----------------------------------------------------
%>
<HTML>
<HEAD>
<METANAME=GENERATORContent=MicrosoftVisualStudio6.0>
</HEAD>
<title>CityClub便民邮局（AllRightsReserved所有权归CityClub）</title>
<BODY>
<%
dimstr(3)
str1=trim(Request.Form(selectmail))/*获取的邮件服务器及用户账号和密码信息*/
fori=1to3/*将以上获取的信息进行分割，并赋予给数组变量*/
p=instr(1,str1,;)
str(i-1)=mid(str1,1,p-1)
str1=mid(str1,p+1)
next
ifinstr(1,str(0),
webSiteUrl=
else
webSiteURL=str(0)/*邮件服务器地址及指定处理的文件名*/
endif
usernam=str(1)/*账号变量名*/
password=str(2)/*密码变更名*/
/*合并字符，得到诸如的字符*/
mailUrl=webSiteUrl&usernam&=&trim(Request.Form(account))
mailUrl=mailUrl&chr(38)&password&=&trim(Request.Form(password))
Response.RedirectmailUrl/*打开邮箱*/
%>
</BODY>
</HTML>
/*PostOffice.asp源文件内容结束*/
不是很难吧。其实这个不是很难的，关键在于您能多多观察，找出其中的规律。这样我们就可以利用这些规律做很多很多有意义有趣的事了。