history_data.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 185 行
ASP
185 行
<!--#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
%>
<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><style type="text/css">
<!--
body,td,th {
color: #FF0000;
}
-->
</style></HEAD>
<BODY oncontextmenu=window.event.returnValue=false bgColor=#000000 leftMargin=0
topMargin=0>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top bgColor=#FFFFFF>
<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=100% border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=5></TD></TR>
<TR>
<TD>
<TABLE width="100%" border=0
align=left cellPadding=2 cellSpacing=1 bgcolor="cccccc">
<TBODY>
<TR>
<TD class=td_02 width="99%" bgColor=#FFFFCC><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=100% 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=100%
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="27%" height=20>日期</TD>
<TD align=middle width="18%" height=20>期数
<TD align=middle width="22%" height=20>下注金额</TD>
<!--<TD width="10%" height="20" align="center">结清
</TD>-->
<TD width="33%" height=20 align=middle>结果</TD>
</TR>
<% l1=0
l2=0
Set Rs8=Conn.Execute("Select top 10 ND,NN from m_Kithe where NN<>"&(Current_Kithe_Num)&" order by id desc")
i=0
do while not rs8.eof
SQL6="SELECT sum_m = isnull(SUM(sum_m), 0), mem_result = isnull(SUM(mem_result), 0), mem_ds = isnull(Sum(sum_m * mem_ds/100), 0),re = COUNT(*), zong_result = isnull(Sum(sum_m * zong_zc/10), 0), zong_ds = isnull(Sum(sum_m * zong_ds/100), 0), mem_result1 = isnull(SUM(sum_m * zong_zc/10-mem_result1), 0), mem_result2 = isnull(SUM(sum_m * guan_zc/10-mem_resultl2), 0), guan_ds = isnull(Sum(sum_m * guan_ds/100), 0), dagu_result = isnull(Sum(sum_m * dagu_zc/10), 0) FROM (SELECT sum_m, mem_ds = IsNull(Abs(rake),0), mem_result = CASE WHEN amount = '和局' or 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,mem_result1 = CASE WHEN amount = '和局' or banlance = 0 THEN 0 ELSE CASE WHEN result = 0 THEN 0 WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l * zong_zc/10* rate * result - sum_m ELSE sum_m* zong_zc/10 * (rate - 1) END) END END,mem_resultl2 = CASE WHEN amount = '和局' or banlance = 0 THEN 0 ELSE CASE WHEN result = 0 THEN 0 WHEN result > 0 THEN (CASE WHEN sort = '连码' THEN sum_m / count_l * guan_zc/10* rate * result - sum_m ELSE sum_m* guan_zc/10 * (rate - 1) END) END END, dai_zc = isNull(dai_zc,0), zong_zc = isNull(zong_zc,0), guan_zc = isNull(guan_zc,0), dagu_zc = isNull(dagu_zc,0), dai_ds = IsNull(Abs(dai_ds),0), zong_ds = isNull(Abs(zong_ds),0), guan_ds = IsNull(Abs(guan_ds),0), total_guan_zc=sum_m*guan_zc/10 FROM m_chilp WHERE kithe="&rs8("NN")&" and Member='"&session("SK2User")&"' "
SQL6=SQL6 & sqlc &" ) i "
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
'dai_ds1=rs6("dai_ds")
Showzong=Rs6.GetRows(1)
end if
%>
<TR class=list_lef>
<TD height=15 align=middle bgcolor="#FFFFCC"><A
href="view_history.asp?id=<%=rs8("NN")%>">
<%if month(rs8("ND"))<10 then
response.Write "0"
end if
response.Write month(rs8("ND"))&"-"
if day(rs8("ND"))<10 then
response.Write "0"
end if
response.Write day(rs8("ND"))&" 星期"
select case weekday(rs8("ND"))
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 bgcolor="#FFFFCC"><%=rs8("NN")%></TD>
<TD bgcolor="#FFFFCC" ><%if replace(formatnumber(Showzong(0,0),2,-1),",","")=0 then%>
0
<%else%><A
href="view_history.asp?id=<%=rs8("NN")%>"><%=replace(formatnumber(Showzong(0,0),2,-1),",","")%></A><%end if%></TD>
<!--<TD height="15"
class=list_rig>0</TD>-->
<TD height=15 bgcolor="#FFFFCC" ><%=replace(formatnumber(Showzong(1,0)+Showzong(2,0),2,-1),",","")%></TD></TR>
<%i=i+1
l1=l1+replace(formatnumber(Showzong(0,0),2,-1),",","")
l2=l2+replace(formatnumber(Showzong(1,0)+Showzong(2,0),2,-1),",","")
rs8.movenext
loop%>
<TR class=list_lef>
<TD height=15 align=middle bgcolor="#FFFF99">小计</TD>
<TD height=15 bgcolor="#FFFF99" > </TD>
<TD height=15 align=right bgcolor="#FFFF99" ><%=l1%></TD>
<!--<TD height=15 class=list_rig
align="right">0</TD>-->
<TD bgColor=#990000 height=15>
<DIV align=right><FONT
color=#ffffff><%=l2%></FONT></DIV></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?