<%
bgcolor=Application("zhbg_backgroundcolor")
bgimage=Application("zhbg_backgroundimage")
%>
<!--#include file="FUNC213.ASP"-->
<!--#include file="SUB.ASP" -->
<%
Response.Buffer=true
if session("zhbg_name")="" then Response.Redirect "../../error.asp?id=016"
if session("advtime")<>"" then
if session("advtime")>now()+0.0006 then  Response.Redirect "../../error.asp?id=490"
end if
session("advtime")=now()
sh=request.form("sh")
sy=request.form("sy")
if request.form("h")="1" then
my=session("zhbg_name")
set conn=server.createobject("adodb.connection") 
conn.open Application("zhbg_usermdb")
set rs=server.CreateObject ("adodb.recordset")
sql="select * from 用户 where 姓名='" & my & "'"
set rs=conn.execute(sql)
if rs("体力")<0 or rs("状态")="死" then 
session.Abandon
end if
tl=rs("体力")
%>
<html>
<head>
<link href="../../css.css" rel="stylesheet" type="text/css"></head>
<body bgcolor='#000000'>
<center>
<%
if tl<20 then
%>
<script language=vbscript>
MsgBox "提示：你疲劳程度已超出范围，为防不测，还是离开孤岛为上！"
location.href = "javascript:history.back()"
</script>
<%
else
message=huayuan(my,sh,sy)

end if
end if%>
  <table border=3 align=center width=350 cellpadding="3" cellspacing="3" bordercolor="#cccccc">
    <tr>
<td>
<table height="225" align="center" width="100%">
<tr>
<td height="37">
<div align="center"><strong>突发事件</strong></div>

<tr>
<td height="147" valign="top">
  <p align="center">  <img border="0" src="../../chat/img/251.GIF"><br><%=message%>

</p>
</td>
</tr>
<td align=center height="29">
<div align="right"> 
                <p align="center"> 
                  <input type=button value="返 回 孤 岛" onClick="location.href='index2.asp'" name="button">
<font color="#FF0000"><b><br>
                  <br>
                  </b></font><b>[ </b> <a href="INDEX.ASP"><b>离开孤岛</b></a><b> 
                  ]</b> <br>
                
              </div> 
</td> 
</table> 
</td> 
</tr> 
</table> 
</center> 
</body> 
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>