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

<% Call head()
Call cardgame("打工",yanse11)
 




if mytl<400 then
response.write "很抱歉.您的体力低于400.暂不能打工.请去补充体力吧~"


else


if myml<400 then




response.write "很抱歉.您的魅力低于400.暂不能打工.请去补充魅力吧~"


else







dim lx,sl,mytl1
	Response.Buffer=True 
iduse=Session("useid")
lx=request.form("lx")
sl=request.form("sl")
if sl=0 or sl<0 then
	mess="不工作到这里来干什么？或者您的体力或魅力少于400~"
else

		end if
	


















		select case lx









		case "rou"
            sql="update [users] set myjb=myjb+"& sl*20 &",mytl=mytl-"& sl*15 &",myml=myml+"& sl*15 &" where id='" & myid & "'"
			conn.execute sql
	mess="你经过了一天的工作,体力-"& sl*15 &"点,"&getcent&"+"& sl*20 &",魅力+"& sl*15 &"!"
		case "gt"
			sql="update [users] set myjb=myjb+"& sl*15 &",mytl=mytl-"& sl*10 &",myml=myml+"& sl*10 &" where id='" & myid & "'"
			conn.execute sql
			mess="你经过了一天的工作.体力-"& sl*10 &"点,"&getcent&"+"& sl*15 &",魅力+"& sl*10 &"!"
		case "xnj"
			sql="update [users] set myml=myml-"& sl*50 &",myjb=myjb-"& sl*200 &",mytl=mytl-"& sl*50 &" where id='" & myid & "'"
			conn.execute sql
           mess="真晕菜,还没开工,就被老板抄了.体力-"& sl*50 &"点,"&getcent&"-"& sl*200 &",魅力-"& sl*50 &"!"
		end select

	conn.close
	set objgbrs=nothing
	Set conn = Nothing
end if
end if

%><%=mess%><br/><a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>









<%Call head2()%> 

