ASP编程：用ASP完成撑持附件的EMail体系（1）
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.人人常常切磋利用asp，而不利用其他组建可否完成文件的上传，从而开辟出撑持邮件附件的邮件体系，谜底是能够的。以下是发送邮件的页面，邮件的帐号是员工号，假定是5位的数字，sendmail.asp固然是在正当上岸后才干够看到的
＜html＞
＜head＞
＜metahttp-equiv="Content-Type"content="text/html;charset=gb2312"＞
＜linkrel="stylesheet"type="text/css"href="/css/FORUM.CSS"＞
＜styletype=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＞
＜bodybgcolor="#FEF7ED"＞
＜scriptlanguage="javascript"＞
＜%
ifsession("myid")=""orlen(session("myid"))＜＞5then
response.write"window.open(nolog.asp,target=_top);"
endif
%＞
functioncheck(theform)
{
if(theform.geterempl.value==)
{
alert(请输出收件人！);
theform.geterempl.focus();
returnfalse;
}
if(theform.emailtitle.value==)
{
alert(请输出主题!);
theform.emailtitle.focus();
returnfalse;
}
if(theform.emailtitle.value.length＞200)
{
alert(主题请少于200字节);
theform.emailtitle.focus();
returnfalse;
}
if(theform.body.value.length＞15*1024)
{
alert(注释请少于16K);
theform.body.focus();
returnfalse;
}
if(theform.emailshowname.value.length＞1024)
{
alert(署名请少于1K);
theform.emailshowname.focus();
returnfalse;
}
}
＜/script＞
＜%
meth=request.querystring("meth")
ifmeth=1then
geterempl=trim(request.querystring("geterempl"))
emailtitle=trim(request.querystring("emailtitle"))
elseifmeth=2then
mailid=trim(request.querystring("mailid"))
setconn=server.createobject("adodb.connection")
conn.open"DSN=;UID=;PWD="
dsnpath="DSN=;UID=;PWD="
setrs=server.createobject("adodb.recordset")
selectnew="select*fromt_mailwhere((geterempllike%"&session("myid")&"%ordeleempllike%"&session("myid")&"%orreceempllike%"&session("myid")&"%)and(notdeleverempllike%"&session("myid")&"%))andmailid="&mailid&""
rs.openselectnew,dsnpath,3,3
ifrs.boforrs.eofthen
%＞
＜scriptlanguage="javascript"＞
alert("您没有检察这封邮件的权限！");
window.history.back();
＜/script＞
＜%
response.end
else
body=rs("body")
emailtitle=rs("emailtitle")
rs.close
setrs=nothing
conn.close
setconn=nothing
endif
endif
%＞
＜Formname="upload_file"action="loadmail.asp"method=postenctype="multipart/form-data"＞
＜tablewidth="100%"border="0"cellspacing="2"cellpadding="2"＞
＜tr＞
＜tdwidth="11%"＞
＜divalign="right"＞发件人:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜inputtype="hidden"name="senderempl"value="＜%=session("myid")%＞"＞
＜%=session("myid")%＞＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"＞
＜divalign="right"＞收件人:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜inputtype="text"name="geterempl"size="40"value="＜%=geterempl%＞"＞
＜inputtype="checkbox"name="emaillevel"value="1"style="background-color:#FEF7ED"＞
告急函件＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"valign="top"＞＜/td＞
＜tdwidth="89%"＞发送多团体的时分可使用"＜fontcolor="#9999FF"＞|＜/font＞"离隔,比方:＜fontcolor="#3399FF"＞01234|01235|01236＜/font＞,第一名和最初一名不必要"＜fontcolor="#9999FF"＞|＜/font＞"
＜fontcolor="#FF0000"＞新功效＜/font＞：您能够把信信间接发送给您设定的＜ahref="group.asp"＞某用户＜/a＞，发送格局为：gr:组序号，比方＜fontcolor="#0099FF"＞gr:001＜/font＞＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"＞
＜divalign="right"＞＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜inputtype="checkbox"name="receempl"value="1"style="background-color:#FEF7ED"＞
保留一份到保藏夹[＜fontcolor="#3399FF"＞选定此项，则邮件发送到对方邮箱的同时发送到本人的保藏夹里＜/font＞]＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"valign="top"＞＜/td＞
＜tdwidth="89%"＞＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"align="right"＞主题:＜/td＞
＜tdwidth="89%"＞
＜inputtype="text"name="emailtitle"size="60"value="＜%=emailtitle%＞"＞
＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"valign="top"＞
＜divalign="right"＞注释:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜TEXTAREAname=bodyrows=8cols=60＞＜%=body%＞＜/TEXTAREA＞
＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"valign="top"＞
＜divalign="right"＞署名:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜textareaname="emailshowname"cols="30"rows="6"＞＜%=application(session("myid")&"_name")%＞＜/textarea＞
＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"＞
＜divalign="right"＞
＜inputtype=hiddenname="FileUploadStart"＞
附件1:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜inputtype="file"name="file_up"size="50"＞
＜/td＞
＜/tr＞
＜tr＞
＜tdwidth="11%"＞
＜divalign="right"＞附件2:＜/div＞
＜/td＞
＜tdwidth="89%"＞
＜inputtype="file"name="file_up1"size="50"＞
＜/td＞</p>asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！ 代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。
页:
[1]