<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Buffer=true
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<html>
<head>
<title><%=Application("zhbg_chatroomname")%>-[非凡国度]医院</title>
<link href="../css.css" rel="stylesheet" type="text/css">
<!--#include file="../Center/top_index.asp"-->
<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-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../gif/a1.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="../man.asp"-->
<% else %>
<!--#include file="../denglu.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><br>
<table border="1" cellspacing="0" cellpadding="6" width="100%"
bordercolor="dddddd" align="center" height="9">
<tr>
<td width="22%" height="3">
<div align="center">僵尸王患病者 </div>
          <td width="19%" height="3">
<div align="center"> 门派 </div>
          </td>
<td width="21%" height="3">
<div align="center">身份 </div>
          </td>
<td width="38%" height="3">
<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 状态='僵尸王'",conn
do while not rs.bof and not rs.eof
%>
<tr>
<td width="22%" height="1">
<p align="center"><%=rs("姓名")%></td>
<td width="19%" height="1">
<p align="center"><%=rs("门派")%></td>
<td width="21%" height="1">
<p align="center"><%=rs("身份")%></td>
<%if rs("状态")="僵尸王" then %>
<td width="38%" height="1">
<div align="center"> <a href="yiyuan6.asp?name=<%=rs("姓名")%>"><font color="#008000">交钱1000万两看病</font></a>  
<%if zhbg_grade=10 then%>   
 <a href="zhanshou.asp?name=<%=rs("姓名")%>"><font color="#FF0000"></font></a>    
<%end if%> |<a href="yiyuan8.asp?id=<%=rs("id")%>"><font color="#FF0000"></font></a>  
 <%if zhbg_grade>=6 then%>     
  <a href="yiyuan8.asp?id=<%=rs("id")%>"><font color="#FF0000">官府操作</font></a>  
<%end if%> </div>     
</td>
<% else
if rs("登录")>now() then%><%else%><% 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>以后小心注意身体！ ！：（ </p> 
    </td>
  </tr>
</table><br>
<% if zhbg_name<>"" then %>
<SCRIPT language=JavaScript src="../gif/a2-2.js"></SCRIPT>
<% else %>
<SCRIPT language=JavaScript src="../gif/a2.js"></SCRIPT>
<% end if %>
<br>

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