大家经常探讨使用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 %"%26amp;session("myid")%26amp;"% or deleempl like %"%26amp;session("myid")%26amp;"% or receempl like %"%26amp;session("myid")%26amp;"%)and (not deleverempl like %"%26amp;session("myid")%26amp;"%)) and mailid="%26amp;mailid%26amp;" "
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")%26amp;"_name")%>
附件1:
附件2:
附件3:

文章整理：站长天空 网址：http://www.z6688.com/
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!