|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
对于中小型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最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。 |
|