您目前共有<%=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&"
" response.write "大话内容:"&rs("about")&"
" response.write "答案一:"&rs("about1")&"
" response.write "答案二:"&rs("about2")&"
" if rs("num")=1 then response.write "正确答案:"&rs("about1")&"
" else response.write "正确答案:"&rs("about2")&"
" end if response.write "赌注是:"&rs("paycent")&getcent&"
" if rs("num")=1 then dim getname if rs("num1")=2 then getname="获胜!" elseif rs("num1")=1 then getname="失败!" else getname ="未回应" end if elseif rs("num")=2 then if rs("num1")=1 then getname="获胜!" elseif rs("num1")=2 then getname="失败!" else getname ="未回应" end if else getname ="未回应" end if response.write "状态:"&getname&"
" if rs("reuseid")<>0 then 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 else response.write "大话用户:暂无
" end if rs.close set rs=nothing end if ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %>-------------