<%
if Session("zhbg_Name")="" then
%>
<script language=vbscript>
MsgBox "你不是还没有登陆或者超时连接呀！"
location.href = "javascript:self.close()"
</script>
<%end if%>
<%
set conn=server.createobject("adodb.connection") 
conn.open Application("zhbg_usermdb")
set rs=server.CreateObject ("adodb.recordset")
name=Session("zhbg_Name")
sql="select * from 用户 where 姓名='" & name & "'"
set rs=conn.execute(sql)
if rs("银两")<100 then
%>
<script language=vbscript>
MsgBox "我倒，连100两银两都没有呀！"
location.href = "javascript:self.close()"
</script>
<% end if%>
<%
sql="update 用户 set 银两=银两-100 where 姓名='" & name & "'"
conn.execute sql
%>
<html>
<head>
<title>[非凡国度]--宝物调查所</title>
<link href="../../css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body  >
<table width="600" border="3" align="center" cellpadding="8" cellspacing="8" bordercolor="#cccccc">
  <tr>
    <td height="55" align="center" > [你花了88888两来到了[非凡国度]宝物调查所，这里有各种都市人士从不同的地方打探到的藏宝消息]<br>
      <br>
孤岛冒险<br>
<img border="0" src="../../chat/img/bt.gif"><br>
</td>
  </tr>
<tr>    
    <td colspan="2" align="center" ><a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> 
    </td>    
</tr> 
</table>
<table width="600" border="3" cellspacing="3" cellpadding="3" align="center" bordercolor="#cccccc" height="26" >
  <tr bgcolor="#660000"> 
    <td height="10" colspan="4"> <div align="center"><span style="letter-spacing: 1">最新宝物消息</span></div></td>
  </tr>
  <tr> 
    <td width="165" height="9"> <div align="center"><span style="letter-spacing: 1">宝物名</span> 
      </div></td>
    <td colspan="3" height="9" width="429"> <div align="center">增加参数</div></td>
  </tr>
  <%
sql="SELECT * FROM 宝物 order by id desc"
Set Rs=conn.Execute(sql)
do while not rs.bof and not rs.eof
%>
  <tr> 
    <td width="165" height="19" align="center"><%=rs("宝物名")%></td>
    <td width="429" height="19" colspan="3" align="center">攻击力+<%=rs("攻击力")%> 
      防御力+<%=rs("防御力")%> </td>
  </tr>
  <%  
rs.movenext  
loop  
%>
</table>  
<table width="600" border="3" cellspacing="3" cellpadding="3" align="center" height="26" bordercolor="#cccccc">
  <tr> 
    <td height="10" colspan="4" valign="middle"> <div align="center"><font size="2">最新宝物发现者</font></div></td>
  </tr>
  <tr> 
    <td width="126" height="9"> <div align="center"><span style="letter-spacing: 1">宝物名</span> 
      </div></td>
    <td width="218" height="9"> <div align="center">增加参数</div></td>
    <td width="115" height="9"> <div align="center"><span style="letter-spacing: 1">发现者</span></div></td>
    <td width="131" height="9"> <div align="center"><span style="letter-spacing: 1">发现时间</span></div></td>
  </tr>
  <%  
sql="SELECT * FROM 宝物 where 拿走='1' order by id desc"  
Set Rs=conn.Execute(sql)  
do while not rs.bof and not rs.eof  
%>
  <tr> 
    <td width="126" height="19" align="center"><%=rs("宝物名")%></td>
    <td width="218" height="19" align="center">攻击力+<%=rs("攻击力")%> 防御力+<%=rs("防御力")%></td>
    <td width="115" height="19" align="center"><%=rs("获宝者")%></td>
    <td width="131" height="19" align="center"><%=rs("时间")%></td>
  </tr>
  <%  
rs.movenext  
loop  
conn.close  
%>
  <tr align="center"> 
    <td height="10" colspan="4" valign="middle"><img src="../../chat/img/menoy.gif" width="50" height="40" border="0"> 
      [ <b><a href="INDEX2.ASP"><font color="#FF0000">登 陆 孤 岛，开 始 寻 宝</font></a></b> ]<br>  </td>
  </tr>
</table>  
<table width="600" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <tr>  
      <td height="94"> 
        <p style="margin-left: 5; margin-right: 5"><br>
          &lt;&lt;寻宝必读&gt;&gt; </p>
        <p style="margin-left: 5; margin-right: 5; margin-bottom: 8">1、条件：道德大于500，内力大于1000，攻击大于1000<br><br>
2、据说宝物都埋藏在另人闻风丧胆的[非凡国度]孤岛，而且寻找到的机会可以说是微乎其微，而且随时有可能宝物没拿到手就意外死于孤岛了。<br>
          <br>
          3、宝物都是国度中稀世珍宝，国度黑白两道都想得到手呵，所以如果有谁拿到宝物的话可要保管好呵，因为您很快会成为帮派的攻击对象呵。 </p> 
</td> 
</tr> 
</table> 
</body> 
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>
