需求很簡單，只要把編輯好的網頁發給大家當垃圾信件..^____^
雖然說很簡單，可是我之前只學過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語法，所以會自動跳頁..~_~，現在改好了
") # 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語法，所以會自動跳頁..~_~，現在改好了
請先 登入 以發表留言。