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
页:
[1]