<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<%Dim p,gettxt,yd
TP=trim(request.querystring("TP"))
if TP="" or Isnumeric(TP)= false then TP=0
TP=clng(TP)
if TP=1 then 
gettxt=" where tmnum>0 order by tmnum desc"
yd="特码高手"
elseif TP=2 then 
gettxt=" where sxnum>0 order by sxnum desc"
yd="生肖高手"
elseif TP=3 then 
gettxt=" where bsnum>0 order by bsnum desc"
yd="波色高手"
elseif TP=4 then 
gettxt=" where dsnum>0 order by dsnum desc"
yd="单双高手"
elseif TP=5 then 
gettxt=" where dxnum>0 order by dxnum desc"
yd="大小高手"
elseif TP=6 then 
gettxt=" where wxnum>0 order by wxnum desc"
yd="五行高手"
elseif TP=7 then 
gettxt=" where votenum>0 order by votenum desc"
yd="中奖强人"
elseif TP=8 then 
gettxt=" where jbnum>0 order by jbnum desc"
yd="赚币强人"
elseif TP=9 then 
gettxt=" where pmnum>0 order by pmnum desc"
yd="平码多选高手"
elseif TP=10 then 
gettxt=" where ptnum>0 order by ptnum desc"
yd="平特肖高手"
elseif TP=11 then 
gettxt=" where dpnum>0 order by dpnum desc"
yd="独平高手"
elseif TP=12 then 
gettxt=" where dwnum>0 order by dwnum desc"
yd="独尾高手"
else
gettxt=" where tmnum>0 order by tmnum asc"
yd="特码高手"
end If
Call head()
Call saycarda(""&yd&"")

set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from YD_plist "&gettxt&""
rs.open rsppl,ydzqconn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="plist.asp?TP="&TP&"&amp;sid="&sid&"&amp;"
	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&"名]."

   if TP=1 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("tmnum")&"</b>注<br/>"
   elseif TP=2 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("sxnum")&"</b>注<br/>"
     elseif TP=3 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("bsnum")&"</b>注<br/>"
   elseif TP=4 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("dsnum")&"</b>注<br/>"
     elseif TP=5 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("dxnum")&"</b>注<br/>"
     elseif TP=6 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("wxnum")&"</b>注<br/>"
        elseif TP=7 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>共中<b>"&rs("votenum")&"</b>次<br/>"
        elseif TP=8 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>共赚<b>"&rs("jbnum")&"</b>"&getcent&"<br/>"
     elseif TP=9 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("pmnum")&"</b>注<br/>"
     elseif TP=10 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("ptnum")&"</b>注<br/>"
        elseif TP=11 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>共奖<b>"&rs("dpnum")&"</b>注<br/>"
        elseif TP=12 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>共奖<b>"&rs("dwnum")&"</b>注<br/>"
   else
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&rs("tmnum")&"</b>注<br/>"
  end if
	rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下一页</a>"&chr(13)
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上一页</a>"&chr(13)

response.write "<br/>("&page&"/"&pagecount&")共"&count&"人"
	if pagecount>1 then response.write "<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""2""/><a href="""&gopage&"page=$(page)"">页</a>"
Else
response.write"暂时没有记录！"
end if
rs.close
set rs=nothing
conn.close
set conn=Nothing
ydzqconn.close
set ydzqconn=Nothing
   Response.write "<br/>------------<br/>"
response.write "<a href=""index.asp?sid="&sid&""">返回虚拟投注</a>"
%>
<!--#include file="fanhui.asp"-->
<%Call head2()%>