查看源码: NewBBS1.rar_Counts.asp - VerySource

Counts.asp

上传用户:gufengji9
上传日期:2007-04-27
资源大小:769k
文件大小:3k
源码类别:行业应用
开发平台:PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <% Dim ts, boys, girls, users, hfCs, ztCs, counts, today_counts, toda, most_online, mostOnlineDate, gonggao
  4.    Set rs = Server.Createobject("ADODB.RECORDSET")
  5.        rs.Open"select * FROM counts",conn, 1, 1
  6.    if not rs.eof then
  7.    boys = rs("boys")
  8.    girls = rs("girls")
  9.    users = rs("users")
  10.    ztCs = rs("ztCs")
  11.    hfCs = rs("hfCs")
  12.    counts = rs("counts")
  13.    today_counts = rs("today_counts")
  14.    toda = rs("toda")
  15.    most_online = rs("most_online")
  16.    mostOnlineDate = rs("mostOnlineDate")
  17.    gonggao = rs("gonggao")
  18.    end if 
  19.    rs.Close
  20.  Set rs = Nothing %>
  21. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  22. <!--#include file="css.asp"-->
  23. <body bgcolor=<%=crs(0)%>>
  24. <table width="99%" border="0" align="center" cellpadding="2" bgcolor=<%=crs(1)%> cellspacing="1" height="218">
  25.   <tr> 
  26.     <td  height="20" bgcolor=<%=crs(2)%> class="num1">论坛总访问数<strong><font face="Arial, Helvetica, sans-serif">: 
  27.       <% Response.Write  counts %>
  28.       </font></strong><font face="Arial, Helvetica, sans-serif">&nbsp;</font></td>
  29.     <td  height="20" bgcolor=<%=crs(2)%>>&nbsp; </td>
  30.   </tr>
  31.   <tr> 
  32.     <td  height="9" bgcolor=<%=crs(2)%>>今日访问量<strong><font face="Arial, Helvetica, sans-serif">:<%=today_counts%></font></strong></td>
  33.     <td  bgcolor=<%=crs(2)%>>最后更新日期<strong><font face="Arial, Helvetica, sans-serif">: 
  34.       <%=toda%></font></strong></td>
  35.   </tr>
  36.   <tr> 
  37.     <td height="10" colspan="2" align="right">&nbsp;</td>
  38.   </tr>
  39.   <tr> 
  40.     <td  height="20" bgcolor=<%=crs(2)%>>总注册写手数<strong><font face="Arial, Helvetica, sans-serif">:<font class='num1'><%=users%></font></font></strong></td>
  41.     <td  bgcolor=<%=crs(2)%>>主题数<strong><font face="Arial, Helvetica, sans-serif">:<%=ztCs%> 
  42.       </font></strong></td>
  43.   </tr>
  44.   <tr> 
  45.     <td  height="9" bgcolor=<%=crs(2)%>>注册男写手<strong><font face="Arial, Helvetica, sans-serif">:<%=boys%></font></strong></td>
  46.     <td  bgcolor=<%=crs(2)%>>回复数<strong><font face="Arial, Helvetica, sans-serif">: 
  47.       <% Response.write hfCs%>
  48.       </font></strong></td>
  49.   </tr>
  50.   <tr> 
  51.     <td  height="10" bgcolor=<%=crs(2)%>>注册女写手<strong><font face="Arial, Helvetica, sans-serif">:<%=(users-boys)%></font></strong></td>
  52.     <td  bgcolor=<%=crs(2)%>>帖子总数<strong><font face="Arial, Helvetica, sans-serif">:<%=(ztCs+hfCs)%></font></strong></td>
  53.   </tr>
  54.   <tr> 
  55.     <td height="20" colspan="2">&nbsp;</td>
  56.   </tr>
  57.   <tr valign="top"> 
  58.     <td height="62" colspan="2" bgcolor=<%=crs(2)%>> 
  59.  <% Set ts = Server.Createobject("ADODB.RECORDSET")
  60.        ts.Open"SELECT lsName, todays, todayCounts FROM ltShow order by todayCounts desc",conn,1,1
  61.    Do while not ts.eof
  62.    Response.Write "《"& ts("lsName") & "》" & " | 最后更新日期:" & ts("todays") &_
  63.     "  | 当日发表主题:<strong><font face='Arial, Helvetica, sans-serif'>" &_
  64.  ts("todayCounts") & "</font></strong>篇<hr size=1>"
  65.   ts.MoveNext
  66.   Loop
  67.   ts.Close
  68. Set ts = Nothing 
  69.   Call CloseData() %>
  70.     </td>
  71.   </tr>
  72. </table>
  73. </body>
  74. </html>