繁体中文
设为首页
加入收藏
当前位置:ASP技术首页 >> 邮件相关 >> 使用asp实现支持附件的邮件系统(一)

使用asp实现支持附件的邮件系统(一)

2006-07-15 08:00:00  作者:  来源:互联网  浏览次数:0  文字大小:【】【】【
简介:  大家经常探讨使用asp,而不使用其他组建能否实现文件的上传,从而开发出支持邮件附件的邮件系统,答案是可以的。请看: 以下是发送邮件的页面,邮件的帐号是员工号,假设是5位的数字,sendmail.asp当然是在合...

  大家经常探讨使用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

保存一份到收藏夹[选定此项,则邮件发送到对方邮箱的同时发送到自己的收藏夹里]

主题:

正文:

签名:

附件1:

附件2:

附件3:

责任编辑:admin
相关文章