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

<%Call head()
Call saycarda("浇花成功")%>

<%
sid=request.querystring("sid")
Server.ScriptTimeout=999
iduse=Session("myid")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select qs,love,mytl,myml,mych,myzl,xf,xl,id,myjb,nianji from users where Cstr(id)='" & myid & "'"
  objgbrs.open ssql,conn
  if objgbrs("mytl")<10 then
  response.write "你当前的体力是:"&objgbrs("mytl")&",不够10体力,因此不能参与这劳动!"
  end if
  if objgbrs("mytl")>=10 then
  sql="update users set mytl=mytl-2,myml=myml+2,love=love+2 where Cstr(id)='"& myid &"'"
conn.Execute(sql)
response.write "由于你用心的为它们浇水,使得他们快乐的成长!"
response.write "<br/>你当前的爱心是:["&objgbrs("love")&"],魅力是:["&objgbrs("myml")&"],体力是:["&objgbrs("mytl")&"]"
response.write "<br/><a href='/bbs/school/hua.asp?sid="&sid&"&amp;saytk="&saytk&"'>[再来一次]</a>"
end if
%>
<br/><a href='/bbs/school/labor.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>返回劳动首页</a>
<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) & "毫秒</p></card></wml>"
conn.close
set conn=nothing
%>