📄 使用asp实现支持附件的邮件系统（三）.htm
字号:
<TD align=right height=23 width=355>
<CENTER></CENTER>
<P align=center>中国动感资源交流，网络动感资源荟萃</P></TD>
<TD align=middle>
<P align=center><A href="http://www.moonet.com/edu/">教育网</A>
英文版</P></TD></TR></TBODY></TABLE>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753></TD>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR vAlign=top>
<TD bgColor=#297dff width=1> </TD>
<TD width=753>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#297dff colSpan=2 height=20><FONT color=#ceffff> →
<A href="http://www.aspsky.net/article/index.asp?classid=2"><FONT
color=#ceffff>ASP技术</FONT></A> >> <A
href="http://www.aspsky.net/article/index.asp?classid=2&Nclassid=32"><FONT
color=#ceffff>邮件相关</FONT></A> >>
《使用asp实现支持附件的邮件系统（三）》</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD align=middle class=p4
colSpan=2><B>使用asp实现支持附件的邮件系统（三）</B></FONT><BR>2002-2-25 动网先锋
</TD></TR>
<TR>
<TD class=p4 colSpan=2>
<BLOCKQUOTE><BR>最后，我们来讲讲如何把内容从数据库中读出来，内容有这么几类，一类是浏览器上可以显示的，例如*.htm，一类是需要下载的，例如*.exe，还有一种是浏览器可以显示但是不能够让他显示的，例如*.asp，请看代码：
<P></P>
<P><%<BR>Response.Buffer= true<BR>Response.Clear</P>
<P>function getname(oriname)<BR>thename=oriname<BR>do while
instr(thename,"/")>0
<BR>thename=mid(thename,instr(thename,"/")+1)<BR>loop<BR>do while
instr(thename,"\")>0
<BR>thename=mid(thename,instr(thename,"\")+1)<BR>loop<BR>getname=thename</P>
<P>end function</P>
<P>function canexec(thechar)<BR>if instr(thechar,".asp")>0
then<BR>canexec=false <BR>exit function<BR>end if<BR>if
instr(thechar,".asa")>0 then<BR>canexec=false <BR>exit function
<BR>end if<BR>if instr(thechar,".aspx")>0 then<BR>canexec=false
<BR>exit function <BR>end if<BR>if instr(thechar,".asax")>0
then<BR>canexec=false <BR>exit function <BR>end
if<BR>canexec=true<BR>end
function<BR>mailID=request("mailID")<BR>se=request("se")<BR>if
se<>1 and se<>2 and se<>3
then<BR>response.end<BR>end if<BR>Set
conn=server.createobject("adodb.connection")<BR>set
rs=server.createobject("adodb.recordset")<BR>conn.open
"DSN=;UID=;PWD="<BR>sql="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&"'
" <BR>rs.open sql,conn,3,3<BR>if rs.eof or rs.bof
then<BR>response.end<BR>end if<BR>if
rs("filecontenttype_"&trim(se))<>"text/plain" or (not
canexec(getname(trim(rs("filename_"&trim(se))))))
then<BR>Response.ContentType =
rs("FileContentType_"&trim(se))<BR>end if<BR></P>
<P><BR>'Response.AddHeader
"content-type","application/x-msdownload" <BR><BR>if
instr(response.contenttype,"application")>0
then<BR>response.AddHeader
"Content-Disposition","attachment;filename="&getname(trim(rs("filename_"&trim(se))))<BR>end
if <BR>Response.BinaryWrite
rs("FileContent_"&trim(se))<BR>rs.close<BR>set
rs=Nothing<BR>conn.close<BR>set conn=nothing<BR>%></P>
<P>文章到这里就结束了，至于邮件数据库的数据结构大家根据代码自己琢磨吧！<BR><BR><BR></P></BLOCKQUOTE></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<BLOCKQUOTE>原作者：sonic_qd<BR>来 源：开发者俱乐部<BR>共有3946位读者阅读过此文<BR>【<A
href="http://bbs.aspsky.net/list.asp?boardid=1">发表评论</A>】
</BLOCKQUOTE></TD>
<TD class=p4 vAlign=top width="50%">
<P>
<LI><FONT color=#0772b1>上篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2616">使用asp实现支持附件的邮件系统（二）</A>
<BR>
<LI><FONT color=#0772b1>下篇文章</FONT>：<A
href="http://www.aspsky.net/article/list.asp?id=2618">TOP N 和SET
ROWCOUNT N 哪个更快</A> </LI></TD></TR>
<TR>
<TD bgColor=#297dff class=p4 height=20 width="50%"><FONT
color=#ceffff> → 本周热门</FONT></TD>
<TD bgColor=#297dff class=p4 width="50%"><FONT color=#ceffff> →
相关文章</FONT></TD></TR>
<TR>
<TD bgColor=#586011 colSpan=2 height=1><SPACER type="block"
width="1"></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR>
<TR>
<TD class=p4 vAlign=top width="50%">
<LI><A href="http://www.aspsky.net/article/list.asp?id=1510"
target=_top title="SQL Server 7.0 入门（一）">SQL Server 7.0
入门（...</A>[<FONT color=red>7239</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1540"
target=_top title=PHP4实际应用经验篇(1)>PHP4实际应用经验篇(1)</A>[<FONT
color=red>7135</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1536"
target=_top
title=无组件文件上传代码实例（支持多文件上传及文件和input域混合上传）>无组件文件上传代码实例（支持多文件上...</A>[<FONT
color=red>6029</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2557"
target=_top title=树型结构在ASP中的简单解决>树型结构在ASP中的简单解决</A>[<FONT
color=red>5757</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1545"
target=_top title=PHP4实际应用经验篇(6)>PHP4实际应用经验篇(6)</A>[<FONT
color=red>5599</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=2563"
target=_top title=一个老个写的无组件上传>一个老个写的无组件上传</A>[<FONT
color=red>5013</FONT>]<BR>
<LI><A href="http://www.aspsky.net/article/list.asp?id=1542"
target=_top title=PHP4实际应用经验篇(3)>PHP4实际应用经验篇(3)</A>[<FONT
color=red>4731</FONT>]<BR></LI></TD>
<TD class=p4 vAlign=top width="50%">
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2617">使用asp实现支持附件的邮件系统（三）</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2616">使用asp实现支持附件的邮件系统（二）</A><BR>
<LI><A
href="http://www.aspsky.net/article/list.asp?id=2615">使用asp实现支持附件的邮件系统（一）</A><BR></LI></TD></TR>
<TR>
<TD colSpan=2 height=7></TD></TR></TBODY></TABLE>
<TD bgColor=#297dff width=1> </TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD bgColor=#297dff height=1><SPACER type="block"
width="1"></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle height=30></TD></TR></TBODY></TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=755>
<TBODY>
<TR>
<TD align=middle class=p2 width="100%">
<P align=center><A
href="http://www.aspsky.net/produce/index.asp">客户服务</A> -- <A
href="http://www.aspsky.net/aspads.asp">广告合作</A> -- <A
href="http://www.aspsky.net/about.asp">关于本站</A> -- <A
href="http://www.aspsky.net/tell.asp">联系方法</A><BR><BR>动网先锋版权所有 <FONT
face=Verdana, size=1 Arial, Helvetica, sans-serif>Copyright ©
2000-2001 <B>AspSky<FONT color=#cc0000>.Net</FONT></B>, All Rights
Reserved .</FONT>
</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></CENTER></CENTER></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -