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

if jbgb=1 then
set rsbbsmsg=Server.CreateObject("ADODB.Recordset")
  rsbbsmsg.open"select top "&jbgbs&" * from wap8gggnet order by ding1 desc",conn,1,1
  if not rsbbsmsg.eof then
  while not rsbbsmsg.eof
dim ding
ding=rsbbsmsg("ding")
if ding=>1 then 
  response.write"[顶]"
end if
    bbslbtxt1=left(rsbbsmsg("bbslbtxt"),8)
   if len(rsbbsmsg("bbslbtxt"))>8 then
    bbslbtxt1=bbslbtxt1+"..."
   End if
  if rsbbsmsg("usid")<>0 then

  response.write"<img src='/bbs/gb/gb.gif' alt='广播'/><a href=""/bbs/gb/index.asp?sid="&sid&"&amp;saytk="&saytk&""">"&ubb(bbslbtxt1)&"</a><br/>"
  else
  'response.write"(系统)"&ubb(rsbbsmsg("bbslbtxt1"))&"("&fordate2(rsbbsmsg("writeTime"))&")<br/>"
  end if
  rsbbsmsg.movenext
  wend
  else
    Response.write "暂时没有广播...<br/>"
  end if
  rsbbsmsg.close
  set rsbbsmsg=nothing

end if
if jbhy=1 then


set rsbbsmsg=Server.CreateObject("ADODB.Recordset")
  rsbbsmsg.open"select top "&jbhys&" * from sqdt order by shijian desc",conn,1,1
  if not rsbbsmsg.eof then
  while not rsbbsmsg.eof



dz=rsbbsmsg("dz")
Response.write date_gametalk(rsbbsmsg("shijian"))&"前,"&ubb2(dz)&"<br/>"&chr(13)

  rsbbsmsg.movenext
  wend
  else
    Response.write "暂时没有会员动态...<br/>"
  end if
  rsbbsmsg.close
  set rsbbsmsg=nothing

end if

if jbsui=1 then
dim rs55
if relid<>0  then 
gettest="where yc=1 and bbsid="&relid
end if
        set rs55 = server.createobject("adodb.recordset")
        rs55.open"select top "&jbsuis&" id,bbsid,xianhua,name from sell "&gettest&" order by NEWID()",conn,1,1
  while not rs55.EOF
dim xianhuah
xianhuah=rs55("xianhua")
if xianhuah=>1 then
              response.write"<img src='/bbs/jia/1.gif' alt='hot'/><img src='/bbs/jia/2.gif' alt='推荐'/>"
end if

              response.write"[随]<a href='/bbs/topic.asp?tid="&rs55("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&UBB(rs55("name"))&"</a><br/>"
 rs55.MoveNext
  wend
                rs55.close
        set rs55=nothing
end if

%>
您现在有<br/><%=getcent%>:<% =myjb%><br/>
体力:<%=mytl%>
<br/>价格列表 
<br/>1.啤酒<%=pijiu%><%=getcent%>/瓶 
<br/>2.咖啡<%=jiafei%><%=getcent%>/杯
<br/>3.咖啡加糖<%=jiafeit%><%=getcent%>/瓶
<br/>4.冰水<%=bingshui%><%=getcent%>/瓶
<br/>5.可乐<%=kele%><%=getcent%>/瓶
<br/>6.可乐加冰<%=keb%><%=getcent%>/瓶
<br/>7.五粮液<%=wly%><%=getcent%>/瓶
<br/>8.茅台<%=maotai%><%=getcent%>/瓶   
<%if saytk>1 then
Response.write "<form name=""form"" method=""post"" action=""JBcl.asp?sid="&sid&"&amp;saytk="&saytk&""">"
end if%>
<br/>选择食品:
<select name="lx" value="rou">      
               <option value="rou">啤酒</option>       
                <option value="gt">咖啡</option>       
                <option value="xnj">咖啡加糖</option>      
                <option value="xz">冰水</option>      
                <option value="lhr">可乐</option>      
 <option value="hzj">可乐加冰</option>     
                <option value="bhp">五粮液</option>     
                <option value="hss">茅台</option>                      
              </select>      
<br/>选择数量: 
<select name="sl" value="1">      
                <option value="1">1</option> 
                <option value="5"> 5 </option>
                <option value="10">10</option>
                <option value="15"> 15 </option>
                <option value="20"> 20 </option>
                <option value="25"> 25 </option>
                <option value="30"> 30</option>
                <option value="35"> 35 </option>
                <option value="40"> 40 </option>
                <option value="50"> 50 </option>
                <option value="100"> 100 </option>
              </select>
<br/><%IF saytk>1 THEN
response.write "<input type=""submit"" name=""Submit"" value=""干杯""></form><br/>"
ELSE%>
<anchor>干杯
<go method="post" href='jbcl.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>
<postfield name="lx" value="$(lx)"/>
<postfield name="sl" value="$(sl)"/>
</go>
</anchor>
<%END IF%>
<!--#include file="../fanhui.asp"-->
<%CALL HEAD1()%>
