<!--#include file="../inc.asp"-->
<!--#include file="../ydzq1.asp"-->
 
<% 
call head()
Call saycarda("情人酒吧屋")

dim num,msg
num=request("num")
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  ssql="select * from users where id="&myid&""
  objgbrs.open ssql,conn
if num<>"" then
   num=Clng(num)
   if num>Clng(objgbrs("myjb")) or Clng(objgbrs("myjb")) < 1000 then
      msg="1000"&getcent&"都没有还想巡逻？倒！回家吧`~嘿嘿 `~攒够"&getcent&"再来贝`~发贴以及回帖可以快速赚取"&getcent&"哦~"
	  response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>返回</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
   if num<5 then
      msg="出错了"
      response.write msg & "<br/>--------<br/><a href='/77mm/index.asp?wap=" & wap & "'>社区首页</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
   if objgbrs("myjy")<200 then
      msg="很抱歉.您的经验不足200.不能巡逻哦`~~攒够经验再来贝`~发贴以及回帖可以快速赚取经验哦~"
      response.write msg & "<br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
   end if
  else
    msg="巡逻可不是件容易的事哦!"
      response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
  end if
  if Clng(request("select"))>6 or Clng(request("select"))<1 then
      conn.Execute(sql)
      msg=" 数据非法,扣除10000"&getcent&""
      response.write msg & "<br/><a href='index.asp?sid=" & sid & "'>再来一次</a><br/>--------<br/><a href='/bbs/index.asp?sid=" & sid & "'>社区</a></p></card></wml>"
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
	response.end
  end if
Randomize
ds=Clng(request("select"))
d1=fix(rnd*6)+1
d2=fix(rnd*10)+1
d3=fix(rnd*10)+1
function redx()
d1=fix(rnd*6)+1
if d1>6 then redx
end function



if d2=1 and d3=1 or d2=6 and d3=6  then 
    response.write"<br/>灯红酒绿歌舞生平一派繁华景象，看了使人意乱情迷，听说还经常会有明星的光临呦，真想亲眼看一看呀，唉~别做梦了，还是巡逻去吧。"&getcent&"+50,经验+3"
    conn.execute("update users set myjb=myjb+50,myjy=myjy+3 where id="&myid)
sql="update users set myjb=myjb+500,myjy=myjy+3 where id='"& myid &"'"
   conn.Execute(sql)
   end if 

if d2=2 and d3=2 or d2=7 and d3=7  then 
    response.write"<br/>好香啊~一股名贵法国香水的味道，寻香水味看去，只见一妖娆艳妇正在寻找今天的猎物，哈哈哈~不知那位王孙公子又要倒霉咯~幸灾乐祸~闪人。经验增加2"
    conn.execute("update users set myjy=myjy+2 where id="&myid)
sql="update users set myjy=myjy+5 where id='"& myjd &"'"
   conn.Execute(sql)
   end if 
if d2=3 and d3=3 or d2=8 and d3=8  then 
    response.write"<br/>今年最新主流，时尚精彩尽在酒吧展现，魅力女大学生优美的舞姿吸引着众人的目光。表现良好.奖励88"&getcent&".8经验"
    conn.execute("update users set myjb=myjb+88,myjy=myjy+8 where id="&myid)
sql="update users set myjb=myjb+888,myjy=myjy+8 where id='"& imyid &"'"
   conn.Execute(sql)
   end if 
if d2=4 and d3=4 or d2=9 and d3=9  then 
    response.write"春花为谁开，汝终盼君来...夜色在轻快音乐声中是格外的迷人。去酒店开了房.花了300"&getcent&"<br/>"
    conn.execute("update users set myjb=myjb-300,myjy=myjy+1,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-300 where id='"& myid &"'"
   conn.Execute(sql)
   end if 
if d2=5 and d3=5 or d2=10 and d3=10  then 
    response.write"<br/>前面围一大群人干嘛哪？过去瞧瞧，哇！SHE签名会，赶快挤过去签名，SHE给你签了名。增加"&getcent&"20.经验2。"
    conn.execute("update users set myjb=myjb+20,myjy=myjy+2,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb+200,myjy=myjy+2 where id='"& myid &"'"
   conn.Execute(sql)
   end if 



if ds=d1 then
    
     response.write "<br/>"
    response.write "<br/>酒吧就是浪漫，看看这灯光，听听这音乐~海岸冰啤~爽！"&getcent&"-300" 
     conn.execute("update users set myjb=myjb-300,myjy=myjy+1,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-300 where id='"& myid &"'"
    conn.Execute(sql)
   else
    response.write ""
      conn.execute("update users set myjb=myjb-300,myjy=myjy+2 where id="&myid)
response.write "<br/>走过浪漫的夜，感受青春的活力，心情突然好起来。<br/>经验增加2<br/>"&getcent&"-300"
     conn.execute("update users set myjb=myjb-300,myjy=myjy+2,mytl=mytl-10 where id="&myid)
sql="update users set myjb=myjb-300,myjy=myjy+2 where id='"& myid &"'"
    conn.Execute(sql)
   end if
	conn.close
	set objgbrs=nothing
	Set conn = Nothing
If saytk>1 then%>
<form name="form" method="post" action="jb.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>">
<%
response.write "<input type=""hidden"" name=""select"" value=""1""/>"
response.write "<input type=""hidden"" name=""num"" value=""5""/>"
response.write "<input type=""submit"" name=""Submit"" value=""继续巡逻""></form><br/>"
else
%>
<br/><anchor>继续巡逻<go method="post" href='sc.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'><postfield name="num" value="5"/><postfield name="select" value="1"/></go></anchor>
<%End if%>
<br/>--------<br/>
<a href='/bbs/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>社区</a>-<a href='/index.asp?sid=<%=sid%>&amp;saytk=<%=saytk%>'>首页</a>
<br/>
<%Call headsay()
%>

