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 webSiteURL = str(0) /*郵件服務器地址及指定處理的文件名*/ end if usernam = str(1) /*賬號變量名*/ password = str(2) /*密碼變更名*/ /*合并字符，得到諸如 mailUrl = webSiteUrl usernam = trim(Request.Form(account) mail