LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

Jmail组件发送及收邮件的asp代码 五

admin
2010年7月3日 10:50 本文热度 6187
使用asp实现支持附件的邮件系统:大家经常探讨使用asp,而不使用其他组建能否实现文件的上传,从而开发出支持邮件附件的邮件系统,答案是可以的。请看: 以下是发送邮件的页面,邮件的帐号是员工号,假设是5位的数字,sendmail.asp当然是在合法登陆后才能够看到的 邮件系统 < 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字节'); 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("您没有查看这封邮件的权限!"); 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 %>
发件人:
"> <%=session("myid")%>
收件人:
紧急信件
发送多个人的时候可以使用"|"隔开,例如:01234|01235|01236,第一位和最后一位不需要"|"
新功能:您可以把信信直接发送给您设定的某用户,发送格式为:gr:组序号,例如gr:001
保存一份到收藏夹[选定此项,则邮件发送到对方邮箱的同时发送到自己的收藏夹里]
主题:
正文:
签名:
附件1:
附件2:
附件3:
===========================================================================================================用cdont组件发邮件:最近看到充许多网友要用自动发邮件的讨论, 这个东东我以前也研究过现在把它发布到这儿,希望能给大家带来用处: <% 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") '设置寄件人 objmail.from=fromwho objmail.from=frommail '设置收件人 objmail.to=towho objmail.to=tomail '设置邮件主题 objmail.subject=subject '设置邮件内容 objmail.body=content&title&towho&fromwho '将邮件格式设成html,若没有这两行,则默认的是txt格式 'objmail.bodyformat=0 'objmail.mailformat=0 objmail.send %> <% response.write"< script language=java script >alert('你已经成功寄出了!!!');" response.write"< script language=java script >window.location.href='vb script :history.back'" %> 这个程序已经测试通过的 -------------------------------------------------------------------------------- 关于这篇文章的评论 [注意:这里仅仅是给大家提供了一个发表对文章本身看法的地方,如果有疑问,请到论坛提出] 我要提问! hyijiao 2003-10-14 11:33:00 請問如何把下面的jmail改成用ms.cdonts 發郵件?謝謝 -------------------------------------------------------------------------------- 您好!   請問如何把下面的jmail改成用ms.cdonts 發郵件?謝謝! 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 = "尊敬的用户您好,首先感谢您使用我们的服务!." & 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 & "请妥善保管您的密码,如再次遗忘密码,请登录至本站取回您的密码,谢谢您使用本系统。" & 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是你的发送邮件服务器,25是端口号

该文章在 2010/7/3 10:50:17 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved