您在訪問網站時是否會在有些頁面上見到這種功能
您在可以訪問此網站的同時
還可以查看您免費郵箱中是否有新郵件
這個功能是不是讓您覺得很心動
很神秘呢？下面
我就用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源文件內容結束*/
不是很難吧其實這個不是很難的關鍵在於您能多多觀察找出其中的規律這樣我們就可以利用這些規律做很多很多有意義有趣的事了
From:http://tw.wingwit.com/Article/program/net/201311/12791.html
