admin_admin.asp

本程序采用花香内核

<!--#include file="inc/config.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="mdb.asp"-->
<LINK href="inc/admin.css" type=text/css rel=stylesheet>
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='admin.asp';</script>")
  response.end
else
if request.querystring("action")="recount" then
dim newscount,articlecount,softcount,cscount,djcount,jscount,piccount,usercount,vidcount
  sql="select news_id from news"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  newscount=rs.recordcount
  sql="select art_id from art"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  articlecount=rs.recordcount
  sql="select soft_id from soft"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  softcount=rs.recordcount
  sql="select cs_id from coolsites"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  cscount=rs.recordcount
  sql="select js_id from js"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  jscount=rs.recordcount
  sql="select pic_id from pic"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  piccount=rs.recordcount
  sql="select dj_id from dj"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  djcount=rs.recordcount
  sql="select vid_id from vid"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  vidcount=rs.recordcount
  sql="select userid from [user]"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  usercount=rs.recordcount
  sql="select * from allcount"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs("newscount")=newscount
  rs("articlecount")=articlecount
  rs("softcount")=softcount
  rs("coolsitescount")=cscount
  rs("djcount")=djcount
  rs("jscount")=jscount
  rs("piccount")=piccount
  rs("vidcount")=vidcount
  rs("usercount")=usercount
  rs.update
  rs.close
  set rs=nothing
%>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_admin.asp">
<tr> 
    <td class=lanyuss>首页更新</td>
          </tr>
          <tr class=lanyuds> 
    <td align="center" height="66">&gt;更新成功&lt;</td>
  </tr>
</table>
<%end if
end if%>