<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%Call head()
Call saycarda("获取状态")%>

<%
sid=request.querystring("sid")
Server.ScriptTimeout=999
iduse=Session("myid")
cg=request("cg")
  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
if cg=1 or cg=7 or cg=13 or cg=22 or cg=28 or cg=31 then
sql="update users set myjb=myjb+100,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取100金币!体力-2!你当前体力是:"&objgbrs("mytl")&",金币是"&objgbrs("myjb")&""
end if
if cg=2 or cg=20 or cg=23 or cg=26 or cg=32 or cg=8 then
sql="update users set xf=xf+1,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1学分!体力-2.你当前体力是:"&objgbrs("mytl")&",学分是"&objgbrs("xf")&""
end if
if cg=3 or cg=27 then
sql="update users set mych=mych+1,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1才华!体力-2!你当前体力是:"&objgbrs("mytl")&",才华是"&objgbrs("mych")&""
end if
if cg=4 or cg=10 or cg=16 or cg=19 or cg=25 then
sql="update users set myjb=myjb+200,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取200金币!体力-2!你当前体力是:"&objgbrs("mytl")&",金币是"&objgbrs("myjb")&""
end if
if cg=5 or cg=11 or cg=14 or cg=17 or cg=29 then
sql="update users set xf=xf+2,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取2学分!体力-2!你当前体力是:"&objgbrs("mytl")&",学分是"&objgbrs("xf")&""
end if
if cg=6 or cg=15 or cg=30 then
sql="update users set zhili=zhili+1,tili=tili-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1智力!体力-2!你当前体力是:"&objgbrs("tili")&",智力是"&objgbrs("zhili")&""
end if
if cg=9 or cg=33 then
sql="update users set myml=myml+1,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1魅力!体力-2!你当前体力是:"&objgbrs("mytl")&",魅力是"&objgbrs("myml")&""
end if
if cg=12 or cg=21 then
sql="update users set love=love+1,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1爱心!体力-2!你当前体力是:"&objgbrs("mytl")&",爱心是"&objgbrs("love")&""
end if
if cg=18 or cg=24 then
sql="update users set qs=qs+1,mytl=mytl-2 where [id] ="&myid
conn.Execute(sql)
response.write "成功获取1情商!体力-2!你当前体力是:"&objgbrs("mytl")&",情商是"&objgbrs("qs")&""
end if
end if
response.write "<br/><a href='/bbs/school/beach.asp?sid="&sid&"&amp;saytk="&saytk&"'>[再来一次]</a>"
end if
%>
<br/><a href='/bbs/school/work.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>[去别地方]</a>
<br/>
<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>
<br/><%=now%>
<%  
response.write "<br/>执行用了"& FormatNumber((timer()-t1)*1000,3) & "毫秒 "
conn.close
set conn=nothing
%><%Call headsay()%>