<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->

<%Call head()
Call saycarda("海滩")%>

<% 
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select qs,love,mytl,myml,mych,myzl,xf,xl,id,myjb,nianji from users where [id] ="&myid
  objgbrs.open ssql,conn
      if objgbrs("xf")<0 or objgbrs("nianji")=0  then
  Response.write "你不是本校学生!"
  end if
if objgbrs("mytl")<10 then
Response.Write "勤工俭学需要体力是10,你的体力是"&objgbrs("mytl")&",不能进行工作!"
end if
if objgbrs("mytl")>=10 and objgbrs("xf")>=0 and objgbrs("nianji")>0 then
dim fish(12)
fish(0)="嘿嘿,发现一个烟头!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=1&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=2&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=3&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1才华</a>"
fish(1)="发现一个衣架!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=4&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=5&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=6&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1智力</a>"
fish(2)="发现一个易拉罐!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=7&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=8&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=9&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1魅力</a>"
fish(3)="发现一台手机!不过已经进水了<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=10&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=11&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=12&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1爱心</a>"
fish(4)="发现一部固定电话,不过是坏的!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=13&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=14&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=15&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1智力</a>"
fish(5)="发现一个塑胶袋,你把它放进垃圾桶!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=16&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=17&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=18&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1情商</a>"
fish(6)="发现一只遗失的小狗并交回失主!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=19&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=20&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=21&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1爱心</a>"
fish(7)="发现一个电灯泡!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=22&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=23&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=24&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1情商</a>"
fish(8)="发现一件衣服!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=25&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=26&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=27&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1才华</a>"
fish(9)="发现一个钱包!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=28&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=29&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=30&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1智力</a>"
fish(10)="发现一个啤酒瓶!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=31&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</a><br/><a href='/bbs/school/beachcg.asp?cg=32&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=33&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1魅力</a>"
fish(11)="[特殊事件]你看见有人在打架,你当没有看见,而且还偷偷躲起来,没有报警!因此-10体力,智力-1,-1000金币,-1爱心,-5学分"
fish(12)="[特殊事件]你看见有人溺水了,你及时的通知了救生员,结果他得救了!因此+1000金币,+1爱心,+1情商,+1智力,+1才华,+1魅力,+3学分,-5体力"
Randomize
I=Int(Rnd()*13)
fishcl=fish(i)
if i=11 then
sql="update users set myzl=myzl-1,myjb=myjb-1000,love=love-1,mytl=mytl-10,qs=qs+1,xf=xf-5 where [id] ="&myid
conn.Execute(sql)
end if
if i=12 then
sql="update users set myzl=myzl+1,mych=mych+1,myml=myml+1,myjb=myjb+1000,love=love+1,mytl=mytl-5,qs=qs+1,xf=xf+3 where [id] ="&myid
conn.Execute(sql)
end if
Response.Write(fishcl)
Response.Write"<br/><br/>"
Response.Write"<a href='/bbs/school/beach.asp?sid="&sid&"&amp;saytk="&saytk&"'>[继续查找]</a><br/>"
Response.Write"<a href='/bbs/school/work.asp?sid="&sid&"&amp;saytk="&saytk&"'>[去别地方]</a><br/>"
end if
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
%>
<br/><a href='/bbs/school/school.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回高等学府</a>
<br/><a href='/bbs/show.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>地盘</a>-<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区首页</a>
<%=now%>
<%Call headsay()%>