📄 view_history.asp
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/sk2.asp"-->
<!--#include file="Islogin.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
Set Rs6=Conn.Execute("Select top 1 ND,NN from m_Kithe where NN="&(Current_Kithe_Num-1)&"")
if not Rs6.eof then
show_data=Rs6.GetRows(1)
end if
Set Rs6=Conn.Execute("select order_num,kithe,chilp_time,rake,sort,chilp_types,chilp_value,rate,sum_m,order_num2,result,count_l,l_type,result_money = CASE WHEN banlance = '0' or amount='和局' THEN 0 ELSE (CASE WHEN result = 0 THEN - sum_m* (1-rake / 100) WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l * rate * result - sum_m * (1 - rake / 100) ELSE sum_m * (rate - 1 + rake / 100) END) END) END from m_chilp where kithe="&(Current_Kithe_Num-1)&" and Member='"&session("SK2User")&"' and banlance='1' order by ID desc")
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=1000: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>history_view</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.2800.1226" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</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>
<TBODY>
<TR>
<TD vAlign=top bgColor=#e5eaee>
<TABLE height=96 cellSpacing=0 cellPadding=0 width="96%" align=center
border=0>
<TBODY>
<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><FONT
size=2>
<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>
<TR>
<TD width=107 height=12>六合彩历史帐户</TD>
<TD align=right width=441 height=12><A
href="javascript:history.go(%20-1%20);"><FONT
color=#000066>回上一页
</FONT></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=1>
<TBODY>
<TR class=tr_title_set_cen>
<TD class=list_league colSpan=5>期数: <%=show_data(1,0)%>
日期: <%=formatdatetime(show_data(0,0),2)%> - 星期<%select case weekday(show_data(0,0))
case "1"
response.Write "日"
case "2"
response.Write "一"
case "3"
response.Write "二"
case "4"
response.Write "三"
case "5"
response.Write "四"
case "6"
response.Write "五"
case "7"
response.Write "六"
end select%> </TD></TR>
<TR>
<TD align=middle width=85>单号</TD>
<TD align=middle width=95>方式 </TD>
<TD width="197" align=middle>内容</TD>
<TD align=middle width=55>下注金额</TD>
<TD align=middle width=55>结果</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="#D1DADF" align=right>
<TD 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"><%=z%>串一<%=ShowTable(4,I)%></div></TD>
<TD>
<div align="right">
<%k=0
for j=0 to ubound(show1)-1
%>
第<%=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><%
response.Write replace(formatnumber(ShowTable(13,I),2,-1),",","")
win_money=win_money+ShowTable(13,I)%></TD>
</TR>
<%money_sum=money_sum+ShowTable(8,I)
else%>
<TR bgcolor="#D1DADF" 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 "之"
response.Write ShowTable(12,I)
end if
if ShowTable(5,I)="二中特" then
response.write "之"
response.Write ShowTable(12,I)
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><%
response.Write replace(formatnumber(ShowTable(13,I),2,-1),",","")
win_money=win_money+ShowTable(13,I)%></TD></TR>
<%money_sum=money_sum+ShowTable(8,I)
end if%>
<%
Next
End IF%>
<%SQL6="SELECT sum_m = isnull(SUM(sum_m), 0), mem_result = isnull(SUM(mem_result), 0),mem_ds = isnull(SUM(mem_ds), 0), ag_ds = isnull(SUM(ag_ds), 0),zong_ds = isnull(SUM(zong_ds), 0), re = COUNT(*) FROM (SELECT sum_m,mem_ds = CASE WHEN banlance = 0 or amount='和局' THEN 0 ELSE sum_m * rake / 100 END, mem_result = CASE WHEN banlance = 0 THEN 0 ELSE CASE WHEN result = 0 THEN - sum_m WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l* rate * result - sum_m ELSE sum_m * (rate - 1) END) END END, ag_ds = CASE WHEN banlance = 0 or amount='和局' THEN 0 ELSE sum_m * dai_ds / 100 END, zong_ds = CASE WHEN banlance = 0 or amount='和局' THEN 0 ELSE sum_m * zong_ds / 100 END FROM m_chilp WHERE kithe='"&Current_Kithe_Num-1&"' and banlance=1 AND member = '"&session("SK2user")&"' ) i "
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
Showmember=Rs6.GetRows(-1)
end if%>
<TR>
<TD align=right colSpan=3><%=Record_Count+1%></TD>
<TD class=list_rig bgColor=#cccccc><%=Showmember(0,0)%></TD>
<TD align=right bgColor=#990000><span class="style1"><%=replace(formatnumber(win_money,2,-1),",","")%></span></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 + -