📄 history_data.asp
字号:
<!--#include file="manage/mConn.asp"-->
<!--#include file="manage/mConst.asp"-->
<!--#include file="manage/Number_Info.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
Get_Kithe_Para
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Dim NN
NN=1
Set Rs6=Conn.Execute("select NN from m_Kithe order by ID desc")
If Not Rs6.Eof Then
NN=Rs6("NN")+1
End If
Set Rs6=Conn.Execute("select top 1 tray_time,affice from m_config")
Dim affice,tray_time
If Not Rs6.Eof Then
affice=Rs6("affice")
tray_time=Rs6("tray_time")
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=5000: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
set Count_rs=server.createobject("adodb.recordset")
sql="select order_num,kithe,chilp_time,rake,sort,chilp_types,chilp_value,rate,sum_m,order_num2,result,count_l,l_type,amount from m_chilp where kithe="&(Current_Kithe_Num-1)&" and Member='"&session("SK2User")&"' and banlance='1' order by ID desc"
Count_rs.open sql,conn,1,1
money=0
sum_m=0
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
%>
<%money_sum=0
win_money=0
If Record_Count=-1 Then
Else
For I=StartList To EndList
win_money=win_money+ShowTable(13,I)
money_sum=money_sum+ShowTable(8,I)
Next
End IF%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>history_data</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></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>
<%=affice%>
</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 width=441
height=12> </TD></TR></TBODY></TABLE></TD></TR></TBODY></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="100%" border=1>
<TBODY>
<TR class=tr_title_set_cen>
<TD align=middle width="20%" height=20>日期</TD>
<TD align=middle width="10%" height=20>期数
<TD align=middle width="20%" height=20>下注金额</TD>
<TD align=middle width="20%" height=20>结果</TD><!--<TD width="10%" height="20" align="center">结清
</TD>-->
<TD align=middle height=20>馀额</TD></TR>
<%if money_sum=0 then%>
<TR class=tr_title_set_cen>
<TD align=middle colSpan=6 height=20>目前无帐户历史资料
</TD></TR>
<%else%>
<TR class=list_lef>
<TD align=middle height=15><A
href="view_history.asp"><%if month(show_data(0,0))<10 then
response.Write "0"
end if
response.Write month(show_data(0,0))&"-"
if day(show_data(0,0))<10 then
response.Write "0"
end if
response.Write day(show_data(0,0))&" 星期"
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%></A></TD>
<TD align=middle><%=show_data(1,0)%></TD>
<TD class=list_rig><A
href="view_history.asp"><%=money_sum%></A></TD>
<TD class=list_rig><A
href="view_history.asp"><%=replace(formatnumber(win_money,2,-1),",","")%></A></TD><!--<TD height="15"
class=list_rig>0</TD>-->
<TD class=list_rig height=15><%=replace(formatnumber(win_money,2,-1),",","")%></TD></TR>
<TR class=list_lef>
<TD align=middle height=15>小计</TD>
<TD class=list_rig height=15></TD>
<TD class=list_rig align=right height=15><%=money_sum%></TD>
<TD class=list_rig align=right height=15><%=replace(formatnumber(win_money,2,-1),",","")%></TD><!--<TD height=15 class=list_rig
align="right">0</TD>-->
<TD bgColor=#990000 height=15>
<DIV align=right><FONT
color=#ffffff><%=replace(formatnumber(win_money,2,-1),",","")%></FONT></DIV></TD></TR>
<TR></TR><%end if%></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 + -