list_count.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<!--#include file="Connections.asp" -->
<%
set count = Server.CreateObject("ADODB.Recordset")
count.ActiveConnection = datalink
count.Source = "SELECT * FROM count ORDER BY rq DESC"
count.CursorType = 1
count.CursorLocation = 2
count.LockType = 3
count.Open()
%>
<table width="26%" border="0" align="center">
  <tr> 
    <td width="49%"> 
      <div align="center">日期</div>
    </td>
    <td width="51%"> 
      <div align="center">访问次数</div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#000000">
    </td>
  </tr>
  <tr>
<%
While Not count.Eof%>
    <td width="49%"> 
      <div align="center"><%=count("rq")%></div>
    </td>
    <td width="51%"> 
      <div align="center"><%=count("count")%></div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" bgcolor="#000000"></td>
  </tr>
<%
all=all+count("count")
count.MoveNext()
Wend%>
</table>
总计数：<%=all%>