ASP 点击计数器

ASP新手入门
会有许多方式来跟踪一个网站的使用情况。最简单的方法是使用一个计数器。下面提供的代码是可以在.asp使用的最简单的点击计数器中之一。一个文本文档(asp_count.txt)被放置在同一个目录下(提供这个目录是有书写权限的,您可能需要根据您的供应商将.TXT文件放在你的cgi-bin目录),我们希望计数器会出现在页面上。 .txt文件首先被读取,以获得最后的命中计数的值,一种是加入到该号码时,写入的.txt文件,关闭,并且计数器值被写为文本的页面。刷新输出页面的内容进行更完整的说明。

<html> <title>ttasp.net(ASP统计点击次数)</title> <body bgcolor="#FFFFFF"> <% on error resume next
创建一个服务器对象
 

set fso = createobject("scripting.filesystemobject")

针对文本文件打开

set act = fso.opentextfile(server.mappath("asp_count.txt"))
读取文本文档的值
如果文本文档不存在的话那么错误接下来会重新出现
将会在下一行下拉

counter = clng(act.readline)

添加一个到计数器
counter = counter + 1

关闭这个对象
act.close

在服务器上创建一个新的文件

Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)

把当前的计数器值写到文本文档上去

act.WriteLine(counter)

关闭这个对象

act.Close

把这个计数器写入浏览器文本

Response.Write counter %> </body> </html>


相关内容推荐

asp获取IP地址的函数

FunctionGetIp() DimDulIp,ProIP DulIp=Request.ServerVariables("HTTP_X_FORWARDED_FOR") ProIP=Request.ServerVariables("REMOTE_ADDR") IfDulIp=""Then GetIp=ProIP Else GetIp=DulIp EndIf EndFunction

ASP-条件语句

有时,当我们写代码时,我们要为作出不同的决定而执行不同的操作。我们可以使用条件语句中的代码来做到这一点。条件语句是一套用于执行基于不同条件的不同动作的命令。 为了支

编写第一个ASP程序

现在有很多关于ASP编程的教程。其中有些是对于你有帮助,有些完全没有用。甚至有些写得是误人子弟。无论如何,你读过一些关于ASP的内容,现在你已经准备好构建第一个应用程序。

ASP表单输入到HTML

ASP能写.html或者任何其他的直接到web服务器的文档文本(你需要写文本输出到写权限的目录)。这是能够不需要上传PC的文件用户输入即时的发布信息。 下面的例子有四个输入区域(标

周的天数

想在asp显示当前一周有多少天吗?这个代码会把握住今天的值和利用到案例选择显示一周的天数。 % date_value = date() %%= date_value %br% dayofweek=weekday(date_value) %day number in week %= dayofweek %br%

返回
顶部