仓酷云

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

[学习教程] ASP网页设计[ASP-Last-Code]显现ASP页面的代码

[复制链接]
逍遥一派 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:39:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。显现|页面<%
*************************************************************
在撑持FSO的情形下,能够显现本站内的一切ASP页面的代码
合用于代码演示时在效果页面上间接显现该页面的代码而不必再对代码制造专门的页面
利用办法:ViewSource.asp?file=要显现的文件名
如:ViewSource.asp?file=x.asp
modifyBy:Babyt
*************************************************************
%>
<BStyle="font-size:12px;font-family:CourierNew">HTML/ASPSourceCode:</B>
<HRSIZE=1>
<%
DimobjFSO,objInFile
DimstrIn,strTemp
DimI,J
DimstrFileName
DimProcessString
DimbCharWritten
DimbInsideScript
DimbInsideString
DimiInsideComment

ProcessString=0
bCharWritten=False
bInsideScript=False
bInsideString=False
iInsideComment=0
linecount=1

strFileName=Request.QueryString("file")

为了回护你的其他页面,举行复杂回护,只同意会见以后目次下的文件
你能够依据实践必要增添更过划定规矩
IfInStr(1,strFileName,"",1)ThenstrFileName=""
IfInStr(1,strFileName,"/",1)ThenstrFileName=""

IfstrFileName""Then
SetobjFSO=CreateObject("Scripting.FileSystemObject")
判别文件是不是存在
IfobjFSO.FileExists(Server.MapPath(strFileName))=FalseThen
Response.Write"文件不存在"
Response.End
EndIf
翻开文件
SetobjInFile=objFSO.OpenTextFile(Server.MapPath(strFileName))
Response.Write"<PREStyle=font-size:12px;font-family:CourierNew>"&vbCRLF
按行读取文本流
DoWhileNotobjInFile.AtEndOfStream
举行编码
strIn=Server.HTMLEncode(objInFile.ReadLine)
strTemp=""
判别肇端<%
对全部剧本快加亮,n默许蓝色
ForI=1toLen(strIn)
bCharWritten=False
IfInStr(I,strIn,"<%",1)=IThen
strTemp=strTemp&"<FONTCOLOR=#0000EE>"
bInsideScript=True
Else
判别停止标记位%>
IfInStr(I,strIn,"%>",1)=IThen
strTemp=strTemp&"%></FONT>"
bCharWritten=True
sowedontgetthetrailingendofthistagagain!
ie.Len("%>")-1=4
I=I+4
bInsideScript=False
EndIf
EndIf
ToggleInsideStringifneeded!
IfbInsideScriptAndiInsideComment=0AndInStr(I,strIn,""",1)=IThenbInsideString=NotbInsideString
判别大概的正文,次要是为了改动其色彩(默许绿色)
IfbInsideScriptAndNotbInsideStringAnd(InStr(I,strIn,"",1)ORInStr(I,strIn,"//",1))=IThen
strTemp=strTemp&"<FONTCOLOR=#009900>"
iInsideComment=iInsideComment+1
EndIf
停止正文笔墨处置
IfiInsideComment>0AndI=Len(strIN)Then
strTemp=strTemp&Mid(strIn,I,1)
ForJ=1toiInsideComment
strTemp=strTemp&"</FONT>"
NextJ
bCharWritten=True
iInsideComment=0
EndIf
IfbCharWritten=FalseThen
strTemp=strTemp&Mid(strIn,I,1)
EndIf
Next
此句写行号,能够把行号往失落
Response.Write"<FONTCOLOR=#666666>"&linecount&"</font>"&strTemp&vbCRLF
linecount=linecount+1
Loop
Response.Write"</PRE>"&vbCRLF

objInFile.Close
SetobjInFile=Nothing
SetobjFSO=Nothing
EndIf
%>

</p>对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。
再见西城 该用户已被删除
沙发
发表于 2015-1-20 10:54:47 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
小女巫 该用户已被删除
板凳
发表于 2015-1-22 06:55:41 | 只看该作者
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。
精灵巫婆 该用户已被删除
地板
发表于 2015-1-28 16:06:47 | 只看该作者
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
不帅 该用户已被删除
5#
发表于 2015-1-28 22:40:17 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
深爱那片海 该用户已被删除
6#
发表于 2015-2-1 10:08:48 | 只看该作者
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质,我们可以在实践中不断提升自己,不断充实自己。
老尸 该用户已被删除
7#
发表于 2015-2-1 10:36:18 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
飘灵儿 该用户已被删除
8#
发表于 2015-2-7 03:54:46 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
9#
发表于 2015-2-20 09:13:47 | 只看该作者
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。
山那边是海 该用户已被删除
10#
发表于 2015-3-6 16:37:57 | 只看该作者
Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
愤怒的大鸟 该用户已被删除
11#
发表于 2015-3-13 04:10:22 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
金色的骷髅 该用户已被删除
12#
发表于 2015-3-20 12:27:16 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 15:40

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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