页面加载中,请稍后...
 
返回首页 当前区域:总站
切换地区
 

asp网页设计流量统计

已有81人浏览 添加时间:2019/3/28 8:01:15
 

按照以下步骤,逐步操作,你很快就会拥有精美的图形化计数器。 
步骤1:在网站的某个目录如count下建立文本文件,如counter.dat    ,用于存放访问量。文件内容仅有一行数字,表示网站初始访问量,一般为0。
步骤2:在相同目录下建立计数器的ASP程序,可命名为mycount.asp,内容如下:    

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
<% 
 '自编ASP图形化计数器  V1.1
 '用于网页浏览统计,免费使用,自由拷贝!
 
 dim  vistors
 '获取计数文件counter.dat的地址
 countfile=server.mappath("counter.dat")
 '创建filesystemobject对象实例fs
 set  fs=server.createobject("scripting.filesystemobject")
 '以读方式打开文件,其中1为读方式
 set  thisfile=fs.opentextfile(countfile,1,FALSE,FALSE)
 '读取计数文件的内容
 visitors=thisfile.readline
 '关闭文件
 thisfile.close
 
 set  fs=server.createobject("scripting.filesystemobject")
 '以覆盖方式(TRUE)、以ASCII格式(FALSE)创建文件
 set  thisfile=fs.createtextfile(countfile,TRUE,FALSE)
 
 '计数器的关键处:
 '增加了变量connected,用于判断访问者是否为新的连接者
 '此举可防止同一用户在同一次浏览中,由于多次按浏览器的“刷新”按钮,
 '从而使计数器值不断升高的现象发生
 
 if  IsEmpty(session("connected"))  then
    application.lock
    '禁止其它用户更改计数器的值
    visitors=visitors+1
    '计数器值加1
    thisfile.writeline(visitors)
    '将结果写入文件
    application.unlock
    '取消锁定,允许用户更改计数器的值
 else
    application.lock
    visitors=visitors
    thisfile.writeline(visitors)
    application.unlock
 end  if
 
 session("connected")=TRUE
 '设定来访者为已连接者(TRUE),此时再按“刷新”按钮计数器值不会变化。
 
 countlen=len(visitors)
 '获得计数器值的长度(即数值的位数)
 
 '如果您不想使用图形,可用如下内容代替for/next循环
 '文本计数器:  response.write  "document.write("&visitors&");"
 
 '逐位显示图形化数字
 for  i=1  to  countlen
     response.write  "document.write('<img  src="&"images/"&"/"&mid  (visitors,i,1)&".gif></img>');"
 next
 
 
 '关闭文件
 thisfile.close
 set  fs=nothing
 %>

步骤3:将counter.dat、mycount.asp文件放在同一目录下(也可分开存放,但此时需指定文件路径),并在该目录下建立images目录,存放图形化的数字文件,要求数字0对应0.gif,数字1对应1.gif,以此类推(展现你个性的机会来了,你可以将数字做得非常Cool)。    
步骤4:至此,大功即将告成。你只要在网页中使用以下格式调用计数器即可:    

1
2
<script  language="javascript"  src="count/mycount.asp"
</script>

 

 
 
 
关于我们 | 广告业务 | 版权声明 | 联系我们 | 淘宝商城  
 
源产地版权所有 Copyright (C) 2008-2016 ycd99.cn Inc. All rights reserved 亿商网络制作与维护