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

王朝asp·作者佚名  2008-05-30
窄屏简体版  字體: |||超大  

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

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

input { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

select { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

textarea { font-size: 9pt; color: #0011dd; background-color: #e9e9f9; padding-top: 0px}

邮件系统

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

%

发件人:

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航