📄 result_join2.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
Response.End
End If
show1=0
Get_Kithe_Para
Show_Kithe
SQL6="SELECT order_num, Kithe, Member, chilp_time, rake, sort, chilp_types, chilp_value, rate,sum_m, order_num2, result, count_l, l_type, banlance,result_money = CASE WHEN banlance = '0' 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,ID,result,amount FROM m_chilp WHERE Kithe='"&Current_kithe_num-1&"' and sort='正码过关'"
SQL6=SQL6&" order by ID desc"
'response.write SQL6
Set Rs6=Conn.Execute(SQL6)
'Set Rs6=Conn.Execute("Select Agent_first from m_chilp where Agent_first is not null group by Agent_first")
If Not Rs6.Eof Then
show1=1
Member_info=Rs6.GetRows(-1)
Kithe_Sum=Ubound(Member_info,2)
End If
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=500: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>main</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">
<!--
.style1 {
color: #000000;
font-weight: bold;
}
.style2 {
color: #0000FF;
font-weight: bold;
}
.style3 {
color: #33FF33;
font-weight: bold;
}
.style4 {
color: #FF6600;
font-weight: bold;
}
-->
</style>
</HEAD>
<BODY text=#000000 vLink=#0000ff aLink=#0000ff bgColor=#ffffff leftMargin=0
topMargin=0>
<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>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<!--#include file="head_result.asp"-->
</TABLE></TD></TR>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD height=4></TD></TR>
<TR>
<TD><FONT color=#000099> 连码、正码过关</FONT></TD>
</TR></TBODY></TABLE>
<TABLE width=800 border=0 align="center" cellPadding=0 cellSpacing=1 class=rp_m_tab>
<TBODY>
<TR class=rp_m_title>
<TD width=87>时间</TD>
<TD width=48>退水</TD>
<TD width=68>种类</TD>
<TD width="208">内容</TD>
<TD width=52>金额</TD>
<TD width=63>是否中</TD>
<TD width=56>赔率</TD>
<TD width=47>和局</TD>
<TD width=88>操作</TD></TR>
<%If show1=1 Then%>
<%money_sum=0
win_money=0
'If Record_Count=-1 Then%>
<%
'Else
For I=StartList To EndList
if trim(Member_info(5,I))="正码过关" then
show1=split(Member_info(6,I),",")
show2=split(Member_info(7,I),",")
z=ubound(show1)
end if%>
<form method="post" action=count_result_zmgg.asp>
<INPUT type=hidden value=<%=Member_info(16,I)%> name=ID>
<INPUT type=hidden value=gg name=gg>
<TR class=m_rig >
<TD align=middle><FONT color=#0000ff><%=Member_info(0,I)%></FONT> <%=mid(Member_info(3,I),6,15)%></TD>
<TD align=middle><%=Member_info(2,I)%> <FONT color=#cc0000><%=Member_info(4,I)%> </FONT></TD>
<TD align=middle>六合彩<%if Member_info(5,I)="连码" or Member_info(5,I)="正码过关" then
if Member_info(5,I)="连码" then
response.Write Member_info(6,I)
end if
if Member_info(5,I)="正码过关" then
response.Write z&"串一"&Member_info(5,I)
end if
else
response.Write Member_info(5,I)
end if
if Member_info(7,I)="合单" or Member_info(7,I)="合双" then
response.write "合数单双"
end if
if Member_info(7,I)="单" or Member_info(7,I)="双" then
response.write ":单双"
end if
if Member_info(7,I)="大" or Member_info(7,I)="小" or Member_info(7,I)="合大" or Member_info(7,I)="合小" then
response.write ":大小"
end if
if Member_info(5,I)="正码1-6" and (Member_info(7,I)="红波" or Member_info(7,I)="蓝波" or Member_info(7,I)="绿波") then
response.write ":色波"
end if
if Member_info(5,I)="特别号" and (Member_info(7,I)="红波" or Member_info(7,I)="蓝波" or Member_info(7,I)="绿波") then
response.write ":色波"
end if%></TD>
<TD><%if trim(Member_info(5,I))="正码过关" then%>
<%k=0
for j=0 to ubound(show1)-1
'rate1=rate1*cint(show3(j))
'response.Write show1(j)
%>
第<%=Member_info(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%>
<%else%>
第<%=Member_info(1,I)%>期 <FONT color=#cc0000>
<%response.write Member_info(6,I)
if Member_info(6,I)="三中二" then
response.write "之"&Member_info(13,I)
end if
if Member_info(6,I)="二中特" then
response.write "之"&Member_info(13,I)
end if
%>
<%=Member_info(7,I)%></FONT> @ <SPAN
style="COLOR: rgb(188,0,0)"><B><%=Member_info(8,I)%> </B></SPAN><BR></TD>
<%end if%>
<TD><div align="center">
<%=Member_info(9,I)%>
</div></TD>
<TD><div align="center">
<INPUT type=checkbox <%if Member_info(17,I)<>0 then response.Write "checked value=1" else response.Write "value=0"end if%> name=result1>
</div></TD>
<TD><div align="center">
<%if Member_info(5,I)="正码过关" then%>
<input name="rates" type="text" size=4 value="<%=Member_info(8,I)%>">
<%end if%>
</div></TD>
<TD><div align="center">
<%if Member_info(5,I)="正码过关" then%>
<%if trim(Member_info(18,I))="和局" then%>
<INPUT type=checkbox checked name=amount>
<%else%>
<INPUT type=checkbox name=amount>
<%end if%>
<%end if%>
</div></TD>
<TD><input name="submit" type="submit" style="width:60px" value="提交"></TD>
</TR></form>
<%money_sum=money_sum+Member_info(9,I)
win_money=win_money+Member_info(15,I)
count_num=count_num+1%>
<%next%>
<%end if%>
<TR class=m_rig_re>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><%=count_num%></TD>
<TD><%=money_sum%></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD class=rp_m_bt> </TD>
</TR></TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -