<% Response.write "您目前共有"&myjb&getcent&"
" dim rs,ssql,id id=request("id") if id="" or Isnumeric(id)=false then call error("ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") ssql="select * from YD_jd where id=" & id & " and op=0 order by id desc" rs.open ssql,ydzqconn,1,1 if rs.eof then response.write "您好,这个大话已经被抢走了,赶快再去抢一个来玩吧!
" Else id1=rs("useid") num=rs("num") set objgbrs1=Server.CreateObject("ADODB.Recordset") ssql1="select name,id from users where id=" & id1 objgbrs1.open ssql1,conn Response.write "这是" & objgbrs1("name") & "(ID:" & id1 & ")的大话
" Response.write "大话内容:"&rs("about")&"
" Response.write "答案一:"&rs("about1")&"
" Response.write "答案二:"&rs("about2")&"
" Response.write "下注金额为" & rs("paycent") &getcent&"
" Response.write "请选择您认为正确的答案
" Response.write "答案一|" Response.write "答案二
" Response.write "如果选对答案,您将获得大话人赌注95%的金币!" end if rs.close set rs=nothing ydzqconn.close set ydzqconn=nothing conn.close set conn=nothing %>