<%@ 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")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
session("zhbg_sj")=now()
Session("zhbg_jl")=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "select 职业 from 用户 where 姓名='"&zhbg_name&"'",conn
if trim(rs("职业"))<>"渔夫" then
	rs.close
	set rs=nothing	
	conn.close
	set conn=nothing
	Response.Write "<script Language=Javascript>alert('提示：您的职业不是渔夫，所以您不能出海捕渔！！');window.close();</script>"
	response.end
end if
rs.close
set rs=nothing	
conn.close
set conn=nothing
%>

<html>

<head>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>出海捕鱼</title>
<link href="../../../css.css" rel="stylesheet" type="text/css">
</head>

<body >
<table width="577" height="379" border="3" align="center" cellpadding="3" cellspacing="3" bordercolor="#cccccc">
  <!--DWLayoutTable-->
  <%Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
conn.open Application("zhbg_usermdb")
rs.open "Select * from 用户 where 姓名='" & zhbg_name &"'",conn,3,3
tx=rs("名单头像")
tlj=rs("体力加")
%>
    <tr align="center" valign="middle"> 
    <td height="63" colspan="2"><a href="javascript:this.location.reload()">【刷新】</a> <a href="javascript:history.go(-1)">【返回】</a> </td>
  </tr>
  <tr> 
    <td width="200" height="107" align="center" valign="middle"><img id=face src="../../ico/<%=tx%>-2.gif" alt=个人形象代表 width='70' height='70'></td>
    <td width="346" rowspan="2" align="center" valign="middle"><img border="0" src="sailing2.gif" width="240" height="138"></td>
  </tr>
  <tr> 
    <td height="50" align="center" valign="middle"><%=zhbg_name%></td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="63" colspan="2"><a href="catch1.asp">立刻出海</a> <a href="javascript:window.close()">算了不出海</a></td>
  </tr>
  <tr> 
    <td height="138" colspan="2" valign="top"><div align="center"><br>
        ※欢迎光临[非凡国度]出海捕渔场所※</div><br>
        <br>
        出海捕渔可以让你带来不少的财富.还可以偷偷的走私.让你成为巨富.<br>
        出海捕渔中可能可以捕到不错的渔喔.有小鲤鱼.大鲨鱼.大草鱼等等<br>
        也有可能捕到僵尸牙.红宝石、蓝宝石、绿宝石.僵尸血、水晶石等等非常之多.<br>
        但常出海容易生病喔.也有可能让你带来花柳病.所以出海前请三思.
</td>
  </tr>
  
</table>
</body>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>