您目前共有<%=myjb%><%=getcent%>
<% response.write "【未开投注】
" response.write "全部"&chr(13) response.write "足球"&chr(13) response.write "篮球"&chr(13) response.write "其它
"&chr(13) dim TP TP=request("TP") if TP="" or IsNumeric(TP)=False then TP=0 set rs=Server.CreateObject("ADODB.Recordset") if TP<>0 then sql="select * from YD_voteid where Active=0 and usid="&myid&" and typeID="&TP&" order by ID desc" else sql="select * from YD_voteid where Active=0 and usid="&myid&" order by ID desc" end if rs.open sql,ydzqconn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="ball_n.asp?TP="&TP&"&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 ""&rs("votetxt")&"(未开)
" rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页,共"&Count&"条
跳到该页
" Else Response.write "暂时没有未开投注记录！
" end if rs.close set rs=nothing conn.close set conn=nothing ydzqconn.close set ydzqconn=nothing Response.write "----------------
" response.write "返回球类投注首页" %>