- Login
帳號:
密碼:
ASP MENU
線上教學
   ASP 教學
VB.NET 教學
JSP 教學
JAVA 教學
完整 ASP 教學
程式下載
   ASP 程式下載
提供 ASP 程式
程式量身訂做
   收費標準
填寫需求表
討論交流專區
   程式討論區
電腦資訊交流
工作機會
   社會人就職情報
汎亞人力銀行
大台中人力銀行
大高雄人力銀行
相關連結
   ASP 虛擬空間
ASP 相關網站
聯絡我們
   意見信箱
加入會員程式討論區線上購物回首頁
ASP 教學
如何利用ASP實現郵箱訪問
您在訪問網站時是否會在有些頁面上見到這種功能---您在可以訪問此網站的同時,還可以查看您免費郵箱中是否有新郵件。這個功能是不是讓您覺得很心動、很神秘呢?下面,我就用ASP來舉個例子讓您知道是如何實現這一功能的。

  首先你可以去一些提供免費郵件服務的站點,申請一個賬號然後登錄。在打開郵箱時,請您注意地址欄中的內容。現在以371為例,你會發現其內容通常是:
  http://www.371.net/prog/login?user=fighter&pass=mypassword。其中"fighter"是您的賬號,"mypassword"
是您的密碼。這時我們可以從這堭o到3個信息。第1條是我們得到了處理文件的url及文件名:"http://www.371
.net/prog/login";第2條是記錄您賬號的變量名:user;第3條是記錄您密碼的變量名:pass。我們知道這些信息後,就可著手寫html文件和asp文件了。

'/*Html源文件內容如下:*/
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<title>City 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.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.lengthɛ) {
alert("帳號長度不能小於3位!請填寫。")
tt.account.focus()
return false
}
if (tt.password.value=="") {
alert("密碼不能為空!請填寫。")
tt.password.focus()
return false
}
if (tt.password.value.lengthɛ) {
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="_blank"> <!--此處用target="_blank",是為了彈出新窗口來查看您的郵箱-->
<select style="font-size:9pt;background-color:add8e6" name="selectmail">
<option name="mailsite" value="City Club便民郵局" selected>City Club便民郵局</option>
<option name='MailSite' value='990.net/prog/login?;user;pass;'</option>
<option name='MailSite' value='www.371.net/prog/login?;user;pass;'C</option>
<option name='MailSite' value='www.188.net/prog/login?;user;pass;'</option>
<option name='MailSite' value='web.163.net/cgi/login?;user;pass;'</option>
<option name='MailSite' value='freemail.263.net/cgi/login?;user;pass;'t</option>
<option name='MailSite' value='mail.777.net.cn/v2.0/html/mailbox.php3?;user;pass;'</option>
<option name='MailSite' value='www.126.com/cgi/login?;email;password;'</option>
<option name='MailSite' value='www.2911.net/cgi-bin/login?;username;password;'򘄿</option>
<option name='MailSite' value='hotmail.yn.cninfo.net/prog/login?;user;pass;'>雲南169</option>
<option name='MailSite' value='freemail.china.com/prog/login?;user;pass;'>china</option>
<option name='MailSite' value='freemail.hongkong.com/prog/login?;user;pass;'>香港免費電郵</option>
<option name='MailSite' value='freemail.netease.com/prog/login?;user;pass;'>Netease</option>
<option name='MailSite' value='lc3.law5.hotmail.com/cgi-bin/dologin?;login;passwd;'>hotmail</option>
<option name='MailSite' value='www.netaddress.com/tpl/Door/login?;UserID;passwd;'>use.net</option>
<option name='MailSite' value='www.88998.com/cgi-win/login?;username;password;'?.com</option>
<option name='MailSite' value='www.mail.com/mailcom/login.jhtml?;mn;pw;'>@mail.com</option>
</select><br>
帳號:<input type=text name=account size=12 style="font-size:9pt"><br>
密碼:<input type=password name=password size=12 style="font-size:9pt"><br>
</td><tr><td align=center><input type=submit value="收信" style="font-size:9pt">
<input type=reset value="重填" style="font-size:9pt">
</td>
</form>
</td>
</table>
</BODY>
</HTML>
'/*Html源文件內容結束*/


'/*PostOffice.asp源文件內容如下:*/
<%@ Language=VBScript %>
<%
Response.Buffer = true
'----------------------------------------------------
'Author : Peter.yu
'Created Date : 2000/3/13
'File Name : PostOffice.asp
'All Rights Reserved.所有權歸City Club
'----------------------------------------------------
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<title>City Club 便民郵局 (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
webSiteURL = str(0) '/*郵件服務器地址及指定處理的文件名*/
end if
usernam = str(1) '/*賬號變量名*/
password = str(2) '/*密碼變更名*/
'/*合併字符,得到諸如"http://www.371.net/prog/login?user=fighter&pass=mypassword的字符"*/
mailUrl = webSiteUrl & usernam & "=" & trim(Request.Form("account"))
mailUrl = mailUrl & chr(38) & password & "=" & trim(Request.Form("password"))
Response.Redirect mailUrl '/*打開郵箱*/
%>
</BODY>
</HTML>

'/*PostOffice.asp源文件內容結束*/

  不是很難吧,呵呵。其實這個不是很難的,關鍵在於您能多多觀察,找出其中的規律。這樣我們就可以利用這些規律做很多很多有意義有趣的事了。



頂端
本網頁最佳瀏覽模式為:瀏覽器 IE4.0 以上    解析度: 800 x 600
Copyright © 2000-2020 COOLASP All Rights Reserved