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

<%Call head()
Call saycarda("海岸都市")%>


<% 
wap=request.querystring("wap")
Server.ScriptTimeout=999
iduse=Session("useid")
  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("xf")>=0 or objgbrs("nianji")>0 then
if objgbrs("mytl")<10 then
Response.Write "勤工俭学需要体力是10,你的体力是"&objgbrs("mytl")&",不能进行工作!"
end if
if objgbrs("mytl")>=10 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&"'>换取+2魅力</a>"
fish(2)="发现一个篮球!这个星期可以和朋友一起打篮球<br/>---------<br/>请选择<br/><a href='/hk/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;wap="&wap&"'>换取+2才华</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&"'>换取1学分</a><br/><a href='/bbs/school/beachcg.asp?cg=15&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+1智力</a>"
fish(5)="发现一台DVD机!呵呵!<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&"'>换取+2智力</a>"
fish(6)="发现一个新书包!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=19&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</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&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=23&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=24&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+2爱心</a>"
fish(8)="谁老是这样,抽烟乱仍!!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=25&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取100金币</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;wap="&wap&"'>换取1智力</a>"
fish(10)="走运了!发现一台新款的MP3!<br/>---------<br/>请选择<br/><a href='/bbs/school/beachcg.asp?cg=31&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取200金币</a><br/><a href='/bbs/school/beachcg.asp?cg=32&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取2学分</a><br/><a href='/bbs/school/beachcg.asp?cg=33&amp;sid="&sid&"&amp;saytk="&saytk&"'>换取+2情商</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/city.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
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%>
</p>
</card>
</wml>