<% if Instr(","&ballAdmin&",",","&myid&",") > 0 then else call error("权限不足！") end if response.write "【投注列表管理】
" response.write "全部"&chr(13) response.write "足球"&chr(13) response.write "篮球"&chr(13) response.write "其它
"&chr(13) dim TP TP=trim(Request.Querystring("TP")) if TP="" or Isnumeric(TP)=False then TP=0 TP=abs(TP) dim rs1 set rs1=Server.CreateObject("ADODB.Recordset") if TP<>0 then rs1.open"select * from YD_vote where balltype="&TP&" order by id desc",ydzqconn,1,1 else rs1.open"select * from YD_vote order by id desc ",ydzqconn,1,1 end if If not rs1.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="admin_ball.asp?TP="&TP&"&sid="&sid&"&" Count=rs1.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 rs1.move(pagesize*(page-1)) For i=1 To PageSize If rs1.eof Then Exit For Response.Write "[管理] " Response.write ""&i+(page-1)*PageSize&"." response.write"" if rs1("active")=1 then response.write"＾" end if response.write fordate2(rs1("balltime1"))&" " response.write""&rs1("ballvote1")&"VS"&rs1("ballvote2")&"" if rs1("ballresult1")<>"" and rs1("ballresult2")<>"" then response.write "(结果"&rs1("ballresult1")&":"&rs1("ballresult2")&")" Response.Write "[编辑] " else Response.Write "[开出] " end if 'Response.Write "编辑投注" response.write"
" rs1.moveNext Next if page-pagecount<0 then response.write "下一页"&chr(13) if page>1 then response.write "上一页"&chr(13) if pagecount>1 then response.write"
" end if rs1.close set rs1=nothing Response.Write "【常规管理】搜索
" Response.Write "投注设置 " Response.Write "增加投注
" Response.Write "设置管理 " Response.Write "高级管理
" Response.write "返回球类投注中心
" Response.write "地盘>>社区首页
(c) "&Request.ServerVariables("SERVER_NAME")&"["&String(2-Len(hour(now)),"0") & hour(now) &":"&String(2-len(minute(now)),"0") & minute(now)&"]" %>