<% dim gettxt,ids,num ids=request("ids") num=request("num") if ids="" or Isnumeric(ids)=False then call error("ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id from users where id=" & ids &" order by id desc",conn,1,1 if rs.eof then rs.close set rs=nothing call error("请输入正确的会员ID！") end if rs.close set rs=nothing if num="" then call error("期数无效！") end if gettxt="where userid="&ids&" and qinum='"&num&"'" set rs=Server.CreateObject("ADODB.Recordset") rsppl="select * from YD_vote "&gettxt&" order by id desc" rs.open rsppl,ydzqconn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="votelist.asp?ids="&ids&"&num="&num&"&sid="&sid&"&" Count=rs.recordcount page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For 'Response.write ""&i+(page-1)*PageSize&"." dim apptext if rs("typeID")=1 then apptext="特码投注" elseif rs("typeID")=2 then apptext="生肖投注" elseif rs("typeID")=3 then apptext="波色投注" elseif rs("typeID")=4 then apptext="单双投注" elseif rs("typeID")=5 then apptext="大小投注" elseif rs("typeID")=6 then apptext="五行投注" elseif rs("typeID")=7 then apptext="特码多选投注" elseif rs("typeID")=8 then apptext="生肖多选投注" elseif rs("typeID")=9 then apptext="平特肖投注" elseif rs("typeID")=10 then apptext="独平投注" elseif rs("typeID")=11 then apptext="独尾投注" elseif rs("typeID")=12 then apptext="平码二选投注" elseif rs("typeID")=13 then apptext="平码三选投注" end if if rs("typeID")=11 then Response.write "[第"&ubb(rs("qinum"))&"期]"&apptext&""&rs("payCent")&""&getcent&"到"&rs("vote")&"尾("&fordate(rs("votetime"))&")
" elseif rs("typeID")=12 then Response.write "[第"&ubb(rs("qinum"))&"期]"&apptext&""&rs("payCent")&""&getcent&"到"&rs("vote1")&","&rs("vote2")&"("&fordate(rs("votetime"))&")
" elseif rs("typeID")=13 then Response.write "[第"&ubb(rs("qinum"))&"期]"&apptext&""&rs("payCent")&""&getcent&"到"&rs("vote1")&","&rs("vote2")&","&rs("vote3")&"("&fordate(rs("votetime"))&")
" else Response.write "[第"&ubb(rs("qinum"))&"期]"&apptext&""&rs("payCent")&""&getcent&"到"&rs("vote")&"("&fordate(rs("votetime"))&")
" end if rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页跳转
" Else Response.write "暂时没有！
" end if rs.close set rs=nothing conn.close set conn=Nothing ydzqconn.close set ydzqconn=Nothing response.write "--------------
" response.write "[投注管理]" %>