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


<%Call head()
Call cardgame("桑拿",yanse10)


dim lx,sl,msg
lx=request.form("lx")
sl=request.form("sl")
bb=request.form("myjb")
	select case lx
	     case "rou"	                        
            if clng(myjb) < sl*200 then response.redirect"1.asp?sid="&sid&""
                sql="update users set myjb=myjb-"&sl*200&",mytl=mytl+"&sl*10&"  where id='" & myid & "'" 
			conn.execute sql
	                conn.execute("update users set myjb=myjb-"& sl*200 &",mytl=mytl+"& sl*10 &" where id="&myid)
                        msg="哇！好舒服哦！你选择了普通洗澡，洗了"& sl &"次,消费了"& sl*200 &""&getcent&",体力增加了"& sl*10&""          
            case "gt"
            if clng(myjb) < sl*400 then response.redirect"1.asp?sid="&sid&""  
           	      sql="update users set myjb=myjb-"& sl*400 &",mytl=mytl+"& sl*20 &"  where id='" & myid & "'"
			conn.execute sql
		        conn.execute("update users set myjb=myjb-"& sl*400 &",mytl=mytl+"& sl*20 &" where id="&myid)
                        msg="哇！好舒服哦！你选择了游泳，游了"& sl &"次，消费了"& sl*400 &""&getcent&",体力增加了"& sl*20 &""
		case "xnj"
            	 if clng(myjb) < sl*600 then response.redirect"1.asp?sid="&sid&""   
                      sql="update users set myjb=myjb-"& sl*600 &",mytl=mytl+"& sl*31 &"  where id='" & myid & "'"
			conn.execute sql
			conn.execute("update users set myjb=myjb-"& sl*600 &",mytl=mytl+"& sl*31 &" where id="&myid)
                        msg="桑拿！是否感到热得不行了呢？撑下去！呵呵^_^。洗了"& sl &"次,消费了"& sl*600 &""&getcent&",体力增加了"& sl*31 &""
		case "lhr"               
               if clng(myjb) < sl*800 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*800 &",mytl=mytl+"& sl*42 &"  where id='" & myid & "'"
			conn.execute sql
			conn.execute("update users set myjb=myjb-"& sl*800 &",mytl=mytl+"& sl*42 &" where id="&myid)
                        msg="搓背！感到很舒服吧？洗了"& sl &"次,消费了"& sl*800 &""&getcent&",体力增加了"& sl*42 &""
		case "hzj"               
                  if clng(myjb) < sl*1000 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*1000 &",mytl=mytl+"& sl*53 &"  where id='" & myid & "'"
			conn.execute sql
			conn.execute("update users set myjb=myjb-"& sl*1000 &",mytl=mytl+"& sl*53 &" where id="&myid)
                        msg="按摩一下，浑身的疲劳都没了……安了"& sl &"次,消费了"& sl*1000 &""&getcent&",体力增加了"& sl*53 &""		              
		end select
response.write msg
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/>返回<a href='/bbs/xxjd/xz.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>桑拿</a>-
<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>
<%
call headsay()

%>



