您目前共有<%=myjb%><%=getcent%>
<% 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 reuseid="&myid&" order by id desc",ydzqconn,1,1 if rs.eof then response.write "您好,这个挑战不存在,赶快再去抢一个来玩吧!
" Else response.write "应战编号:"&id&"
" set rs1=Server.CreateObject("ADODB.Recordset") rs1.open"select name from Users where id="&rs("useid"),conn,1,1 if not rs1.eof then response.write "挑战人:" & rs1("name") & "
" end if rs1.close set rs1=nothing if rs("active")=1 then response.write "挑战类型:公开挑战!
" else response.write "挑战类型:单人挑战!
" end if response.write "挑战发起时间:"&rs("times")&"
" response.write "赌注是:"&rs("num")&getcent&"
" if rs("op")=1 then dim getname if rs("about2")="B" then getname="获胜!" elseif rs("about2")="A" then getname="失败!" elseif rs("about2")="C" then getname="平局!" else getname="放弃挑战!" end if response.write "状态:"&getname&"
" else response.write "状态:未回应
" 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&"
" rs.close set rs=nothing end if ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %>-------------