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应用程序结束才清除(例如重启站点)
页:
[1]