ASP网页编程之能够检察源代码的ASP程序

实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。程序|源代码<B>ASPSourceCode:</B>
<HR>
<%
DimobjFSO,objInFileobjectvariablesforfileaccess
DimstrIn,strTempstringvariablesforreadingandcolor
processing
DimIstandardloopcontrolvariable
DimstrASPFileNamestringcontainingfilenameofASPfiletoview
DimProcessStringflagdeterminingwhetherornottooutputeach
line

Wedontstartshowingcodetillwefindthestartscriptcomment
ProcessString=0

Getfilenamefromquerystring
strASPFileName=Request.QueryString("file")

Conditionallimitinguseofthisfiletocurrentdirectory
IfInStr(1,strASPFileName,"",1)ThenstrASPFileName=""
IfInStr(1,strASPFileName,"/",1)ThenstrASPFileName=""

Setthedefaultsoitshowsitselfifnothingoraninvalid
pathispassedin.Deletethefollowinglinetojustdisplay
amessage.
IfstrASPFileName=""ThenstrASPFileName="source.asp"

IfstrASPFileName""Then
SetobjFSO=CreateObject("Scripting.FileSystemObject")
SetobjInFile=objFSO.OpenTextFile("D:Websasp101
wwwsamples"&strASPFileName)

Response.Write"<PRE>"&vbCRLF
LoopThroughRealFileandOutputResultstoBrowser
DoWhileNotobjInFile.AtEndOfStream
strIn=Server.HTMLEncode(objInFile.ReadLine)
Checkforstartscriptcomment
IfInStr(1,strIn,"<!--BEGINSCRIPT-->",
1)Then
ProcessString=1
strIn=Server.HTMLEncode
(objInFile.ReadLine)
EndIf
Checkforendscriptcomment
IfInStr(1,strIn,"<!--ENDSCRIPT-->",1)
ThenProcessString=0
Ifwereonalinetobeprocessedthendoso
IfProcessString=1Then
strTemp=""
Loopthroughline
ForI=1toLen(strIn)
Firstlookforscriptopeners
tostartred
IfInStr(I,strIn,"<%",1)=
IThen
strTemp=strTemp
&"<FONTCOLOR=#FF0000>"&Mid(strIn,I,1)
Else
Ifnoscriptopeners
lookforcloserstoendred
IfInStr(I,strIn,"%
>",1)=IThen
strTemp=
strTemp&"%></FONT>"
I=I+4
Else
Ifneither
justcopytostrTempasis
strTemp=
strTemp&Mid(strIn,I,1)
EndIf
EndIf
Next
Outputoutprocessedline
Response.WritestrTemp&vbCRLF
EndIf
Loop
Response.Write"</PRE>"&vbCRLF

Closefileandfreevariables
objInFile.Close
SetobjInFile=Nothing
SetobjFSO=Nothing
Else
Iftheyenterednofilenameoronewitha/or...deny
access
Response.Write"Sorry,butyoudonothaveaccesstoview
filesoutsidethecurrentdirectory."
EndIf
%>
</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?