仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 850|回复: 8
打印 上一主题 下一主题

[学习教程] ASP网页设计利用asp完成撑持附件的邮件体系(三)

[复制链接]
再见西城 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:34:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

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最大的缺点在于网络的安全性和可靠性,企业将经营数据放在开放的平台上,最大的担忧就是如何保证这些数据不被其他人破坏。
因胸联盟 该用户已被删除
沙发
发表于 2015-1-17 23:51:45 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
板凳
发表于 2015-1-20 05:19:38 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
admin 该用户已被删除
地板
发表于 2015-1-25 13:12:26 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
再现理想 该用户已被删除
5#
发表于 2015-1-31 12:53:10 来自手机 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
飘灵儿 该用户已被删除
6#
发表于 2015-2-6 19:25:19 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
冷月葬花魂 该用户已被删除
7#
发表于 2015-2-18 09:19:30 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-6 03:19:33 | 只看该作者
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.
再见西城 该用户已被删除
9#
 楼主| 发表于 2015-3-12 19:03:02 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 00:29

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表