asp制作防刷新计数器

技术文章

seo
asp.net
JavaSript
asp
网站建设

asp制作防刷新计数器

时间：2009-03-27 点击：1713

<%
count = server.MapPath("count.txt")
Set cou = Server.CreateObject("Scripting.FileSystemObject")
Set out = cou.OpenTextFile(count,1,False,False)
Counter = out.ReadLine
out.close
If Session("in") <> "in" Then
    Session("in") = "in"
    Set out = cou.CreateTextFile(count,True,False)
    Application.Lock
    Counter = counter + 1     '计数器加1
    out.WriteLine(counter)   '写入加1后计数器的值

    Application.UnLock
    out.Close
End If
Response.Write "你是第"& counter &"位访问本站的客人"
%>

asp删除XML文件

asp用XML制作留言本

asp统计在线人数

asp统计用户在站点停留的时间

asp测试网站速度

> 返回

地址：上海市普陀区胶州路941号长久商务中心电话： QQ：