<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Pragma","No-Cache"
Response.AddHeader "Cache-Control","Private"
Response.CacheControl = "No-Cache"
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
sql="Select  * from 用户 where 姓名='"& action &"'"
set rs=conn.Execute(sql)
%>
<script language="JavaScript">
function load()
{var name=navigator.appName
var vers=navigator.appVersion
if(name=="Netscape")
{window.location.reload()
}else
{history.go(0)
}}
</script>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>牢房重地，闲人莫入</title>
<link href="../css.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% if zhbg_name="" then %>
<SCRIPT language=JavaScript src="../gif/a1.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../gif/a1-2.js"></SCRIPT>
<% end if %>
<br>
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0" >
  <!--DWLayoutTable-->
 <tr>
    <td width="7" height="32"></td>
    <td width="247" rowspan="2" valign="top"><table width="247"  border="0" cellpadding="0" cellspacing="0">
        <!--DWLayoutTable-->
        <tr>
          <td width="246" valign="top">
<% if zhbg_name="" then %>
<!--#include file="../denglu.asp"-->
<% else %>
<!--#include file="../man.asp"-->
<% end if %>
</td>
        </tr>
		<tr><td height="21" valign="top" ><!--DWLayoutEmptyCell-->&nbsp;</td>
		</tr>
    </table></td>
    <td width="23" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    <td width="471" align="center"><font color="#FF9900" size="3"><b>官府牢房在押人员名单</b></font> </td>
    <td width="27" rowspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
  </tr>
  <tr>
    <td></td>
    <td valign="top"><br>
<table border="0" cellspacing="0" cellpadding="0" align="center" width="471">
<tr>
<td>
<div align="center">作了坏事，官府决不轻饶！3天内必须救出，否则<b> 斩首示众</b><br> 
    <font color="#FF3300">阿昵佗佛……你还是改过吧！！</font>
<table width="100%" border="0" cellspacing="0" cellpadding="0"
align="center" >
<tr>
<td colspan="2" valign="top" width="100%" height="110">
<div align="center"> <br>
  <table border="3" cellspacing="0" cellpadding="6" width="100%"
bordercolor="#dddddd" align="center">
    <tr bordercolor="#cccccc" >
      <td width="15%" height="24" nowrap><div align="center"> 犯人 </div>
      <td width="15%" nowrap><div align="center"> 门派 </div></td>
      <td width="11%"><div align="center"> 身份 </div></td>
      <td width="31%"><div align="center"> 请 
        求 </div></td>
      <td width="18%"><div align="center">保释时间</div></td>
      <td width="10%" nowrap><div align="center">状态</div></td>
    </tr>
    <%
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "SELECT * FROM 用户 where 状态='狱' or 状态='牢'",conn
do while not rs.bof and not rs.eof
%>
    <tr bordercolor="#cccccc">
      <td width="15%" height="31"><%=rs("姓名")%>
      <td width="15%" height="31"><%=rs("门派")%></td>
      <td width="11%" height="31" nowrap><%=rs("身份")%></td>
      <%if rs("状态")="狱" then %>
      <td width="31%" height="31"><div align="center"> <a href="shifang.asp?name=<%=rs("姓名")%>">交钱3000万两释放</a>|<a href="jieyu.asp?name=<%=rs("姓名")%>"
title="成功率只有30%"><font color="#FF0000">劫狱</font></a>
              <%if zhbg_grade>=9 then%>
        |<a href="zhanshou.asp?name=<%=rs("姓名")%>"><font color="#FF0000">斩首</font></a>
        <%end if%>
        <%if zhbg_grade>=6 then%>
        |<a href="shuchu.asp?id=<%=rs("id")%>"><font color="#FF0000">释放</font></a>
        <%end if%>
      </div></td>
      <% else
if rs("登录")>now() then%>
      <td width="18%" height="31"><div align="center"> <font color="#FF0033">不能保释</font>|释放时间：<%=rs("登录")%> </div></td>
      <%else%>
      <td width="10%" height="31"><div align="center"> <font color="#FF0033">已释放</font> </div></td>
      <% conn.execute("update 用户 set 状态='正常',登录=now() where 姓名='"&rs("姓名")&"'")
end if%>
      <%end if%>
    </tr>
    <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
  </table>
  <p><font color="#FF0000"><img border="0" src="../chat/img/sys1.gif" width="18" height="18">:少干点坏事！ 
！</font><img border="0" src="../chat/pic/KL.GIF" width="32" height="32"> </p>
</div></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</tr>
</table>
<br>
<% if zhbg_name="" then %>
<SCRIPT language=JavaScript src="../gif/a2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../gif/a2-2.js"></SCRIPT>
<% end if %>
<br>

</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>