js-tj-02.asp

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

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
document.write(" <table border=0 cellspacing=2 cellpadding=0>");

<%
lm=trim(request("lm"))
'if lm="" then lm=0
dim sql
     sql = "select id,hit from [news] where lm='"&lm&"'  "
	 sql2= "select id,pic from [news] where ( pic like '%.jpg%' or pic like '%.JPG%' or pic like '%.gif%' or pic like '%.GIF%' ) and lm='"&lm&"'" 
	 
	 sql= sql&" order by ontop desc , id desc"

%>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,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 sql2,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 and lm='"&lm&"' 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]where "& NowString &" - addtime <2",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 sql,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
conn.close:set conn=nothing
%>
document.write("</table>");