ASP网页设计利用asp完成撑持附件的邮件体系（三）
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，最初，我们来说讲怎样把内容从数据库中读出来，内容有这么几类，一类是扫瞄器上能够显现的，比方*.htm，一类是必要下载的，比方*.exe，另有一种是扫瞄器能够显现可是不克不及够让他显现的，比方*.asp，请看代码：<%
Response.Buffer=true
Response.Clear
functiongetname(oriname)
thename=oriname
dowhileinstr(thename,"/")>0
thename=mid(thename,instr(thename,"/")+1)
loop
dowhileinstr(thename,"")>0
thename=mid(thename,instr(thename,"")+1)
loop
getname=thename
endfunction
functioncanexec(thechar)
ifinstr(thechar,".asp")>0then
canexec=false
exitfunction
endif
ifinstr(thechar,".asa")>0then
canexec=false
exitfunction
endif
ifinstr(thechar,".aspx")>0then
canexec=false
exitfunction
endif
ifinstr(thechar,".asax")>0then
canexec=false
exitfunction
endif
canexec=true
endfunction
mailID=request("mailID")
se=request("se")
ifse1andse2andse3then
response.end
endif
Setconn=server.createobject("adodb.connection")
setrs=server.createobject("adodb.recordset")
conn.open"DSN=;UID=;PWD="
sql="select*fromt_mailwhere((geterempllike%"&session("myid")&"%ordeleempllike%"&session("myid")&"%orreceempllike%"&session("myid")&"%)and(notdeleverempllike%"&session("myid")&"%))andmailid="&mailid&""
rs.opensql,conn,3,3
ifrs.eoforrs.bofthen
response.end
endif
ifrs("filecontenttype_"&trim(se))"text/plain"or(notcanexec(getname(trim(rs("filename_"&trim(se))))))then
Response.ContentType=rs("FileContentType_"&trim(se))
endif
Response.AddHeader"content-type","application/x-msdownload"
ifinstr(response.contenttype,"application")>0then
response.AddHeader"Content-Disposition","attachment;filename="&getname(trim(rs("filename_"&trim(se))))
endif
Response.BinaryWriters("FileContent_"&trim(se))
rs.close
setrs=Nothing
conn.close
setconn=nothing
%>
文章到这里就停止了，至于邮件数据库的数据布局人人依据代码本人揣摩吧！
-----------sonic</p>ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 我想问如何掌握学习节奏(先学什么再学什么)最好详细点? 多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标. 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。
页:
[1]