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

<%'=============================
call head()
Call cardgame("挑战记录",yanse9)
%>您目前共有<%=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?sid="&sid&"&amp;saytk="&saytk&""">抢一个</a>来玩吧!<br/>"
Else
response.write "编号编号:"&id&"<br/>"
if rs("active")=1 then
response.write "挑战类型:公开挑战!<br/>"
else
response.write "挑战类型:单人挑战!<br/>"
end if
response.write "挑战时间:"&rs("times")&"<br/>"
response.write "赌注是:"&rs("num")&getcent&"<br/>"
if rs("op")=1 then
	dim getname
	if rs("about2")="A" then
	getname="获胜!"
	elseif rs("about2")="B" then
	getname="失败!"
	elseif rs("about2")="C" then
	getname="平局!"
	else
	getname="对方放弃挑战!"
	end if
response.write "状态:"&getname&"<br/>"	
	else
response.write "状态:未回应<br/>"	
end if
	dim getname2
	if rs("about1")="B" then
	getname2="英雄!"
	elseif rs("about1")="C" then
	getname2="美女!"
	elseif rs("about1")="D" then
	getname2="色狼!"
	end if

response.write "您出的是"&getname2&"<br/>"	
if rs("op")=1 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 & "&amp;saytk="&saytk&"'>" & 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()%>