如何实现访问计数器?

happylaodu 2000-09-11 08:25:00
要让访问计数器能用起来,是不是要自己编写代码?其基本思路是什么?

最好能给我提供原代码,谢谢!
...全文
134 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
csjj 2000-09-11
  • 打赏
  • 举报
回复
如果在网上,你可以用免费的,只要申请后加一连接即可。
自己做,要有CGI权限。并在目录下建文件,如:counter.txt保存数:
<%
Sub IncrementCounter()

Set fs = Server.CreateObject("Scripting.FileSystemObject")
counter_file = Server.MapPath("/counter.txt")


Set txt = fs.OpenTextFile( counter_file )
Application("counter") = txt.ReadLine
txt.Close


Application("counter") = Application("counter") + 1


Set txt = fs.CreateTextFile( counter_file, True )
txt.WriteLine(Application("counter"))
txt.Close
End Sub

Application.Lock
IncrementCounter ' 将访问计数器加一,并写入到文件中
Application.UnLock
%>

<html>

<head>
<meta http-equiv="Content-Type"
content="text/html; charset=gb_2312-80">
<meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
<title></title>
</head>

<body bgcolor="#FFFFFF">

<h2 align="center">访问计数器范例 - countv3.asp</h2>

<hr>

<p align="center">您是本站第 <%=Application("counter")%> 位! </p>
</body>
</html>
fyje 2000-09-11
  • 打赏
  • 举报
回复
申请一个比较方便,他们会给你一段代码,直接在你想插入计数器的地方插入这一段代码就行了,这样也不用考虑系统支持等很多方面的问题,简单又方便。

10,606

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 其他
社区管理员
  • 其他
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧