jmail4.1用pop3收信的例子：[br]<% set pop3 = server.createobject( "jmail.pop3" )[br] [br] 'pop3的連接用戶名，密碼，pop3地址[br] pop3.connect "username", "password", "mail.mydomain.com"[br][br] response.write( "你有" & pop3.count & " 封郵件。
" )[br][br] if pop3.count > 0 then[br]set msg = pop3.messages.item(1) [br]reto = ""[br]recc = ""[br][br]set recipients = msg.recipients[br]separator = ", "[br][br]' 現在得到所有的收件人，并且存儲[br][br]for i = 0 to recipients.count - 1[br] if i = recipients.count - 1 then[br] separator = ""[br] end if[br][br] set re = recipients.item(i)[br] if re.retype = 0 then[br] reto = reto & re.name & " (
" & re.email & ")" & separator[br] else[br] recc = reto & re.name & " (
" & re.email & ")" & separator[br] end if[br]next[br][br]'這個程序得到附件，并且保存到服務器的硬盤上。也可以返回附件的詳細連接[br]function getattachments()[br] set attachments = msg.attachments[br] separator = ", "[br][br] for i = 0 to attachments.count - 1[br] if i = attachments.count - 1 then[br] separator = ""[br] end if[br][br] set at = attachments(i)[br] at.savetofile( "c:\email\attachments\" & at.filename )[br] getattachments = getattachments & "
" &_[br] at.filename & "(" & at.size & " bytes)" & "" & separator[br] next[br]end function[br] [br]%> [br][br] [br]
[br] [br] | 郵件標題 | [br] <%= msg.subject %> | [br]
[br] [br] | 發件人 | [br] <%= msg.fromname %> | [br]
[br] [br] | 收件人 | [br] <%= reto %> | [br]
[br] [br] | 抄送 | [br] <%= recc %> | [br]
[br] [br] | 附件 | [br] <%= getattachments %> | [br]
[br] [br] | 內容 | [br] <%= msg.body %> | [br]
[br]
[br] [br][br][br]<% end if[br][br] pop3.disconnect[br][br]%>[br]sendmail.asp：[br][br]您在訪問網站時是否會在有些頁面上見到這種功能---您在可以訪問此網站的同時，[br]還可以查看您免費郵箱中是否有新郵件。這個功能是不是讓您覺得很心動、很神秘呢？[br]下面，我就用asp來舉個例子讓您知道是如何實現這一功能的。[br][br]首先你可以去一些提供免費郵件服務的站點，申請一個賬號然后登錄。在打開郵箱時，[br]請您注意地址欄中的內容?，F在以371為例，你會發現其內容通常是：[br]http://371.net/prog/login?user=fighter&pass=mypassword。[br]其中"fighter"是您的賬號，"mypassword"是您的密碼。這時我們可以從這里得到3個信息。[br]第1條是我們得到了處理文件的url及文件名:"http://371.net/prog/login"；[br]第2條是記錄您賬號的變量名:user；第3條是記錄您密碼的變量名:pass。[br]我們知道這些信息后，就可著手寫html文件和asp文件了。[br][br]'/*html源文件內容如下：*/[br]<html>[br]<head>[br]<meta name="generator" content="microsoft visual studio 6.0">[br]</head>[br]<title>city club 首頁</title>[br]<style type="text/css">[br]<!--[br]td { font-size: 14px}[br]body { font-size: 14px}[br]select { font-size: 14px}[br]a {text-decoration: none; color: #003366; font-size: 14px}[br]a:hover {text-decoration: underline; color: #ff0000; font-size: 14px}[br]-->[br]</style>[br]< script language="java script ">[br]function check(tt) {[br]if (window.document.form1.selectmail.selectedindex==0) {[br]alert("請選擇您的郵箱服務器！")[br]window.document.form1.selectmail.focus()[br]return false [br]}[br]if (tt.account.value=="") {[br]alert("帳號不能為空！請填寫。")[br]tt.account.focus()[br]return false[br]}[br]if (tt.account.value.length<3) {[br]alert("帳號長度不能小于3位！請填寫。")[br]tt.account.focus()[br]return false [br]}[br]if (tt.password.value=="") {[br]alert("密碼不能為空！請填寫。")[br]tt.password.focus()[br]return false [br]}[br]if (tt.password.value.length<3) {[br]alert("密碼長度不能小于3位！請填寫。")[br]tt.password.focus()[br]return false[br]}[br]else[br]return true [br]}[br]</ script >[br]<body topmargin=12>[br]<table border=0 bgcolor=d3d3d3>[br]<td>[br]<form action="postoffice.asp" method=post onsubmit="return check(this)" name=form1 [br]target="_blank"> <!--此處用target="_blank"，是為了彈出新窗口來查看您的郵箱-->[br]<select style="background-color:add8e6" name="selectmail">[br]<option name="mailsite" value="city club便民郵局" selected>city club便民郵局</option>[br]<option name='mailsite' value='990.net/prog/login?;user;pass;'>990</option>[br]<option name='mailsite' value='371.net/prog/login?;user;pass;'>371</option>[br]<option name='mailsite' value='188.net/prog/login?;user;pass;'>188</option>[br]<option name='mailsite' value='web.163.net/cgi/login?;user;pass;'>163</option>[br]<option name='mailsite' value='freemail.263.net/cgi/login?;user;pass;'>263</option>[br]<option name='mailsite' value='mail.777.net.cn/v2.0/html/mailbox.php3?;user;pass;'>777</option>[br]<option name='mailsite' value='126.com/cgi/login?;email;password;'>126</option>[br]<option name='mailsite' value='2911.net/cgi-bin/login?;username;password;'>2911</option>[br]<option name='mailsite' value='hotmail.yn.cninfo.net/prog/login?;user;pass;'>云南169</option>[br]<option name='mailsite' value='freemail.china.com/prog/login?;user;pass;'>china</option>[br]<option name='mailsite' value='freemail.hongkong.com/prog/login?;user;pass;'>香港免費電郵</option>[br]<option name='mailsite' value='freemail.netease.com/prog/login?;user;pass;'>netease</option>[br]<option name='mailsite' value='lc3.law5.hotmail.com/cgi-bin/dologin?;login;passwd;'>hotmail</option>[br]<option name='mailsite' value='netaddress.com/tpl/door/login?;userid;passwd;'>use.net</option>[br]<option name='mailsite' value='88998.com/cgi-win/login?;username;password;'>88998.com</option>[br]<option name='mailsite' value='mail.com/mailcom/login.jhtml?;mn;pw;'>@mail.com</option> [br]</select><br>[br]帳號:<input type=text name=account size=12 style="font-size:14px"><br>[br]密碼:<input type=password name=password size=12 style="font-size:14px"><br>[br]</td><tr><td align=center><input type=submit value="收信" style="font-size:14px">[br]<input type=reset value="重填" style="font-size:14px">[br]</td>[br]</form>[br]</td>[br]</table>[br]</body>[br]</html>[br]'/*html源文件內容結束*/[br][br][br]'/*postoffice.asp源文件內容如下：*/[br]<％@ language=vbscript ％>[br]<％[br]response.buffer = true[br]'----------------------------------------------------[br]'author : peter.yu[br]'created date : 2000/3/13[br]'file name : postoffice.asp[br]'all rights reserved.所有權歸city club[br]'----------------------------------------------------[br]％>[br]<html>[br]<head>[br]<meta name="generator" content="microsoft visual studio 6.0">[br]</head>[br]<title>city club 便民郵局 （all rights reserved所有權歸city club）</title>[br]<body>[br]<％[br]dim str(3)[br]str1 =trim(request.form("selectmail")) '/*獲取的郵件服務器及用戶賬號和密碼信息*/[br]for i = 1 to 3 '/*將以上獲取的信息進行分割，并賦予給數組變量*/[br]p = instr(1,str1,";")[br]str(i-1) = mid(str1,1,p-1)[br]str1 = mid(str1,p+1)[br]next[br]if instr(1,str(0),"http://")=0 then[br]websiteurl = "http://" & str(0)[br]else[br]websiteurl = str(0) '/*郵件服務器地址及指定處理的文件名*/[br]end if [br]usernam = str(1) '/*賬號變量名*/[br]password = str(2) '/*密碼變更名*/[br]'/*合并字符，得到諸如"http://371.net/prog/login?user=fighter&pass=mypassword的字符"*/[br]mailurl = websiteurl & usernam & "=" & trim(request.form("account")) [br]mailurl = mailurl & chr(38) & password & "=" & trim(request.form("password"))[br]response.redirect mailurl '/*打開郵箱*/[br]％>[br]</body>[br]</html>[br][br]'/*postoffice.asp源文件內容結束*/[br][br]不是很難吧，呵呵。其實這個不是很難的，關鍵在于您能多多觀察，找出其中的規律。這樣我們就可以利用這些規律做很多很多有意義有趣的事了
該文章在 2010/7/3 10:49:23 編輯過
400 186 1886
