js-tj-01.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
document.write(" <table border=0 cellspacing=1 cellpadding=0>");
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [news] order by id desc",conn,1,1
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>文章总数：<%=rs.recordcount%> 篇</Td></tr>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,pic from [news] where ( pic like '%.jpg%' or pic like '%.JPG%' or pic like '%.gif%' or pic like '%.GIF%' )",conn,1,1
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>图片新闻：<%=rs.recordcount%> 篇</Td></tr>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [news] where sh=2 order by id desc",conn,1,1
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>待审文章：<%=rs.recordcount%> 篇</Td></tr>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [newspl]",conn,1,1
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>评论总数：<%=rs.recordcount%> 篇</Td></tr>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [gbook] where online='1'",conn,1,1
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>留言总数：<%=rs.recordcount%> 篇</Td></tr>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,hit from [news]",conn,1,1
while not rs.eof
  hit=hit+rs("hit")
rs.movenext
wend
%>
document.write("<tr><Td style='font-size:9pt;color: #333333'>阅读总数：<%=hit%> 次</Td></tr>");

<%
rs.close:set rs=nothing
'set rs = Server.CreateObject("ADODB.RecordSet")
'rs.Open "select UserID from [Art_User] where Locked=1",conn,1,1
%>
//document.write("<tr><Td style='font-size:9pt;color: #333333'>注册会员：<%'=rs.recordcount%> 人</Td></tr>");

<%
'rs.close:set rs=nothing
conn.close:set conn=nothing
%>
document.write("</table>");