這段時間看到有太多的人迷茫於郵件的**。
所以把自己以前寫的乙個東東拿出來與大家分享。希望大家能夠舉一反三。
關鍵是如果構建乙個自身呼叫的方法，還有在大資料量的情況下，使用陣列來代替記錄集。
自身的呼叫可以有很多的應用。除了郵件的**，還有譬如自身的遞迴。很多人想實現取得不重複隨機數就可以使用下面得思路。
當然，實現總不是一種，而是多樣化得，你還可以有更好得方法。希望能夠和大家切磋！
這個頁面叫做email_sendall.asp
<%on error resume next%>
<%
if request("page")="" then
cpage=1
else
cpage=request("page")
end if
'接受郵件內容，當然，也可以從資料庫種查詢
comment=request("comment")
'定義郵件陣列
dim emailarray
sql_email="select useremail,userregname,userpassword from email"
set recordsetemail=server.createobject("adodb.recordset")
recordsetemail.activeconnection=cnn
recordsetemail.source=sql_email
recordsetemail.cursortype=3
recordsetemail.cursorlocation=2
recordsetemail.locktype=1
recordsetemail.pagesize=5
recordsetemail.open()
recordsetemail.absolutepage=cpage
page_count=recordsetemail.pagecount
'把資料庫中的讀取到陣列中。
emailarray=recordsetemail.getrows(5,0)
recordsetemail.close
if err.number<>0 then
jmail.close
response.write "郵件**成功！"
response.end
else
end if
set recordsetemail=nothing
if isarray(emailarray) then
repeat1__index=0
dim u_emailarray
u_emailarray=ubound(emailarray,2)
while(repeat1__index<=u_emailarray)
comment1=replace(comment,"",emailarray(1,repeat1__index))
comment1=replace(comment1,"",emailarray(2,repeat1__index))
set jmail=server.createobject("jmail.smtpmail")
jmail.contenttype="text/html"
jmail.encoding = "base64"
jmail.charset="gb2312"
jmail.sender=request("fromwho")
jmail.subject = request("subject")
jmail.addrecipient(emailarray(0,repeat1__index))
jmail.body =comment1
jmail.addheader "originating-ip", request.servervariables("remote_addr")
jmail.execute
jmail.close
response.write(request("towho"))
response.write(" 成功傳送！
")set jmail = nothing
repeat1__index=repeat1__index+1
wend
else
end if
裡面有乙個簡單的圖表類
使用方法是講test.asp中的那個屬性設定為1到4就可以了。時間關係，還需要修改。
不盡完善，歡迎批評指正！
asp Jmail傳送郵件
傳送郵件到會員郵箱裡 function sendjmail strfromemail,strfromname,strtoemail,strsubject,intbodytype,strbody dim msg set jmail server.createobject jmail.message j...
ASP JMAIL郵件傳送程式
dim mailserver,mailserverloginname,mailserverloginpass,mailuserdomain,frommail 參 數 設 置 郵件底部的廣告 mailfoot 義大利健康睡眠系統 set jmail server.createobject jmail....
asp Jmail郵件傳送方式
set jmail server.createobject jmail.message 建立傳送郵件的物件 response.write sendfrom sendto tpserver sendusername sendpassword subject message sendname jmail...