您在访问网站时是否会在有些页面上见到这种功能
您在可以访问此网站的同时
还可以查看您免费邮箱中是否有新邮件
这个功能是不是让您觉得很心动
很神秘呢？下面
我就用ASP来举个例子让您知道是如何实现这一功能的
首先你可以去一些提供免费邮件服务的站点申请一个账号然后登录在打开邮箱时请您注意地址栏中的内容现在以为例你会发现其内容通常是 ;pass=mypassword
其中fighter是您的账号mypassword 是您的密码这时我们可以从这里得到个信息第条是我们得到了处理文件的url及文件名:/prog/login第条是记录您账号的变量名:user第条是记录您密码的变量名:pass我们知道这些信息后就可着手写html文件和asp文件了
/*Html源文件内容如下*/
<HTML>
<HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio >
</HEAD>
<title>City Club 首页</title>
<style type=text/css>
<!
td { fontsize: pt}
body { fontsize: pt}
select { fontsize: pt}
A {textdecoration: none; color: #; fontsize: pt}
A:hover {textdecoration: underline; color: #FF; fontsize: pt}
>
</style>
<script language=javascript>
function check(tt) {
if (windowdocumentformselectmailselectedIndex==) {
alert(请选择您的邮箱服务器！)
windowdocumentformselectmailfocus()
return false
}
if (ttaccountvalue==) {
alert(帐号不能为空！请填写)
ttaccountfocus()
return false
}
if (ttaccountvaluelength<) {
alert(帐号长度不能小于位！请填写)
ttaccountfocus()
return false
}
if (ttpasswordvalue==) {
alert(密码不能为空！请填写)
ttpasswordfocus()
return false
}
if (ttpasswordvaluelength<) {
alert(密码长度不能小于位！请填写)
ttpasswordfocus()
return false
}
else
return true
}
</script>
<BODY topmargin=>
<table border= bgcolor=ddd>
<td>
<form action=PostOfficeasp method=post Onsubmit=return check(this) name=form
target=_blank> <!此处用target=_blank是为了弹出新窗口来查看您的邮箱>
<select name=selectmail>
<option name=mailsite value=City Club便民邮局 selected>City Club便民邮局</option>
<option name=MailSite value=/prog/login?;user;pass;></option>
<option name=MailSite value=/prog/login?;user;pass;></option>
<option name=MailSite value=/prog/login?;user;pass;></option>
<option name=MailSite value=/cgi/login?;user;pass;></option>
<option name=MailSite value=/cgi/login?;user;pass;></option>
<option name=MailSite value=/v/html/mailboxphp?;user;pass;></option>
<option name=MailSite value=/cgi/login?;email;password;></option>
<option name=MailSite value=/cgibin/login?;username;password;></option>
<option name=MailSite value=/prog/login?;user;pass;>云南</option>
<option name=MailSite value=/prog/login?;user;pass;>china</option>
<option name=MailSite value=f/prog/login?;user;pass;>香港免费电邮</option>
<option name=MailSite value=/prog/login?;user;pass;>Netease</option>
<option name=MailSite value=/cgibin/dologin?;login;passwd;>hotmail</option>
<option name=MailSite value=/tpl/Door/login?;UserID;passwd;></option>
<option name=MailSite value=/cgiwin/login?;username;password;></option>
<option name=MailSite value=/mailcom/loginjhtml?;mn;pw;></option>
</select><br>
帐号:<input type=text name=account size= ><br>
密码:<input type=password name=password size= ><br>
</td><tr><td align=center><input type=submit value=收信 >
<input type=reset value=重填 >
</td>
</form>
</td>
</table>
</BODY>
</HTML>
/*Html源文件内容结束*/
/*PostOfficeasp源文件内容如下*/
<%@ Language=VBScript %>
<%
ResponseBuffer = true
Author : Peteryu
Created Date : //
File Name : PostOfficeasp
All Rights Reserved所有权归City Club
%>
<HTML>
<HEAD>
<META NAME=GENERATOR Content=Microsoft Visual Studio >
</HEAD>
<title>City Club 便民邮局 （All Rights Reserved所有权归City Club）</title>
<BODY>
<%
dim str()
str =trim(RequestForm(selectmail)) /*获取的邮件服务器及用户账号和密码信息*/
for i = to /*将以上获取的信息进行分割并赋予给数组变量*/
p = instr(str;)
str(i) = mid(strp)
str = mid(strp+)
next
if instr(str()//)= then
webSiteUrl = // & str()
else
webSiteURL = str() /*邮件服务器地址及指定处理的文件名*/
end if
usernam = str() /*账号变量名*/
password = str() /*密码变更名*/
/*合并字符得到诸如;pass=mypassword的字符*/
mailUrl = webSiteUrl & usernam & = & trim(RequestForm(account))
mailUrl = mailUrl & chr() & password & = & trim(RequestForm(password))
ResponseRedirect mailUrl /*打开邮箱*/
%>
</BODY>
</HTML>
/*PostOfficeasp源文件内容结束*/
不是很难吧其实这个不是很难的关键在于您能多多观察找出其中的规律这样我们就可以利用这些规律做很多很多有意义有趣的事了
