仓酷云

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

[学习教程] ASP编程:ASP中静态include文件代码实例

[复制链接]
深爱那片海 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:18:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
ASP由于使用了COM组件所以它会变的十分强大,但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意,哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失;include|静态  受<!#includefile="filename.asp"-->宏限定,必需存在该文件而且会事后编译(不论后面是不是加以前提)。常常有如许的请求,依据分歧的需求请求include分歧的文件,如各团体的分歧设置,以是请求能静态include文件。
代码以下:
Functioninclude(filename)
Dimre,content,fso,f,aspStart,aspEnd
setfso=CreateObject("Scripting.FileSystemObject")
setf=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
setf=nothing
setfso=nothing
setre=newRegExp
re.pattern="^s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
dowhileaspStart>aspEnd+1
Response.writeMid(content,aspEnd,aspStart-aspEnd-2)
aspEnd=inStr(aspStart,content,"%>")+2
Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write"))
aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.writeMid(content,aspEnd)
setre=nothing
EndFunction利用典范:
include("youinc.asp")帮助用户快速实现各种应用服务,ASP商有整合各方面资源的能力,可在短期内为用户提供所需的解决方案。例如,典型的ERP安装,如果要在客户端安装的话需要半年到二年的时间,但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。
精灵巫婆 该用户已被删除
沙发
发表于 2015-1-19 07:27:28 | 只看该作者
掌握asp的特性而且一定要知道为什么。
再现理想 该用户已被删除
板凳
发表于 2015-1-26 19:18:51 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
第二个灵魂 该用户已被删除
地板
发表于 2015-2-10 08:20:19 | 只看该作者
完全不知道到底自己学的是什么。最后,除了教程里面说的几个例子,还是什么都不会。
小女巫 该用户已被删除
5#
发表于 2015-3-1 06:32:44 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若天明 该用户已被删除
6#
发表于 2015-3-10 13:02:13 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若相依 该用户已被删除
7#
发表于 2015-3-17 08:08:00 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
兰色精灵 该用户已被删除
8#
发表于 2015-3-24 03:19:07 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-9-21 01:39

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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