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

<%Call head()
Call cardgame("酒吧",yanse10)%>
<% 

dim lx,sl,msg
lx=request.form("lx")
sl=request.form("sl")
bb=request.form("usejf")

 
	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*140 &"  where id='" & myid & "'" 
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*200 &""&getcent&",体力增加了"& sl*140 &""          
            case "gt"
            if clng(myjb)< sl*300 then response.redirect"1.asp?sid="&sid&""  
           	      sql="update users set myjb=myjb-"& sl*300 &",mytl=mytl+"& sl*200 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*300 &""&getcent&",体力增加了"& sl*200 &""
		case "xnj"
            	 if clng(myjb)< sl*400 then response.redirect"1.asp?sid="&sid&""   
                      sql="update users set myjb=myjb-"& sl*400 &",mytl=mytl+"& sl*290 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*400 &""&getcent&",体力增加了"& sl*290 &""
		case "xz"               
               if clng(myjb)< sl*500 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*500 &",mytl=mytl+"& sl*370 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*500 &""&getcent&",体力增加了"& sl*370 &""
		case "lhr"               
                  if clng(myjb)< sl*200 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*200 &",mytl=mytl+"& sl*130 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*200 &""&getcent&",体力增加了"& sl*130 &""
		case "hzj"
                 if clng(myjb)< sl*300 then response.redirect"1.asp?sid="&sid&""
               		sql="update users set myjb=myjb-"& sl*300 &",mytl=mytl+"& sl*190 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*300 &""&getcent&",体力增加了"& sl*190 &""
		case "bhp"                
                if clng(myjb)< sl*1000 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*1000 &",mytl=mytl+"& sl*700 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*1000 &""&getcent&",体力增加了"& sl*700 &""
		case "hss"              
                if clng(myjb)< sl*2000 then response.redirect"1.asp?sid="&sid&""
			sql="update users set myjb=myjb-"& sl*2000 &",mytl=mytl+"& sl*1300 &"  where id='" & myid & "'"
			conn.execute sql
			msg="您消费"& sl &"份,花费了"& sl*2000 &""&getcent&",体力增加了"& sl*1300 &""                
		end select
response.write msg
	conn.close
	set rs=nothing
	set conn=nothing
%>
<br/>--------<br/>返回<a href='/bbs/game/jb.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()

%>