<!--#include file="../inc.asp"-->
<!--#include file="../ydzq.asp"-->
<!--#include file="conn.asp"-->
<%'=============================
call head()
'该说明不会影响您的网站浏览速度和在您的网站中出现!
'谢谢!!!!!!!
'文件来源:龙门网WAP建站交友
'文件技术支持:WAP龙门网
'更多海量免费程序请访问
'wap.8ggg.net(龙门网WAP建站欢迎您!~~~
'==============================
%>
<%
dim id
id=request("id")
if id="" or Isnumeric(id)=False then
id=0
end if 
dim paylu
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select paylu,pcent from appleadmin where id=1",ydzqconn,1,1
if not rs.eof then
paylu=rs(0)
pcent=rs(1)
end if
rs.close
set rs=nothing
call saycardd("苹果机获奖记录")

Response.write "第"&ID&"期获奖记录<br/>"


set rs=Server.CreateObject("ADODB.Recordset")
rsppl="select  payusid,paytype,appleID  from applelist where appleid="&id&" and winer=1 group by payusid,paytype,appleID"
rs.open rsppl,ydzqconn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="applewinlist.asp?sid="&sid&"&amp;saytk="&saytk&"&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
	dim rs2,V_appletext
 Set rs2 = Server.CreateObject("ADODB.Recordset")
 rs2.open"Select appletext from apple Where  id = "&rs("appleID")&" ORDER BY ID",ydzqconn,1,1

  if not rs2.eof then
 V_appletext=rs2(0)
 end if
 rs2.close
 set rs2=nothing
	
	dim paycents,rs1
  set rs1=ydzqconn.execute("Select sum(paycent) as paycents from applelist where paytype='"&rs("paytype")&"' and appleid="&rs("appleID")&" and payusid="&rs("payusid"))
  paycents=rs1("paycents")
  rs1.close
  set rs1=nothing

  
dim lutype,paycentall
if InStr(V_appletext,"[小]")>0 then
 lutype=2
 else
 lutype=LuApple(V_appletext)
end if

paycentall=abs(int(paycents*lutype))

   if newappleID<>rs("appleid") then
   Response.write "-----------------<br/>第"&rs("appleid")&"期开奖:<b>"&V_appletext&"</b><br/>"
   end if
Response.write "<a href=""../uinfo.asp?id="&rs("payusid")&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&uname(rs("payusid"))&"</a>"

Response.write "压"&rs("paytype")&""&paycents/pcent&"注,赢"&paycentall&getcent&"<br/>"

newappleID=rs("appleid")
	rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页"
if saytk=1 then
response.write "<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
end if
Else
   Response.write "暂无相关记录！<br/>"
end if
rs.close
set rs=nothing
ydzqconn.close
set ydzqconn=nothing
conn.close
set conn=nothing
%>注意：赌场每次从赢家奖金抽水<%=paylu%>%作为赌场佣金<br/>
-------------
<!--#include file="fanhui.asp"-->
<%call headsay()%>