使用asp实现支持附件的邮件系统（一） -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 使用asp实现支持附件的邮件系统（一）

使用asp实现支持附件的邮件系统（一） 时间：2004/11/7 3:00:00来源：本站整理作者：蓝点我要评论(0)

大家经常探讨使用asp，而不使用其他组建能否实现文件的上传，从而开发出支持邮件附件的邮件系统，答案是可以的。请看：

以下是发送邮件的页面，邮件的帐号是员工号，假设是5位的数字，sendmail.asp当然是在合法登陆后才能够看到的

邮件系统

<%

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

                   %>



                   <%

                  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
	保存一份到收藏夹[选定此项，则邮件发送到对方邮箱的同时发送到自己的收藏夹里]

主题:
正文:	<%=body%>
签名:	<%=application(session("myid")&"_name")%>
附件1:
附件2:
附件3:

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。