熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

如何利用ASP實現郵箱訪問

2013-11-13 10:10:28  來源: .NET編程 
您在訪問網站時是否會在有些頁面上見到這種功能您在可以訪問此網站的同時還可以查看您免費郵箱中是否有新郵件這個功能是不是讓您覺得很心動很神秘呢?下面我就用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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.