使用asp實現(xiàn)支持附件的郵件系統(tǒng):大家經(jīng)常探討使用asp，而不使用其他組建能否實現(xiàn)文件的上傳，從而開發(fā)出支持郵件附件的郵件系統(tǒng)，答案是可以的。請看： 以下是發(fā)送郵件的頁面，郵件的帳號是員工號，假設(shè)是5位的數(shù)字，sendmail.asp當然是在合法登陸后才能夠看到的
郵件系統(tǒng) < script language="java script "> <% if session("myid")="" or len(session("myid"))<>5 then response.write "window.open('nolog.asp',target='_top');" end if %> function check(theform) { if (theform.geterempl.value=='') { alert('請輸入收件人！'); theform.geterempl.focus(); return false; } if (theform.emailtitle.value=='') { alert('請輸入主題!'); theform.emailtitle.focus(); return false; } if (theform.emailtitle.value.length>200) { alert('主題請少于200字節(jié)'); theform.emailtitle.focus(); return false; } if (theform.body.value.length>15*1024) { alert('正文請少于16k'); theform.body.focus(); return false; } if (theform.emailshowname.value.length>1024) { alert('簽名請少于1k'); theform.emailshowname.focus(); return false; } } <% meth=request.querystring("meth") if meth=1 then geterempl=trim(request.querystring("geterempl")) emailtitle=trim(request.querystring("emailtitle")) elseif meth=2 then mailid=trim(request.querystring("mailid")) set conn=server.createobject("adodb.connection") conn.open "dsn=;uid=;pwd=" dsnpath="dsn=;uid=;pwd=" set rs=server.createobject("adodb.recordset") selectnew="select * from t_mail where ((geterempl like '%"&session("myid")&"%' or deleempl like '%"&session("myid")&"%' or receempl like '%"&session("myid")&"%')and (not deleverempl like '%"&session("myid")&"%')) and mailid='"&mailid&"' " rs.open selectnew,dsnpath,3,3 if rs.bof or rs.eof then %> < script language="java script "> alert("您沒有查看這封郵件的權(quán)限！"); window.history.back(); <% response.end else body=rs("body") emailtitle=rs("emailtitle") rs.close set rs=nothing conn.close set conn=nothing end if end if %>
===========================================================================================================用cdont組件發(fā)郵件:最近看到充許多網(wǎng)友要用自動發(fā)郵件的討論, 這個東東我以前也研究過現(xiàn)在把它發(fā)布到這兒,希望能給大家?guī)碛锰? <% fromwho=request("fromwho") frommail=request("frommail") towho=request("towho") tomail=request("tomail") subject=request("subject") content=request("content") title=request("title") %> <% '建立一個cdonts.newmail對象 set objmail=server.createobject("cdonts.newmail") '設(shè)置寄件人 objmail.from=fromwho objmail.from=frommail '設(shè)置收件人 objmail.to=towho objmail.to=tomail '設(shè)置郵件主題 objmail.subject=subject '設(shè)置郵件內(nèi)容 objmail.body=content&title&towho&fromwho '將郵件格式設(shè)成html,若沒有這兩行,則默認的是txt格式 'objmail.bodyformat=0 'objmail.mailformat=0 objmail.send %> <% response.write"< script language=java script >alert('你已經(jīng)成功寄出了！！！');" response.write"< script language=java script >window.location.href='vb script :history.back'" %> 這個程序已經(jīng)測試通過的 -------------------------------------------------------------------------------- 關(guān)于這篇文章的評論 [注意：這里僅僅是給大家提供了一個發(fā)表對文章本身看法的地方，如果有疑問，請到論壇提出] 我要提問! hyijiao 2003-10-14 11:33:00 請問如何把下面的jmail改成用ms.cdonts 發(fā)郵件？謝謝 -------------------------------------------------------------------------------- 您好！ 請問如何把下面的jmail改成用ms.cdonts 發(fā)郵件？謝謝！ set jmail = server.createobject("jmail.smtpmail") jmail.serveraddress = "mail.powercord911.com:25" jmail.sender = "mis@powercord911.com" jmail.subject = "您的登錄密碼" jmail.addrecipient(rsuserinfo.fields.item("useremail").value) jmail.body = "尊敬的用戶您好，首先感謝您使用我們的服務(wù)！." & vbcrlf & vbcrlf jmail.body = jmail.body & "您的用戶名是：" &(rsuserinfo.fields.item("user_name").value) & vbcrlf jmail.body = jmail.body & "您的注冊郵箱是：" &(rsuserinfo.fields.item("useremail").value) & vbcrlf jmail.body = jmail.body & "您的登錄密碼是：" &(rsuserinfo.fields.item("fpassword").value) & vbcrlf jmail.body = jmail.body & "請妥善保管您的密碼，如再次遺忘密碼，請登錄至本站取回您的密碼，謝謝您使用本系統(tǒng)。" & vbcrlf jmail.body = jmail.body & "順祝商祺！" & vbcrlf jmail.body = jmail.body & "××××××有限公司" jmail.priority = 3 jmail.addheader "originating-ip", request.servervariables("remote_addr") jmail.execute 在以上代碼中兩句代碼： jmail.serveraddress = "mail.powercord911.com:25" jmail.sender = "mis@powercord911.com" mail.powercord911.com:25是你的發(fā)送郵件服務(wù)器，25是端口號
該文章在 2010/7/3 10:50:17 編輯過
400 186 1886
