📄 result_find.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "888_Login.Asp"
Response.End
End If
If not isnumeric(request("order_num")) Then
Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
Response.End
End If
Get_Kithe_Para
SQL6="Select ID,chilp_time,memed,member,rake,order_num,sort,Kithe,chilp_types,chilp_value,rate,sum_m,dai_zc,zong_zc,Agent_first,Agent_second,result,amount From m_chilp where order_num='"&trim(request("order_num"))&"'"
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
If Not Rs6.Eof Then
showTable=Rs6.GetRows(-1)
sum_money=1
Kithe_Sum=Ubound(showTable,2)
else
sum_money=0
End If
'Kithe_Sum=Ubound(showTable,2)
Dim Page,StartList,EndList,DiffList,Page_Count,Record_Count,I
StartList=1:EndList=1:DiffList=150: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>reports_real</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">
<!--
.style2 {color: #CC0000}
.style3 {color: #0000FF}
.style4 {color: #FF0000}
.style6 {color: #CC0000; font-weight: bold; }
-->
</style>
</HEAD>
<BODY text=#000000 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 height=23> 管理: <FONT
color=#cc0000>六合的注单</FONT> ----<A href="javascript:history.go(-1)">回上一页</A> </TD>
</TR>
<TR>
<TD class=ra_listbet_ctrl_line height=1></TD></TR>
<TR>
<TD height=5></TD></TR></TBODY></TABLE>
<TABLE class=ra_listbet_rp_tab cellSpacing=1 cellPadding=0 width=100% border=0>
<TBODY>
<TR class=ra_listbet_rp_title>
<TD width=45><div align="center">时间</div></TD>
<TD width=94><div align="center">收中比</div></TD>
<TD width=78><div align="center">单号</div></TD>
<TD width="221"><div align="center">内容</div></TD>
<TD align=right width=74><div align="center">金额</div></TD>
<TD align=right width=58><div align="center">赔率</div></TD>
<TD align=right width=59><div align="center">输赢(条数)</div></TD>
<TD align=right width=55><div align="center">和局</div></TD>
<TD align=right width=98><div align="center">总代理</div></TD>
</TR>
<%If Kithe_Sum>-1 and sum_money=1 Then%>
<%For I=StartList To EndList%>
<FORM name=form1 action=result_save.asp?K6=K6 method=post>
<input type=hidden value=<%=showTable(0,I)%> name=ID>
<input type=hidden value=<%=request("order_num")%> name=order_num>
<TR bgcolor="#FFFFFF">
<TD ><div align="center"><%=formatdatetime(showTable(1,I),3)%></div></TD>
<TD ><div align="center"><%=ucase(showTable(2,I))&" "&showTable(3,I)%> <span class="style2"><input id=issue size=4 value=<%=showTable(4,I)%> name=rake> </span></div></TD>
<TD ><div align="center"><span class="style3"><%=showTable(5,I)&" "%></span><%=showTable(6,I)%></div></TD>
<TD align=right >
<div align="right">
<%if showTable(6,I)="正码过关" then
show1=split(showTable(8,I),",")
show2=split(showTable(9,I),",")
z=ubound(show1)
end if%>
<%if trim(showTable(6,I))="正码过关" then%>
<%k=0
for j=0 to ubound(show1)-1
%>
第<%=showTable(7,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%>
第<%=showTable(7,I)%>期<span class="style4"><%=showTable(8,I)%> <%=showTable(9,I)%></span>@<span class="style6"> <%=showTable(10,I)%></span>
<%end if%>
</div></TD><TD align=right ><div align="center">
<input id=issue size=10 value=<%=showTable(11,I)%> name=sum_m>
</div></TD>
<TD align=right ><div align="center">
<input id=rate size=4 value=<%=showTable(10,I)%> name=rate>
</div></TD>
<TD align=right ><div align="center">
<%if trim(showTable(6,I))="连码" then%>
<input id=rate size=4 value=<%=showTable(16,I)%> name=result>
<%else%>
<input type=checkbox <%if showTable(16,I)<>0 then response.Write "checked value=1" else response.Write "value=0"end if%> name=result1>
<%end if%></div></TD>
<TD align=right ><div align="center"><INPUT type=checkbox <%if trim(showTable(17,I))="和局" then response.Write "checked value=1" else response.Write "value=0"end if%> name=amount>
</div></TD>
<TD align=right ><div align="center"><input name="submit" type="submit" style="width:60px" value="提交"></div></TD>
</TR>
</FORM>
<%Next%>
<%xzsum=0
for J=0 to Record_Count
xzsum=xzsum+showTable(11,J)
'response.write showTable(11,J)&"<br>"
next%>
<TR>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_null><div align="center"></div></TD>
<TD class=ra_listbet_total align=right><div align="center"></div></TD>
<TD class=ra_listbet_total align=right><div align="center"></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
<TD class=ra_listbet_total
align=right><div align="center"></div></TD>
</TR>
<%else%>
<%end if%>
</TBODY>
</TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -