admin_recount.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 72 行

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="error.asp"-->
<link rel="stylesheet" href="site_css.css" type="text/css">
<%
dim founderr,errmsg
founderr=false
errmsg=""

if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='admin.asp'>重新登录</a>！"
  call diserror()
else
  dim diarycount,newscount,articlecount,softcount,cscount,flcount,gbcount
  
  sql="select d_id from diary"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  diarycount=rs.recordcount
  
  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 fl_id from friendlink"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  flcount=rs.recordcount
  
  sql="select id from gbook"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  gbcount=rs.recordcount
  
  sql="select * from allcount"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs("diarycount")=diarycount
  rs("newscount")=newscount
  rs("articlecount")=articlecount
  rs("softcount")=softcount
  rs("coolsitescount")=cscount
  rs("friendlinkcount")=flcount
  rs("gbcount")=gbcount
  rs.update
  rs.close
  set rs=nothing
  closedatabase
%>
<table width="60%" border="0" cellspacing="1" cellpadding="0"align="center" bgcolor="#293863">
  <tr>
    <td align="center" bgcolor="#FFFFFF" height="66" class="chinese">&gt;更新成功&lt;<br>
      <a href="javascript:window.close()">关闭窗口</a></td>
  </tr>
</table>
<%end if%>