I need air

需求很簡單，只要把編輯好的網頁發給大家當垃圾信件..^____^



雖然說很簡單，可是我之前只學過C語言，
上次post了我修改過的asp程式，可是不盡完善，這次終於寫出我暫時需要的功能了。

需求: 使用asp呼叫access資料庫再結合 jmail發電子報。

想法: 想法是抓一封寄一封，並且每封都延遲五秒。

問題: 1.對象約1985人，一次傳可能會造成伺服器擁擠。
2.使用迴圈，只要一遇到錯誤的E-mail或拒絕，則程式就會停止。
3.資料庫要從Excal轉到Access。

解決:

沿用之前在藍色小鋪下載的電子報系統，作者為"健康"，
原本的程式有點小問題，只要E-mail超過兩個人，就只有第一個人才收得到，
上次以修正這小問題，這次是採取每迴圈一次就發信出去，並且加入遇到E-mail錯誤就忽略過去的程式碼..^____^
仔細想想，其實並不難，卻花了很多時間思考。

程式碼如下:


#FMailTo=""
#do while not rs.eof

# 'response.Write(Rs("username")&"
")

# if Ucase(Rs("send")) "NO" then
# FMailto = Rs("email")
# JMail.AddRecipient FMailto
# JMail.Body = FPaperBody
# JMail.Priority = 3
#
# On Error Resume Next
# JMail.Execute
# If Err 0 Then
# Response.Write "An error occurred: " & Err.Description
# End If
# JMail.ClearRecipients
# response.write "＜meta http-equiv='Refresh' content='5;url=index.asp'＞" (這裡的＜＞是用全形，是為了避免部落格自動執行語法)
#
# else
# Response.Write JMail.Log
# end if
# rs.movenext
#
#
#loop
#
#
#
#rs.close
#


#Set JMail = Nothing
#end sub





後語

雖然可以用迴圈方式寄信了，且程式也成功執行，但是似乎沒有成功達成延遲五秒，而且錯誤或遭到拒絕的E-mail相當多，如果有高手，請給予指點吧。

無論如何，第一期電子報已經成功發行，雖然可以預見被當垃圾信件的機率，但是也算是往前邁向一步啦，接著是美化主要網站與空間預約系統，加油!


p.s 沒注意到部落格也可以用html語法，所以會自動跳頁..~_~，現在改好了