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>