<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")

my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))
set cschat=nothing
application.unlock
if my_level-application(ConstStr & "_superlevel")<>0 then  response.end
%>
<META content="text/html; charset=gb2312" http-equiv=content-type>
<link rel="stylesheet" type="text/css" href="chat.css">
<script>function xx(n) {document.write("<a href='moduserautoupdate.asp?name="+n+"&action=ok' onclick='return confirm(\"你真的决定允许用户自动升级了吗？\")'>"+n+"</a> ");}</script>
<body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=10 >
<table cellspacing=0 cellpadding=0 align=center width=400 height=100%><tr><td valign=center>
  <table align=center width=90% cellspacing=0 cellpadding=0 border=1 BORDERCOLORLIGHT=#000000 BORDERCOLORDARK=#ffffff>
  <tr><td class=navy2>禁止自动升级帐号统计</td>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")
dim rootRs
Set rootRs=Server.CreateObject("ADODB.RecordSet")
sql="select username from user where auto_update=0 order by exp_num"
rootRs.Open sql,conn,1,1
If rootRs.Bof OR rootRs.Eof Then%><tr><td class=navy1><font color=#cc00cc>没有找到任何记录</font></td></tr>
<%else%>
<tr><td class=navy1>共有 <%=rootRs.recordcount%> 个保留帐号[点击帐号名为允许自动升级]</td></tr>
  <tr><td style="text-align:left">
  <%Do While (Not rootRs.Eof)
    response.write "<script>xx('"&rootRs("username")&"');</script>"
    rootRs.MoveNext
  Loop%></td></tr>
<%End If
rootRs.close
set rootRs=nothing
conn.close
Set conn=nothing%>
</table><tr<td><br>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>