ASP网站制作之用ASP完成收费计数器供应-3

ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。计数器5.easpcount.asp.
<%Response.Expires=0
id=Request.QueryString("id")
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://"&sername&Left(scrname,(len(scrname)-9))&"easpcount.asp?id="&id
infile=server.mappath("counter.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile(infile,1,False)
counter=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreserveinput(counter)
input(counter)=thisline
counter=counter+1
loop
thisfile.Close
number=(counter-1)/5
x=0
Setoutfile=fs.CreateTextFile(infile)
application.lock
outfile.WriteLineinput(0)
fori=1tonumber
outfile.WriteLineinput((i-1)*5+1)
outfile.WriteLineinput((i-1)*5+2)
outfile.WriteLineinput((i-1)*5+3)
outfile.WriteLineinput((i-1)*5+4)
ifinput((i-1)*5+1)=idthen
x=i
outfile.WriteLineinput((i-1)*5+5)+1
else
outfile.WriteLineinput((i-1)*5+5)
endif
next
outfile.Close
application.unlock
setfs=nothing
ifx=0thenresponse.end
count=cstr(input((x-1)*5+5))
countlen=len(count)
fori=1to6-countlen
linkurl="http://"&sername&Left(scrname,(len(scrname)-13))"/"&"0.gif"
%><%=linkurl%>
document.write()
<%next
%>
---------------------------------------------------
writenbyaspboyandpoweredbyhttp://easp.126.com
</p>只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

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

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)