如何在设置网页中加入计数器（详细些！我用的是FRONTPAGE2003）

分类: 电脑/网络 >>程序设计 >>其他编程语言

解析:

如果是纯静态的网页是不可能实现记数功能的，除非写脚本到某个可以记数的网页上。

写的东西不是软件所决定的，FRONTPAGE2003可以编写HTML，也可以编写ASP，关键看网页的性质，不是看用的什么软件，我用记事本照样可以编写一个计数器出来。

计数器一个最简单的思想：建立一个文件，吧程序写在被访问页里，如果有访问这个页，就在提取文件中的数字做加1运算，然后保存，在访问在提取在保存，就是这个简单的过程。

如果自己不想写的话就到网上申请一个

比如:http://www.xcinfo.ha.cn/jsq/login.asp

把申请到的代码放到页面上就可以了

如果学过ASP之类的话就可以自己写

在数据库中存放浏览次数

方法很多的

简单的方法，你可以在数据库中添加一个字段，用于记录！将美一次刷新页面作记录就可以了。

给你个写法：

sql="update 数据表 set 字段名=字段值 where 条件表达式"

看看，你可以到网上找一写好的：

http://www.mycodes.net/sort/216_1.htm

给你个地址看看！

何存在本地的一个计数器例子：

<script language = "vbscript" runat = "server">

sub application_onstart

'取的计数文件的真实路径

countfile=server.mappath("count.txt")

'创建文件系统对象实例

set myfso = server.createobject("scripting.filesystemobject")

'若计数文件不存在

if not myfso.fileexists(countfile) then

'创建该文件及取得textstream对象实例

set mytextstream = myfso.createtextfile(countfile, True)

application.lock

application("online") = 0

application("counter") = 0

application.unlock

'将计数值写入文件

mytextstream.writeline(cstr(application("counter")))

else

'以只读的方式打开

set mytextstream = myfso.opentextfile(countfile,1,false)

'读一行，并将值赋给计数变量

application("counter") = mytextstream.readline

end if

mytextstream.close

set myfso = nothing

end sub

sub session_onstart

session.timeout = 1

countfile = server.mappath("count.txt")

set myfso = server.createobject("scripting.filesystemobject")

application.lock

application("online") = application("online")+1

application("counter") = application("counter")+1

application.unlock

'以写方式打开文件

set mytextstream = myfso.opentextfile(countfile,2,false)

'以写行的方式将数据写入文件

mytextstream.writeline(cstr(application("counter")))

mytextstream.close

set myfso = nothing

end sub

sub session_onend

application.lock

application("online") = application("online")-1

application.unlock

end sub

</script>

网上的计数器有很多，目前最主流的计数器属CNZZ，去这样的计数器网站注册一个用户名，提交自己的网站地址。然后获取计数器代码，在获取之前可以设置计数器的详细参数，都有提示的。复制这段代码到你的网站源码里面就可以了。具体放在网站哪个位置可以自己决定。 一般做法是放在网站底部。

---