<%@ 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>
  道德-5000点的时候记得及时来治疗噢，否则后果会很严重！</font>
                <table border="1" cellspacing="0" cellpadding="6" width="100%"
bordercolor="dddddd" align="center">
                  <tr bordercolor="#cccccc"> 
                    <td width="20%" height="42" valign="middle" nowrap> <div align="center"><font color="#000000">精神病患者 </a> 
                        </font></div>
                    <td width="20%" valign="middle" nowrap> <div align="center"><font color="#000000">门派</a> 
                        </font></div></td>
                    <td width="20%" valign="middle"> <div align="center"><font color="#000000">身份</a> 
                        </font></div></td>
                    <td width="20%" valign="middle"> <div align="center"><font color="#000000">道德</a> 
                        </font></div></td>
                    <td width="20%" valign="middle"> <div align="center"><font color="#000000">请 
                        求</a> </font></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 道德<-1000",conn
do while not rs.bof and not rs.eof
%>
                  <tr bordercolor="#cccccc"> 
                    <td width="20%"> <p align="center"><font color="#000000"><%=rs("姓名")%></font></td>
                    <td width="20%"> <p align="center"><font color="#000000"><%=rs("门派")%></font></td>
                    <td width="20%"> <p align="center"><font color="#000000"><%=rs("身份")%></font></td>
                    <td width="20%"> <p align="center"><font color="#000000"><%=rs("道德")%></font></td>
                    <%if rs("道德")<-5000 then %>
                    <% else
if rs("登录")>now() then%>
                    <%else%>
                    <% conn.execute("update 用户 set 状态='正常',登录=now() where 姓名='"&rs("姓名")&"'")
end if%>
                    <td width="20%"> <p align="center"> <a href="jt.asp?name=<%=rs("姓名")%>"><font color="#008000">看病</font> 
                        <%end if%>
                        </a> </td>
                  </tr>
                  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
      </table>
<p align="left"><font color="#FF0000">朋友你罪孽深重，我们来让你重生吧。。。。来感化你的灵魂：天灵灵，地灵灵各路大仙听我令，让这位大位从恶梦中醒来吧！啊门！！！</font><br>
<font color="#0000FF">您的道德：+100，银两全部捐献，存款花了1/2   
用于作法费用，积分减100点你就可以重生了！</font>

<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>