admin_admin.asp

来自「后台登陆admin.asp」· ASP 代码 · 共 86 行

<!--#include file="mdb.asp"-->
<!--#include file="inc/config.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,jokecount,flashcount
  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 art_id from web"
  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 art_id from joke"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  jokecount=rs.recordcount
  sql="select s_id from shop"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  shopcount=rs.recordcount
  sql="select userid from [user]"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  usercount=rs.recordcount
  sql="select id from flash"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  flashcount=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("jokecount")=jokecount
  rs("shopcount")=shopcount
  rs("usercount")=usercount
  rs("flashcount")=flashcount
  rs.update
  rs.close
  set rs=nothing
%>
<table width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="admin_admin.asp">
<tr> 
    <td class=Hxcmsss>首页更新</td>
          </tr>
          <tr class=Hxcmsds> 
    <td align="center" height="66">&gt;更新成功&lt;</td>
  </tr>
</table>
<%end if
end if%>