asp实现网页浏览总数

 

 <%
          AlldayView=0
          Set Rs=Server.CreateObject("Adodb.RecordSet")
          Sql="select * from viewCount"
          Rs.Open Sql,conn,1,1
          If Not Rs.Eof And Not Rs.Bof Then
              conn.execute "update viewCount set allday=allday+1"
              AlldayView=Rs("allday")
          End If
          Rs.Close
          Set Rs=Nothing
          %>
          <div>
            <span style="font-size:22px;">网站访问量:<%=AlldayView%></span>
          <div>

SQL

效果图

 

posted @ 2017-08-19 16:28  cat糯米团  阅读(403)  评论(0编辑  收藏  举报