📄 result_mod.asp
字号:
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.asp"-->
<!--#include file="sk2.asp"-->
<%
If Session("SK2Admin")="" Then
Response.Redirect "Admin_Login.Asp"
Response.End
End If
Get_Kithe_Para
Dim ShowTable_mon(56)
Set Rs6=Server.CreateObject("Adodb.RecordSet")
Set Rs6=Conn.Execute("Select Top 55 item_value,rate,current_rate,wager_gold from m_rate where item_sort='特别号' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(55)
Set Rs6=Nothing
for J=0 to 54
Set Rs5=Conn.Execute("Select sum_money=isnull(sum(sum_m),0) from m_chilp where kithe='"&Current_Kithe_Num&"' and sort='特别号' and chilp_value='"&ShowTable(0,J)&"'")
If Rs5.Eof Then
Set Rs5=Nothing
'Response.redirect "user_left.asp"
Response.End
else
ShowTable_mon(J+1)=Rs5("sum_money")
end if
'response.Write ShowTable(0,J)&"<br>"
next
%><%'response.Write request("t6")
for i=6 to 8
if request("t"&i)<>"" then
session("s"&(i-5))=request("t"&i)
end if
next
session.Timeout=120%>
<!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">
<!--
.style3 {font-size: 12px}
-->
</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=60%
border=0 align="center" cellPadding=0 cellSpacing=1 class=ra_listbet_tab id=glist_table>
<TBODY>
<TR class=ra_listbet_title>
<TD width=88> </TD>
<TD width=100>单号</TD>
<TD width=62>计算</TD>
</TR>
<TR bgColor=#ffffff>
<FORM name=form1 action=result_find.asp?K6=K6 method=post>
<TD align=middle><div align="center"><FONT color=red><span class="style3 style16"><strong>请输入定单号</strong></span></FONT></div></TD>
<TD align=middle><div align="center">
<INPUT id=issue size=15 value="" name=order_num>
</div></TD>
<TD align=middle><div align="center">
<INPUT type=submit value=查找 name=Submit>
</div></TD>
</form>
</TR>
</TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -