怎么样在首页显示总访问量、总点击量和修改在线人数功能呢

先说思路：

　　1、科汛自带的统计功能中有每日的IP数和PV数，只需将取它们其一求和，这样就是总访问量了，具体取哪个，就由自己定了，IP数小，但精准，PV数大，但刷新的也算在内了。我爱面子，所以取大的，PV值。

　　2、科汛自带的文章统计功能中有每篇文章的点击数，依上所言，将每篇文章的点击数求和就是总点击数了

　　3、如果在首页显示在线人数，并且每个页面下面都调用了科汛的统计标签，那么每刷新一下首页都会增加两次访问量了，因为首页调用了两次统计，所以得对在线人数处的统计进行改造一下了。



　　思路有了，再说过程：

有两种方法，ASP方式下的方法只适用于ASP，不适用于HTML，HTML方式下的方法适用于ASP和HTML两种方式。

如果是动态的ASP方式，打开KS_CLS下的kesion.label.commoncls.asp，找到869行找到     GetSiteCountAll = GetSiteCountAll & "

  • 在线人数： 人
    • " & vbcrlf
    根据你在显示的位置在其上面或下面直接添加

       GetSiteCountAll = GetSiteCountAll & "

  • 总访问量： " & Conn.Execute("Select Sum(Pageview) From KS_SiteCount")(0) & " 次
    • " & vbcrlf

       GetSiteCountAll = GetSiteCountAll & "

  • 总点击数： " & Conn.Execute("Select Sum(Hits) From KS_Article")(0) & " 次
    • " & vbcrlf

    然后在你的首页适当的位置调用统计标签 GetSiteCountAll就行了。

    当然，如果你怕以后生成HTML再改麻烦，也可以直接按下面的HTML修改，一样在ASP方式下可以使用

    如果用的是HTML方式，这种方法运行也正常，就是不能动态更新访问量和点击数了，后来从科汛的文章内容页面点击数受到启示，增加一个ASP文件，用JS调用方式实现了

    　　1、在KS_INC目录下新建一个SiteCount.asp文件，内容如下：


    <%
    If CInt(Request.Querystring("id")) = 1 And Trim(Request.Querystring("id")) <> "" Then
    Response.Write "document.write('" & Conn.Execute("Select Sum(Pageview) From KS_SiteCount")(0) & "');"
    ElseIf CInt(Request.Querystring("id")) = 2 And Trim(Request.Querystring("id")) <> "" Then
    Response.Write "document.write('" & Conn.Execute("Select Sum(Hits) From KS_Article")(0) & "');"
    ElseIf CInt(Request.Querystring("id")) = 3 And Trim(Request.Querystring("id")) <> "" Then
    Response.Write "document.write('" & Conn.Execute("Select Count(*) from KS_Online")(0)+5 & "');"
    End If
    %>

    　　这样，第一段是取网站总访问量，第二段取总点击数，第三段是取当前在线人数并加5（可以改，好面子，没办法），这样是只取在线人数，不向系统写入增加访问次数，以免在首页重复增加访问次数，造成刷新一下首页增加两次访问次数的现象。

    　　2、打开KS_CLS下的kesion.label.commoncls.asp，找到869行

        GetSiteCountAll = GetSiteCountAll & "

  • 在线人数： 人
    • " & vbcrlf

    根据你要显示的位置在它的上面或下面添加

       GetSiteCountAll = GetSiteCountAll & "

  • 总访问量： 次
    • " & vbcrlf

        GetSiteCountAll = GetSiteCountAll & "

  • 总点击数： 次
    • " & vbcrlf

    并将     GetSiteCountAll = GetSiteCountAll & "

  • 在线人数： 人
    • " & vbcrlf

    改成     GetSiteCountAll = GetSiteCountAll & "

  • 在线人数： 人
    • " & vbcrlf

    这样就大功告成了，在你的首页适当的位置调用统计标签 {$GetSiteCountAll}就行了，最后别忘了，在你的每个页面调用一下统计标签{$GetSiteOnline}，不然访问总数不会增加的哦，最好的方法是在页面底部标签中调用，这样方便。

    说明一下，总点击数只统计了文章模块，如需统计别的模块，请自行修改。

    另外，可以打开数据库KS_SiteCount表，找到Pageview字段，可以修改一个任何数字，增大自己的初始数值。