<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq1.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="kjinc.asp"-->
<%Call head()
Dim p,gettxt,yd,newqi
TP=trim(request.querystring("TP"))
if TP="" or Isnumeric(TP)= false then TP=0
TP=clng(TP)
newqi=trim(request.querystring("newqi"))
if newqi="" or Isnumeric(newqi)=False then
  Call Error("<card title=""出错""><p>期数无效！")
  end if
  dim abctm
set rs=Server.CreateObject("ADODB.Recordset")
sql="select tm from YD_info where qinum='"&abs(newqi)&"'"
rs.open sql,ydzqconn,1,1
if not rs.eof then
abctm=rs("tm")
else
abctm=""
end if
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select * from YD_payCent where id=1",ydzqconn,1,1
if not rs.eof then
tmcent=rs("tmcent")
sxcent=rs("sxcent")
dscent=rs("dscent")
dxcent=rs("dxcent")
bscent=rs("bscent")
wxcent=rs("wxcent")



tc2=rs("tc2")
tc3=rs("tc3")
tc4=rs("tc4")
tc5=rs("tc5")
tc6=rs("tc6")
sc2=rs("sc2")
sc3=rs("sc3")
sc4=rs("sc4")
sc5=rs("sc5")
sc6=rs("sc6")
end if
rs.close
set rs=nothing

if TP=1 then 
gettxt="where typeID=1 and vote='"&abs(abctm)&"' order by id desc"
yd="特码中奖记录"
elseif TP=2 then 
gettxt="where typeID=2 and vote='"&sx(abctm)&"' order by id desc"
yd="生肖中奖记录"
elseif TP=3 then 
gettxt="where typeID=3 and vote='"&bs(abctm)&"' order by id desc"
yd="波色中奖记录"
elseif TP=4 then 
gettxt="where typeID=4 and vote='"&ds(abctm)&"' order by id desc"
yd="单双中奖记录"
elseif TP=5 then 
gettxt="where typeID=5 and vote='"&dx(abctm)&"' order by id desc"
yd="大小中奖记录"
elseif TP=6 then 
gettxt="where typeID=6 and vote='"&wx(abctm)&"' order by id desc"
yd="五行中奖记录"
elseif TP=7 then 
gettxt="where typeID=7 and Instr(vote,"&abs(abctm)&")>0 order by id desc"
yd="特码多选中奖记录"
elseif TP=8 then 
gettxt="where typeID=8 and  Instr(vote,'"&sx(abctm)&"') > 0 order by id desc"
yd="生肖多选中奖记录"

else
gettxt="where typeID=1 and vote='"&abs(abctm)&"' order by id desc"
yd="特码中奖记录"
end If


Call saycarda(""&newqi&yd&"")

set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select * from YD_vote "&gettxt&""
rs.open rsppl,ydzqconn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="winview.asp?newqi="&newqi&"&amp;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&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*tmcent))&"</b>"&getcent&"<br/>"
   elseif TP=2 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*sxcent))&"</b>"&getcent&"<br/>"
     elseif TP=3 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*bscent))&"</b>"&getcent&"<br/>"
   elseif TP=4 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*dscent))&"</b>"&getcent&"<br/>"
     elseif TP=5 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*dxcent))&"</b>"&getcent&"<br/>"
     elseif TP=6 then
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*wxcent))&"</b>"&getcent&"<br/>"
     elseif TP=7 then
if rs("ii")=2 then payjb=tc2
if rs("ii")=3 then payjb=tc3
if rs("ii")=4 then payjb=tc4
if rs("ii")=5 then payjb=tc5
if rs("ii")=6 then payjb=tc6
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>"&rs("fs")&"中奖<b>"&abs(int(rs("payCent")*payjb))&"</b>"&getcent&"<br/>"
     elseif TP=8 then
if rs("ii")=2 then payjb=sc2
if rs("ii")=3 then payjb=sc3
if rs("ii")=4 then payjb=sc4
if rs("ii")=5 then payjb=sc5
if rs("ii")=6 then payjb=sc6
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>"&rs("fs")&"中奖<b>"&abs(int(rs("payCent")*payjb))&"</b>"&getcent&"<br/>"

   else
   Response.write "<a href=""../uinfo.asp?id="&rs("userid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&ubb(rs("username"))&"(ID:"&usb(rs("userid"))&")</a>中奖<b>"&abs(int(rs("payCent")*tmcent))&"</b>"&getcent&"<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/>查看:<a href=""winview.asp?newqi="&newqi&"&amp;TP=1&amp;sid="&sid&"&amp;saytk="&saytk&""">特码</a>"&chr(13)
   Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=2&amp;sid="&sid&"&amp;saytk="&saytk&""">生肖</a>"&chr(13)
      Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=3&amp;sid="&sid&"&amp;saytk="&saytk&""">波色</a>"&chr(13)
      Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=4&amp;sid="&sid&"&amp;saytk="&saytk&""">单双</a>"&chr(13)
      Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=5&amp;sid="&sid&"&amp;saytk="&saytk&""">大小</a>"&chr(13)
      Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=6&amp;sid="&sid&"&amp;saytk="&saytk&""">五行</a>"&chr(13)
      Response.write "<br/><a href=""winview.asp?newqi="&newqi&"&amp;TP=7&amp;sid="&sid&"&amp;saytk="&saytk&""">特码多选</a>"&chr(13)
      Response.write "<a href=""winview.asp?newqi="&newqi&"&amp;TP=8&amp;sid="&sid&"&amp;saytk="&saytk&""">生肖多选</a>"&chr(13)
   Response.write "<br/>------------<br/>"
   Response.write "注意：中奖清单只统计特码开奖，平码不统计在内！<br/>"
response.write "<a href=""qlist.asp?sid="&sid&"&amp;saytk="&saytk&""">每期中奖清单</a><br/>"
response.write "<a href=""index.asp?sid="&sid&"&amp;saytk="&saytk&""">返回虚拟投注</a>"
%>
<!--#include file="fanhui.asp"-->
<%call head1()%>