js01.asp

迅时后台可以 对新闻栏目进行管理

<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->

<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [news] order by id desc",conn,1,1
%>
document.write("文章总数：<%=rs.recordcount%><BR>");
<%
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("图片新闻：<%=rs.recordcount%><BR>");
<%
rs.close:set rs=nothing
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [newspl]",conn,1,1
%>
document.write("评论总数：<%=rs.recordcount%><BR>");
<%
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("阅读总数：<%=hit%><BR>");
<%
rs.close:set rs=nothing

conn.close
set conn=nothing
%>