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


<%


call head()
Call cardgame("吹牛记录",yanse6)
%>

您目前共有<%=myjb%><%=getcent%><br/>
<%
dim id
id=request("id")
if id="" or Isnumeric(id)=false then
call error("ID无效！")
end if
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from YD_jd where id=" & id & " and useid="&myid&" order by id desc",ydzqconn,1,1
if rs.eof then
response.write "您好,这个吹牛不存在,赶快再去<a href=""index.asp?saytk="&saytk&"&amp;sid="&sid&""">抢一个</a>来玩吧!<br/>"
Else
response.write "编号编号:"&id&"<br/>"
response.write "吹牛内容:"&rs("about")&"<br/>"
response.write "答案一:"&rs("about1")&"<br/>"
response.write "答案二:"&rs("about2")&"<br/>"
if rs("num")=1 then
response.write "正确答案:"&rs("about1")&"<br/>"
else
response.write "正确答案:"&rs("about2")&"<br/>"
end if

response.write "赌注是:"&rs("paycent")&getcent&"<br/>"
if rs("num")=1 then
	dim getname
	if rs("num1")=1 then
	getname="获胜!"
	elseif rs("num1")=2 then
	getname="失败!"
else
getname ="未回应"
	end if
elseif rs("num")=2 then
	if rs("num1")=2 then
	getname="获胜!"
	elseif rs("num1")=1 then
	getname="失败!"
else
getname ="未回应"
	end if
else
getname ="未回应"
end if
response.write "状态:"&getname&"<br/>"	

if rs("reuseid")<>0 then
set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open"select name from Users where id="&rs("reuseid"),conn,1,1
if not rs1.eof then
response.write "应战用户<a href='../uinfo.asp?id=" & rs("reuseid") & "&amp;sid=" & sid & "'>" & rs1("name") & "</a><br/>"	
end if
rs1.close
set rs1=nothing
else
response.write "应战用户:暂无<br/>"	
end if
rs.close
set rs=nothing
end if
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%>-------------
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>
