分享
 
 
 

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

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

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

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

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link rel="stylesheet" type="text/css" href="/css/FORUM.CSS">

<style type=text/css>

<!--

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}

-->

</style>

<title>邮件系统</title></head>

<body bgcolor="#FEF7ED">

<script language="javascript">

<%

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;

}

}

</script>

<%

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="javascript">

alert("您没有查看这封邮件的权限!");

window.history.back();

</script>

<%

response.end

else

body=rs("body")

emailtitle=rs("emailtitle")

rs.close

set rs=nothing

conn.close

set conn=nothing

end if

end if

%>

<Form name="upload_file" onSubmit="return check(this)" action="loadmail.asp" method=post enctype="multipart/form-data" >

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td width="11%">

<div align="right">发件人:</div>

</td>

<td width="89%">

<input type="hidden" name="senderempl" value="<%=session("myid")%>">

<%=session("myid")%> </td>

</tr>

<tr>

<td width="11%">

<div align="right">收件人:</div>

</td>

<td width="89%">

<input type="text" name="geterempl" size="40" value="<%=geterempl%>">

<input type="checkbox" name="emaillevel" value="1" style="background-color: #FEF7ED">

紧急信件 </td>

</tr>

<tr>

<td width="11%" valign="top"> </td>

<td width="89%">发送多个人的时候可以使用"<font color="#9999FF">|</font>"隔开,例如:<font color="#3399FF">01234|01235|01236</font>,第一位和最后一位不需要"<font color="#9999FF">|</font>"<br>

<font color="#FF0000">新功能</font>:您可以把信信直接发送给您设定的<a href="group.asp">某用户</a>,发送格式为:gr:组序号,例如<font color="#0099FF">gr:001</font></td>

</tr>

<tr>

<td width="11%">

<div align="right"></div>

</td>

<td width="89%">

<input type="checkbox" name="receempl" value="1" style="background-color: #FEF7ED">

保存一份到收藏夹[<font color="#3399FF">选定此项,则邮件发送到对方邮箱的同时发送到自己的收藏夹里</font>]</td>

</tr>

<tr>

<td width="11%" valign="top"> </td>

<td width="89%"> </td>

</tr>

<tr>

<td width="11%" align="right"> 主题:</td>

<td width="89%">

<input type="text" name="emailtitle" size="60" value="<%=emailtitle%>">

</td>

</tr>

<tr>

<td width="11%" valign="top">

<div align="right">正文:</div>

</td>

<td width="89%">

<TEXTAREA name=body rows=8 cols=60><%=body%></TEXTAREA>

</td>

</tr>

<tr>

<td width="11%" valign="top">

<div align="right">签名:</div>

</td>

<td width="89%">

<textarea name="emailshowname" cols="30" rows="6"><%=application(session("myid")&"_name")%></textarea>

</td>

</tr>

<tr>

<td width="11%">

<div align="right">

<input type=hidden name="FileUploadStart">

附件1: </div>

</td>

<td width="89%">

<input type="file" name="file_up" size="50">

</td>

</tr>

<tr>

<td width="11%">

<div align="right">附件2:</div>

</td>

<td width="89%">

<input type="file" name="file_up1" size="50">

</td>

</tr>

<tr>

<td width="11%">

<div align="right">附件3:</div>

</td>

<td width="89%">

<input type="file" name="file_up2" size="50">

<input type=hidden name="FileUploadEnd">

</td>

</tr>

<tr>

<td width="11%">

<div align="right"></div>

</td>

<td width="89%">

<input type=submit value=确定 >

</td>

</tr>

</table>

</Form>

</body>

</html>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有