<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<% Call head()
Call cardgame("打工",yanse10)

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="不工作到这里来干什么？或者您的体力或魅力少了。~"
else

		end if
dim mz
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&sid=[sid]&saytk=[saytk]]"&myni&"[/url]"
else
mz="游客"
end if
select case lx
case "rou"
            sql="update [users] set myjb=myjb+"& dgsd &",mytl=mytl-"& dgtl3 &",myml=myml+"& dgml3 &" where id='" & myid & "'"
			conn.execute sql
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"在(url=/bbs/game/dg.asp?sid=[sid]&saytk=[saytk])打工(/url)经过了一天的工作,体力-"& dgtl3 &"点,"&getcent&"+"& dgsd &",魅力+"& dgml3 &"!')")
	mess="你经过了一天的工作,体力-"& dgtl3 &"点,"&getcent&"+"& dgsd &",魅力+"& dgml3 &"!"
		case "gt"
			sql="update [users] set myjb=myjb+"& dgsd1 &",mytl=mytl-"& dgtl1 &",myml=myml+"& dgml1 &" where id='" & myid & "'"
			conn.execute sql
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"在(url=/bbs/game/dg.asp?sid=[sid]&saytk=[saytk])打工(/url)经过了一天的工作,体力-"& dgtl1 &"点,"&getcent&"+"& dgsd1 &",魅力+"& dgml1 &"!')")
			mess="你经过了一天的工作.体力-"& dgtl1 &"点,"&getcent&"+"& dgsd1 &",魅力+"& dgml1 &"!"
		case "xnj"
			sql="update [users] set myml=myml-"& dgml2 &",myjb=myjb-"& dgsd2 &",mytl=mytl-"& dgtl2 &" where id='" & myid & "'"
			conn.execute sql
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"在(url=/bbs/game/dg.asp?sid=[sid]&saytk=[saytk])打工(/url)还没开工,就被老板抄了.体力-"& dgtl2 &"点,"&getcent&"-"& dgsd2 &",魅力-"& dgml2 &"!')")
           mess="真晕菜,还没开工,就被老板抄了.体力-"& dgtl2 &"点,"&getcent&"-"& dgsd2 &",魅力-"& dgml2 &"!"
		end select

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

%><%=mess%><!--#include file="../fanhui.asp"-->
<%call head1()%>

