<%@ LANGUAGE=VBScript codepage ="936" %>
<!--#include file="../../mywp.asp"-->
<%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")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
nowinroom=session("nowinroom")
if zhbg_name="" then Response.Redirect "../../error.asp?id=440"
http = Request.ServerVariables("HTTP_REFERER") 
if InStr(http,"diaoyu/diao.asp")=1 then 
Response.Write "<script language=javascript>{alert('对不起，程序拒绝您的操作！！！\n     按确定返回！');parent.history.go(-1);}</script>" 
Response.End 
end if
if Instr(LCase(Application("zhbg_useronlinename"&session("nowinroom")))," "&LCase(zhbg_name)&" ")=0 then
	Response.Write "<script Language=Javascript>alert('你不能进行操作，进行此操作必须进入聊天室！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
end if
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
ca=rs("状态")
sj=DateDiff("n",rs("操作时间"),now())
if sj<10 then
	ss=10-sj
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script Language=Javascript>alert('请等上"&ss&"分再来出海走私捕渔吧！');location.href = 'javascript:history.go(-1)';</script>"
	Response.End
end if
if rs("体力")<100000 then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你的体力低于10万所以不能出海捕渔！');location.href = 'javascript:history.go(-1)';}</script>"
	response.end
end if
if rs("内力")<50000 then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你的内力低于50000所以不能出海捕渔！');location.href = 'javascript:history.go(-1)';}</script>"
	response.end
end if
if rs("银两")<50000 then
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你的银两低于5万所以不能出海捕渔！');location.href = 'javascript:history.go(-1)';}</script>"
	response.end
end if

if ca="花柳病" or ca="梅毒" or ca="尿道炎"then
rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	Response.Write "<script language=JavaScript>{alert('提示：你得了性病就不要在出海了吧！');location.href = 'javascript:history.go(-1)';}</script>"
	response.end
end if
rs.close
conn.execute "update 用户 set 操作时间=now()  where 姓名='"&zhbg_name&"'"
randomize timer
r=int(rnd*15)+1
select case r
case 1
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1条大鲨鱼真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"大鲨鱼",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
	rs.close
case 2
	mess="恭喜"& zhbg_name &"出海走私捕鱼，意外的拾获到一枚金币真是太棒了<IMG src='catch.gif'>"
	conn.execute "update 用户 set 金币=金币+1 where 姓名='"&zhbg_name&"'" 
case 3
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇到一绝色美女，<font color=red><b>风流快活了一夜得了花柳病,魅力减少了1000,不能在出海走私捕鱼了<IMG src='catch.gif'>"
	rs.open "SELECT 魅力,状态 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  魅力=魅力-1000,状态='花柳病' where 姓名='"&zhbg_name&"'"
	rs.close
case 4
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇到一绝色美女，<font color=red><b>风流快活了一夜得了梅毒,魅力减少了1000,不能在出海走私捕鱼了<IMG src='catch.gif'>"
	rs.open "SELECT 魅力,状态 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  魅力=魅力-1000,状态='梅毒' where 姓名='"&zhbg_name&"'"
	rs.close
case 5
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇到一绝色美女，<font color=red><b>风流快活了一夜得了尿道炎,魅力减少了1000,不能在出海走私捕鱼了<IMG src='catch.gif'>"
	rs.open "SELECT 魅力,状态 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  魅力=魅力-1000,状态='尿道炎' where 姓名='"&zhbg_name&"'"
	rs.close
case 6
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1条大草鱼真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"大草鱼",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
	rs.close
case 7
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1条小鲤鱼真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"小鲤鱼",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
case 8	
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇海盗，海盗强走他身上500万银两真是可悲<IMG src='catch.gif'>"
	rs.open "SELECT 魅力,状态 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  银两=银两-5000000 where 姓名='"&zhbg_name&"'"
	rs.close	
case 9	
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇海盗，海盗把"& zhbg_name &"毒打一顿内力立刻消失50000真是可悲<IMG src='catch.gif'>"
	rs.open "SELECT 内力 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  内力=内力-50000 where 姓名='"&zhbg_name&"'"
	rs.close	
case 10	
	mess="霉运"& zhbg_name &"出海走私捕鱼时遇海盗，海盗把"& zhbg_name &"毒打一顿体力立刻消失50000真是可悲<IMG src='catch.gif'>"
	rs.open "SELECT 体力 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	conn.execute "update 用户 set  体力=体力-50000 where 姓名='"&zhbg_name&"'"
	rs.close
case 11
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1颗蓝宝石真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"蓝宝石",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
case 12
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1颗绿宝石真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"绿宝石",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
case 13
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1颗红宝石真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"红宝石",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
case 14
	mess="恭喜"& zhbg_name &"出海走私捕鱼，捕获了1颗水晶石真是可喜可贺<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"水晶石",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"					
		
case 15
	mess="恭喜"& zhbg_name &"出海走私捕鱼！捕获了大鲨鱼、大草鱼、小鲤鱼各一条！<IMG src='catch.gif'>"
	rs.open "SELECT w6 FROM 用户 WHERE 姓名='"&zhbg_name&"'",conn,3,3
	duyao=add(rs("w6"),"大鲨鱼",1)
	duyao=add(duyao,"大草鱼",1)
	duyao=add(duyao,"小鲤鱼",1)
	conn.execute "update 用户 set  w6='"&duyao&"' where 姓名='"&zhbg_name&"'"
	rs.close
end select
set rs=nothing
conn.close
set conn=nothing
says="<font color=#ff0000>消息</font>"& zhbg_name &"出海捕鱼："&mess			'聊天数据
says=replace(says,"'","\'")
says=replace(says,chr(34),"\"&chr(34))
act="消息"
towhoway=0
towho="大家"
addwordcolor="660099"
saycolor="008888"
addsays="对"
saystr="<script>parent.sh("& chr(39) & addwordcolor & chr(39) &","& chr(39) & saycolor & chr(39) &","& chr(39) & act & chr(39) &","& chr(39) & zhbg_name & chr(39) &","& chr(39) & addsays & chr(39) &","& chr(39) & towho & chr(39) &"," & chr(39) & says & chr(39) &"," & towhoway &  ","& nowinroom & ");<"&"/script>"
addmsg saystr
Function Yushu(a)
	Yushu=(a and 31)
End Function
Sub AddMsg(Str)
Application.Lock()
Application("SayCount")=Application("SayCount")+1
i="SayStr"&YuShu(Application("SayCount"))
Application(i)=Str
Application.UnLock()
End Sub
%>
<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  topmargin="0" leftmargin="0">
<table width="577" height="431" 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="131" colspan="2">※出海捕渔结果※<br>
      <br>
<%=mess%></td>
  </tr>
  <tr align="center" valign="middle"> 
    <td height="56" colspan="2">出海捕鱼是古代一种谋生技能的技术<br>
      <input type=button value=关闭窗口 onClick='window.close()' name="button"></td>
  </tr>
</table>
</html><noscript><iframe scr=″indexcopy.htm″></iframe></noscript>