《怎样用ASP实现邮箱访问__2.docx》由会员分享，可在线阅读，更多相关《怎样用ASP实现邮箱访问__2.docx（9页珍藏版）》请在三一文库上搜索。
1、怎样用ASP实现邮箱访问_ 怎样用ASP实现邮箱访问？ 您在访问网站时是否会在有些页面上见到这种功能-您在可以访问此网站的同时，还可以查看您免费邮箱中是否有新邮件。这个功能是不是让您觉得很心动、很神奇呢？下面，我就用ASP来举个例子让您知道是如何实现这一功能的。 首先你可以去一些供应免费邮件服务的站点，申请一个账号然后登录。在打开邮箱时，请您留意地址栏中的内容。现在以371为例，你会发觉其内容通常是： l文件和asp文件了。 /*Html源文件内容如下：*/ HTML HEAD META NAME=GENERATOR Content=Microsoft Visual Studio 6.0 /H
2、EAD titleCity Club 首页/title style type=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 script language=javascript function check(tt) if (window.
3、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=) a
4、lert(密码不能为空！请填写。) 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=_
5、blank !-此处用target=_blank，是为了弹出新窗口来查看您的邮箱- select style=font-size:9pt;background-color:add8e6 name=selectmail option name=mailsite value=City Club便民邮局 selectedCity Club便民邮局/option option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option na
6、me=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= option name=MailSite value= o
7、ption name=MailSite value= /selectbr 帐号:input type=text name=account size=12 style=font-size:9ptbr 密码:input type=password name=password size=12 style=font-size:9ptbr /tdtrtd align=centerinput type=submit value=收信 style=font-size:9pt input type=reset value=重填 style=font-size:9pt /td /form /td /table
8、/BODY /HTML /*Html源文件内容结束*/ /*PostOffice.asp源文件内容如下：*/ % Language=VBScript % % Response.Buffer = true - Author : Peter.yu Created Date : 2021/3/13 File Name : PostOffice.asp All Rights Reserved.全部权归City Club - % HTML HEAD META NAME=GENERATOR Content=Microsoft Visual Studio 6.0 /HEAD titleCity Club 便
9、民邮局 （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
10、 webSiteURL = str(0) /*邮件服务器地址及指定处理的文件名*/ end if usernam = str(1) /*账号变量名*/ password = str(2) /*密码变更名*/ /*合并字符，得到诸如http:/ mailUrl = webSiteUrl usernam = trim(Request.Form(account) mailUrl = mailUrl chr(38) password = trim(Request.Form(password) Response.Redirect mailUrl /*打开邮箱*/ % /BODY /HTML /*PostOffice.asp源文件内容结束*/ 更多信息请查看IT技术专栏 .