📄 today_wagers.asp
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/sk2.asp"-->
<%
If Session("SK2User")="" Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
End If
If Not Isnumeric(Request("Page")) Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
End If
Get_Kithe_Para
if Kithe_Open=0 then
'Current_Kithe_Num=Current_Kithe_Num-1
end if
Set Rs6=Conn.Execute("select order_num,kithe,chilp_time,rake,sort,chilp_types,chilp_value,rate,sum_m,order_num2 from m_chilp where kithe="&Current_Kithe_Num&" and Member='"&session("SK2User")&"' and banlance='0' order by ID desc")
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=200:Page_Count=1:Record_Count=-1
If Request("Page")="" Then
Page=1
Else
Page=CInt(Request("Page"))
End If
If Not Rs6.Eof Then
Dim ShowTable
ShowTable=Rs6.GetRows(-1)
Record_Count=Ubound(ShowTable,2)
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
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>today_wagers</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="images/client_LT_game.css" type=text/css rel=stylesheet>
<SCRIPT language=JAVASCRIPT>
if(self == top) location = '/';
</SCRIPT>
<META content="MSHTML 6.00.2900.2096" name=GENERATOR>
<style type="text/css">
<!--
.style3 {color: #0000cc}
-->
</style>
</HEAD>
<BODY oncontextmenu=window.event.returnValue=false bgColor=#000000 leftMargin=0
topMargin=0>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=546 border=0>
<TR>
<TD vAlign=top bgColor=#e5eaee>
<TABLE height=96 cellSpacing=0 cellPadding=0 width="96%" align=center
border=0>
<TR>
<TD colSpan=3 height="100%">
<TABLE cellSpacing=1 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=2 width="100%"
align=left border=0>
<TBODY>
<TR>
<TD class=td_02 width="99%" bgColor=#cccccc>
<MARQUEE class=td_02 scrollDelay=120><SPAN
id=Msg><%=Current_affice%>
</SPAN></MARQUEE></FONT></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE></TD></TR></TBODY>
<TBODY>
<TR>
<TD height=20>
<TABLE class=table_banner cellSpacing=0 cellPadding=0
width=500 border=0>
<TBODY>
<TR>
<TD>
<TABLE class=banner_set height=24 cellSpacing=0
cellPadding=0 width="100%" border=0>
<TBODY>
<FORM name=myFORM action="" method=get>
<TR>
<TD width=107 height=12>下注状况</TD>
<TD align=right width=441 height=12>总页数: <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>
/ <%=Page_Count%> 页
</TD></TR></FORM></TABLE></TD></TR></TABLE></TD></TR></TBODY></TABLE>
<TABLE class=table_title_line cellSpacing=0 cellPadding=0 width=500
border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE width="500" border=1>
<TBODY>
<TR class=tr_title_set_cen align=middle>
<TD colSpan=5 height=20>日期: <%=date()%></TD></TR>
<TR bgcolor="#E5EAEE">
<TD height=20 align=middle><div align="center">下注单号</div></TD>
<TD width=80 height=20 align=middle><div align="center">方式</div></TD>
<TD height=20 align=middle><div align="center">内容</div></TD>
<TD width=55 height=20 align=middle><div align="center">下注金额</div></TD>
<TD width=55 height=20 align=middle><div align="center">可蠃金额</div></TD></TR>
<%money_sum=0
win_money=0
If Record_Count=-1 Then%>
<%
Else
For I=StartList To EndList
if ShowTable(4,I)="正码过关" then
show1=split(ShowTable(5,I),",")
show2=split(ShowTable(6,I),",")
z=ubound(show1)%>
<TR bgcolor="#E5EAEE" align=right>
<TD align=center bgcolor="#E5EAEE"><div align="center"><FONT
color=#0000cc><%=ShowTable(0,I)%></FONT> <%=FormatDateTime(ShowTable(2,I),vbLongTime)%></div></TD>
<TD align=center><div align="center"></div>
<div align="center"><%=z%>串一<%=ShowTable(4,I)%></div></TD>
<TD>
<div align="right">
<%k=0
for j=0 to ubound(show1)-1
'rate1=rate1*cint(show3(j))
'response.Write show1(j)
%>
第<%=ShowTable(1,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%>
<%=ShowTable(9,I)%>
</div></TD>
<TD><font color=red><%=ShowTable(8,I)%></font></TD>
<TD><%=int(ShowTable(8,I)*ShowTable(7,I)-ShowTable(8,I))%></TD></TR>
<%money_sum=money_sum+ShowTable(8,I)
win_money=win_money+int(ShowTable(8,I)*ShowTable(7,I)-ShowTable(8,I))
else%>
<TR bgcolor="#E5EAEE" align=right>
<TD height="23" align=center><div align="center"><FONT
color=#0000cc><%=ShowTable(0,I)%></FONT> <%=FormatDateTime(ShowTable(2,I),vbLongTime)%></div></TD>
<TD align=center><div align="center"></div>
<div align="center"><%if ShowTable(4,I)="连码" then
response.Write ShowTable(5,I)
else
if ShowTable(6,I)="总单" or ShowTable(6,I)="总双" or ShowTable(6,I)="总大" or ShowTable(6,I)="总小" then
if ShowTable(6,I)="总单" or ShowTable(6,I)="总双" then
response.write "总和:单双"
else
response.write "总和:大小"
end if
else
response.Write ShowTable(4,I)
end if
end if
if ShowTable(6,I)="合单" or ShowTable(6,I)="合双" then
response.write "合数单双"
end if
if ShowTable(6,I)="单" or ShowTable(6,I)="双" then
response.write ":单双"
end if
if ShowTable(6,I)="大" or ShowTable(6,I)="小" or ShowTable(6,I)="合大" or ShowTable(6,I)="合小" then
response.write ":大小"
end if
if ShowTable(4,I)="正码1-6" and (ShowTable(6,I)="红波" or ShowTable(6,I)="蓝波" or ShowTable(6,I)="绿波") then
response.write ":色波"
end if
if ShowTable(4,I)="特别号" and (ShowTable(6,I)="红波" or ShowTable(6,I)="蓝波" or ShowTable(6,I)="绿波") then
response.write ":色波"
end if%></div></TD>
<TD><div align="right">第<%=ShowTable(1,I)%>期 <SPAN
style="COLOR: rgb(188,0,0)">
<%if ShowTable(4,I)="连码" then
response.Write ShowTable(4,I)&" "
response.Write ShowTable(5,I)
if ShowTable(5,I)="三中二" then
response.write "之中二"
end if
if ShowTable(5,I)="二中特" then
response.write "之中特"
end if
else
if ShowTable(6,I)="总单" or ShowTable(6,I)="总双" or ShowTable(6,I)="总大" or ShowTable(6,I)="总小" then
response.Write "总和:"&mid(ShowTable(6,I),2,3)
else
response.Write ShowTable(5,I)&" "&ShowTable(6,I)
end if
end if
%>
</SPAN> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=ShowTable(7,I)%></B>
<%if ShowTable(4,I)="连码" then
response.Write "<br><font color=#00000000>"&ShowTable(6,I)&"</font>"
end if%>
</SPAN><br>
<%=ShowTable(9,I)%>
</div></TD>
<TD><font color=red><%=ShowTable(8,I)%></font></TD>
<TD><%=int(ShowTable(8,I)*ShowTable(7,I)-ShowTable(8,I))%></TD></TR>
<%money_sum=money_sum+ShowTable(8,I)
win_money=win_money+int(ShowTable(8,I)*ShowTable(7,I)-ShowTable(8,I))
end if%>
<%
Next
End IF%>
<%SQL6="SELECT sum_m = isnull(SUM(sum_m), 0),winmoney = isnull(SUM(sum_m*(rate-1)), 0) FROM m_chilp WHERE member='"&session("SK2user")&"' and kithe='"&Current_Kithe_Num&"'"
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
Showmember=Rs6.GetRows(-1)
end if%>
<TR class=list_rig>
<TD height=20> </TD>
<TD height=20> </TD>
<TD align=right height=20><%=Record_Count+1%></TD>
<TD align=right height=20><%=Showmember(0,0)%></TD>
<TD align=right height=20><FONT
color=#ff0000><%=win_money%></FONT></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -