ASP网页编程之统计在耳目数、逐日会见人数和总人数

缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。会见|统计|在线|在耳目数这个程序难一点，特性在于，由于他是分离的传送每一个图片，以是不像CGI发生的图片那样年夜。并且图片能够反复的使用以是较率高速率快。只是没有JavaScript就不可了。

程序原代码：
　　<%
　　imgurl="http://xxx.xxx.xxx/xxxx/";图片路径
　　imgname="xxx"图片名字
　　cnt=0
　　dnt=0
　　s=Request.ServerVariables("path_translated")
　　cName=left(s,instrrev(s,"",len(s)))&"chy.cnt"
　　dName=left(s,instrrev(s,"",len(s)))&"dchy.cnt"
　　SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
　　SetobjCountFile=objFSO.OpenTextFile(cName,1,True)
　　IfNotobjCountFile.AtEndOfStreamThencnt=CLng(objCountFile.ReadAll)
　　objCountFile.Close
　　SetobjCountFile=Nothing
　　cnt=cnt+1
　　SetobjCountFile=objFSO.CreateTextFile(cName,True)
　　objCountFile.Writecnt
　　objCountFile.Close
　　SetobjCountFile=Nothing

ifapplication("dntime")<=cint(hour(time()))then
　　SetobjCountFile=objFSO.OpenTextFile(dName,1,True)
　　IfNotobjCountFile.AtEndOfStreamThendnt=CLng(objCountFile.ReadAll)
　　objCountFile.Close
　　SetobjCountFile=Nothing
　　endif
　　application("dntime")=cint(hour(time()))
　　dnt=dnt+1
　　SetobjCountFile=objFSO.CreateTextFile(dName,True)
　　objCountFile.Writednt
　　objCountFile.Close
　　SetobjCountFile=Nothing
　　SetobjFSO=Nothing
　　Response.Write"document.write(99?7?10???"
　　fori=1tolen(cnt)
　　Response.Write""
　　next
　　fori=1tolen(dnt)
　　Response.Write""
　　forj=1tolen(i)
　　Response.Write"<imgsrc=http://www.163design.net/a/y/"imgurl&imgname&Mid(i,j,1)&".gif>"
　　next
　　Response.Write");"%>
</p>缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

不能只是将它停留在纸上谈兵的程度上。

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

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

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

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

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write