您正在使用IPV4(18.207.129.133)访问本站 您本次共访问本站 1 次
用户名: 用QQ登录本站
密 码:
验证码:
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】618云上GO!云服务器限时秒杀,1核2G首年95元!      
广告位招租中
2021年 建军节 8
2021年 七夕节 21
2022年 元 旦 161
2022年 春 节 192
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP >> 内容
    即时显示当前页面浏览人数
    内容摘要: ASP实现即时显示当前页面浏览人数 online.asp文件 以下为引用的内容:!--#include file='dbconn.asp' --%onlineTimeout=10    ''定义在线活动时间的时间间隔Function Userip()  GetClientIP = Request.ServerVariables('HTTP_X_FORWARD......
    ASP实现即时显示当前页面浏览人数

    online.asp文件

    以下为引用的内容:

    <!--#include file="dbconn.asp" -->

    <%

    onlineTimeout=10 ''定义在线活动时间的时间间隔

    Function Userip()

    GetClientIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR") ''''''''''''''''''''''获得用户的虚拟IP地址

    If GetClientIP = "" or isnull(GetClientIP) or isempty(GetClientIP) Then

    GetClientIP = Request.ServerVariables("REMOTE_ADDR") ''''''''''如果未使用代理服务器,就获得来源的IP地址

    End If

    Userip = GetClientIP

    End Function

    sql="select o_id from c_online where o_ip='' "&Userip()&" '' " 在数据库中查找所获得 的IP地址的id

    Set rs=conn.execute(sql)

    If rs.eof and rs.bof Then

    sql="insert into c_online(o_ip) values('' "&Userip()&" '')" 如果数据库中没有就表明是新IP,那么插入操作

    conn.execute(sql)

    Else

    sql="update c_online set o_ltime=now() where o_ip='' "&Userip()&" '' "更数据库的当前时间

    conn.execute(sql)

    End If

    sql="delete from c_online where dateadd(''s'',"&onlineTimeout*60&",o_ltime) < now()"定义十分钟刷新

    conn.execute(sql)

    rs.close

    Set rs=nothing

    Function allonline()

    tmprs=conn.execute("Select count(o_id) from c_online")

    allonline=tmprs(0)

    set tmprs=nothing

    end Function

    %>

    <%Response.Write "document.write(""在线"&allonline()&"人"")"%>

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:网页不存在自动给管理员发邮件的ASP代码 下一篇:用ASP实现从SQL Server导出数据到Acce
    发布日期:2021/6/15
    手机扫二维码直达本页
    发布时间:12:34:56
    点击:131
    录入:齐天大圣
    相关文章
    Baidu

    YiJiaCMS V5.9 Build 21.7.20(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021