?? show_result.asp
字號:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
Get_Kithe_Para
dim wtype,spnum
if request("wtype")<>"" or request("spnum")<>"" then
wtype=cstr(request("wtype"))
spnum=request("spnum")
session("wtype")=cstr(request("wtype"))
session("spnum")=cstr(request("spnum"))
else
wtype=session("wtype")
spnum=session("spnum")
end if
if request("spnum1")<>"" and request("spnum2")<>"" then
spnum1=(request("spnum1"))
spnum2=request("spnum2")
session("spnum1")=cstr(request("spnum1"))
session("spnum2")=cstr(request("spnum2"))
else
spnum1=session("spnum1")
spnum2=session("spnum2")
end if
chilp_type2=""
select case wtype
case "1"
chilp_type="特別號"
select case trim(cstr(spnum))
case "50"
spnum="單"
case "51"
spnum="雙"
case "52"
spnum="大"
case "53"
spnum="小"
case "54"
spnum="合單"
case "55"
spnum="合雙"
case else
if cint(spnum1)<10 then
spnum1="0"&spnum1
end if
if cint(spnum2)<10 then
spnum2="0"&spnum2
end if
end select
case "2"
chilp_type="正碼"
select case trim(cstr(spnum))
case "50"
spnum="總單"
case "51"
spnum="總雙"
case "52"
spnum="總大"
case "53"
spnum="總小"
case else
if cint(spnum1)<10 then
spnum1="0"&spnum1
end if
if cint(spnum2)<10 then
spnum2="0"&spnum2
end if
end select
case "3"
chilp_type="正碼1-6"
select case cstr(trim(spnum))
case "1"
chilp_type2="正碼1"
case "2"
chilp_type2="正碼2"
case "3"
chilp_type2="正碼3"
case "4"
chilp_type2="正碼4"
case "5"
chilp_type2="正碼5"
case "6"
chilp_type2="正碼6"
end select
case "4"
chilp_type="連碼"
select case trim(cstr(spnum))
case "1"
spnum="三全中"
case "2"
spnum="三中二"
case "3"
spnum="二全中"
case "4"
spnum="二中特"
case "5"
spnum="特串"
end select
case "5"
chilp_type="正碼過關(guān)"
case "6"
chilp_type="十二生肖"
select case trim(cstr(spnum))
case "1"
spnum="鼠"
case "2"
spnum="牛"
case "3"
spnum="虎"
case "4"
spnum="兔"
case "5"
spnum="龍"
case "6"
spnum="蛇"
case "7"
spnum="馬"
case "8"
spnum="羊"
case "9"
spnum="猴"
case "10"
spnum="雞"
case "11"
spnum="狗"
case "12"
spnum="豬"
end select
case "7"
chilp_type="一肖"
select case trim(cstr(spnum))
case "1"
spnum="鼠"
case "2"
spnum="牛"
case "3"
spnum="虎"
case "4"
spnum="兔"
case "5"
spnum="龍"
case "6"
spnum="蛇"
case "7"
spnum="馬"
case "8"
spnum="羊"
case "9"
spnum="猴"
case "10"
spnum="雞"
case "11"
spnum="狗"
case "12"
spnum="豬"
end select
case "8"
chilp_type="色波"
select case trim(cstr(spnum))
case "1"
spnum="紅波"
case "2"
spnum="綠波"
case "3"
spnum="藍(lán)波"
end select
case else
'response.redirect "index_submain.asp"
end select
'response.write "Select ID,chilp_time,memed,member,rake,order_num,sort,Kithe,chilp_types,chilp_value,rate,sum_m,dai_zc,zong_zc,Agent_first From m_chilp where sort='"&chilp_type&"' and chilp_value='"&spnum&"' Order By ID Desc"
SQL6="Select ID,chilp_time,memed,member,rake,order_num,sort,Kithe,chilp_types,chilp_value,rate,sum_m,dai_zc,zong_zc,Agent_first,Agent_second From m_chilp where"
if chilp_type="正碼1-6" then
SQL6=SQL6&" chilp_types='"&chilp_type2&"'"
else
SQL6=SQL6&" sort='"&chilp_type&"'"
end if
if request("spnum1")<>"" and request("spnum2")<>"" then
SQL6=SQL6&" and chilp_value>'"&spnum1&"' and chilp_value<'"&spnum2&"'"
else
if spnum="三全中" or spnum="三中二" or spnum="二全中" or spnum="二中特" or spnum="特串" then
SQL6=SQL6&" and chilp_types='"&spnum&"'"
else
if chilp_type<>"正碼1-6" and spnum<>"" then
SQL6=SQL6&" and chilp_value='"&spnum&"'"
end if
end if
end if
'if request("Ashow")="" or request("Ashow")=0 then
'select case trim(request("rtype"))
'case "0"
'SQL6=SQL6&" and memed='a'"
'case "1"
'SQL6=SQL6&" and memed='b'"
'case "2"
'SQL6=SQL6&" and memed='c'"
'end select
'end if
SQL6=SQL6&" and Kithe='"&(Current_Kithe_num-1)&"' and result>0"
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
showTable=Rs6.GetRows(-1)
sum_money=1
Kithe_Sum=Ubound(showTable,2)
else
sum_money=0
End If
'Kithe_Sum=Ubound(showTable,2)
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=150:Page_Count=1:Record_Count=Kithe_Sum
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
If (Record_Count+1)-DiffList<=0 Then
Page_Count=1
Else
Page_Count=(Record_Count+1)\DiffList
If (Record_Count+1) Mod DiffList >0 Then
Page_Count=Page_Count+1
End If
End If
If Page<=0 Then
Page=1
End If
If Page>Page_Count Then
Page=Page_Count
End If
If Page=1 Then
StartList=0
EndList=DiffList-1
Else
StartList=(Page-1)*DiffList
EndList=DiffList*Page-1
End If
If StartList>Record_Count Then
StartList=Record_Count
End If
If EndList>Record_Count Then
EndList=Record_Count
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>reports_real</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="../images/control_main.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.2800.1476" name=GENERATOR>
<style type="text/css">
<!--
.style2 {color: #CC0000}
.style3 {color: #0000FF}
.style4 {color: #FF0000}
.style6 {color: #CC0000; font-weight: bold; }
-->
</style>
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<FORM name=myFORM action="sub_main.asp" method=post>
<input type=hidden name=wtype value=<%=cstr(request("wtype"))%>>
<input type=hidden name=spnum value=<%=cstr(request("spnum"))%>>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_bg height=23> 管理: <FONT
color=#cc0000>六合彩贏的注單</FONT> --下注管道:網(wǎng)路下注--總頁數(shù)
<SELECT class=select_lef onchange="window.location = this.options[this.selectedIndex].value;">
<%For I=1 To Page_Count
Response.Write ("<Option Value=?Page="&I&"")
If Page=I Then
Response.Write (" selected ")
End If
Response.Write (">"&I&"</Option>")
Next
%>
</SELECT><SPAN class=td_c_12_ste>/ <%=Page_Count%> 頁</SPAN> --<A href="javascript:history.go(-1)">回上一頁</A> </TD></TR>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE class=ra_listbet_rp_tab cellSpacing=1 cellPadding=0 width=780 border=0>
<TBODY>
<TR class=ra_listbet_rp_title>
<TD width=60><div align="center">時間</div></TD>
<TD width=80><div align="center">收中比</div></TD>
<TD width=140><div align="center">單號</div></TD>
<TD><div align="center">內(nèi)容</div></TD>
<TD align=right width=110><div align="center">金額</div></TD>
<TD align=right width=110><div align="center">代理商</div></TD>
<TD align=right width=110><div align="center">總代理</div></TD>
</TR>
<%If Kithe_Sum>-1 and sum_money=1 Then%>
<%For I=StartList To EndList%>
<TR bgcolor="#FFFFFF">
<TD ><div align="center"><%=formatdatetime(showTable(1,I),3)%></div></TD>
<TD ><div align="center"><%=ucase(showTable(2,I))&" "&showTable(3,I)%><span class="style2"> <%=showTable(4,I)%></span></div></TD>
<TD ><div align="center"><span class="style3"><%=showTable(5,I)&" "%></span><%=showTable(6,I)%></div></TD>
<TD align=right >
<div align="right">
<%if showTable(6,I)="正碼過關(guān)" then
show1=split(showTable(8,I),",")
show2=split(showTable(9,I),",")
z=ubound(show1)
end if%>
<%if trim(showTable(6,I))="正碼過關(guān)" then%>
<%k=0
for j=0 to ubound(show1)-1
%>
第<%=showTable(7,I)%>期 <SPAN
style="COLOR: rgb(188,0,0)"><%=show1(j)%> <%=Show2(k)%></SPAN> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=Show2(k+1)%></B></SPAN><br>
<% k=k+2
next%>
<%else%>
第<%=showTable(7,I)%>期<span class="style4"><%=showTable(8,I)%> <%=showTable(9,I)%></span>@<span class="style6"> <%=showTable(10,I)%></span>
<%end if%>
</div></TD><TD align=right ><div align="center"><%=showTable(11,I)%></div></TD>
<TD align=right ><div align="center"><%=showTable(14,I)%></div></TD>
<TD align=right ><div align="center"><%=showTable(15,I)%></div></TD>
</TR>
<%Next%>
<%xzsum=0
for J=0 to Record_Count
xzsum=xzsum+showTable(11,J)
'response.write showTable(11,J)&"<br>"
next%>
<TR>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_total align=right><div align="center"><%=Record_Count+1%></div></TD>
<TD class=ra_listbet_total align=right><div align="center"><%=xzsum%></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
</TR>
<%else%>
<%end if%>
</TBODY>
</TABLE>
</FORM></BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -