📄 show_result.asp

📁 1。超强文件读写锁定
💻 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
Get_Kithe_Para
dim wtype,spnum
if request("wtype")<>"" or request("spnum")<>"" then
wtype=cstr(request("wtype"))
spnum=request("spnum")
session("wtype")=cstr(request("wtype"))
session("spnum")=cstr(request("spnum"))
else
wtype=session("wtype")
spnum=session("spnum")
end if
if request("spnum1")<>"" and request("spnum2")<>"" then
spnum1=(request("spnum1"))
spnum2=request("spnum2")
session("spnum1")=cstr(request("spnum1"))
session("spnum2")=cstr(request("spnum2"))
else
spnum1=session("spnum1")
spnum2=session("spnum2")
end if
chilp_type2=""
select case wtype
case "1"
	chilp_type="特别号"
	select case trim(cstr(spnum))
	case "50"
	spnum="单"
	case "51"
	spnum="双"
	case "52"
	spnum="大"
	case "53"
	spnum="小"
	case "54"
	spnum="合单"
	case "55"
	spnum="合双"
	case else
	
	if cint(spnum1)<10 then
	spnum1="0"&spnum1
	end if
	if cint(spnum2)<10 then
	spnum2="0"&spnum2
	end if
	end select 
case "2"
	chilp_type="正码"
	select case trim(cstr(spnum))
	case "50"
	spnum="总单"
	case "51"
	spnum="总双"
	case "52"
	spnum="总大"
	case "53"
	spnum="总小"
	case else
	if cint(spnum1)<10 then
	spnum1="0"&spnum1
	end if
	if cint(spnum2)<10 then
	spnum2="0"&spnum2
	end if
	end select 
case "3"
	chilp_type="正码1-6"
	select case  cstr(trim(spnum))
	case "1"
	chilp_type2="正码1"
	case "2"
	chilp_type2="正码2"
	case "3"
	chilp_type2="正码3"
	case "4"
	chilp_type2="正码4"
	case "5"
	chilp_type2="正码5"
	case "6"
	chilp_type2="正码6"
	end select
case "4"
	chilp_type="连码"
	select case trim(cstr(spnum))
	case "1"
	spnum="三全中"
	case "2"
	spnum="三中二"
	case "3"
	spnum="二全中"
	case "4"
	spnum="二中特"
	case "5"
	spnum="特串" 
	end select 
case "5"
chilp_type="正码过关"
case "6"
	chilp_type="十二生肖"
	select case trim(cstr(spnum))
	case "1"
	spnum="鼠"
	case "2"
	spnum="牛"
	case "3"
	spnum="虎"
	case "4"
	spnum="兔"
	case "5"
	spnum="龙"
	case "6"
	spnum="蛇"
	case "7"
	spnum="马"
	case "8"
	spnum="羊"
	case "9"
	spnum="猴"
	case "10"
	spnum="鸡"
	case "11"
	spnum="狗"
	case "12"
	spnum="猪"
	end select
case "7"
	chilp_type="一肖"
	select case trim(cstr(spnum))
	case "1"
	spnum="鼠"
	case "2"
	spnum="牛"
	case "3"
	spnum="虎"
	case "4"
	spnum="兔"
	case "5"
	spnum="龙"
	case "6"
	spnum="蛇"
	case "7"
	spnum="马"
	case "8"
	spnum="羊"
	case "9"
	spnum="猴"
	case "10"
	spnum="鸡"
	case "11"
	spnum="狗"
	case "12"
	spnum="猪"
	end select
case "8"
	chilp_type="色波"
	select case trim(cstr(spnum))
	case "1"
	spnum="红波"
	case "2"
	spnum="绿波"
	case "3"
	spnum="蓝波"
	end select
case else
'response.redirect "index_submain.asp"
end select 
'response.write "Select ID,chilp_time,memed,member,rake,order_num,sort,Kithe,chilp_types,chilp_value,rate,sum_m,dai_zc,zong_zc,Agent_first From m_chilp where sort='"&chilp_type&"' and chilp_value='"&spnum&"' Order By ID Desc"
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 From m_chilp where"
if chilp_type="正码1-6" then
SQL6=SQL6&" chilp_types='"&chilp_type2&"'"
else
SQL6=SQL6&" sort='"&chilp_type&"'"
end if
if request("spnum1")<>"" and  request("spnum2")<>"" then
SQL6=SQL6&" and chilp_value>'"&spnum1&"' and chilp_value<'"&spnum2&"'"
else
if spnum="三全中" or spnum="三中二" or spnum="二全中" or spnum="二中特" or spnum="特串" then
SQL6=SQL6&" and chilp_types='"&spnum&"'"
else
if chilp_type<>"正码1-6" and spnum<>""  then
SQL6=SQL6&" and chilp_value='"&spnum&"'"
end if
end if
end if
'if request("Ashow")="" or request("Ashow")=0 then
'select case trim(request("rtype"))
'case "0"
'SQL6=SQL6&" and memed='a'"
'case "1"
'SQL6=SQL6&" and memed='b'"
'case "2"
'SQL6=SQL6&" and memed='c'"
'end select
'end if
SQL6=SQL6&" and Kithe='"&(Current_Kithe_num-1)&"' and result>0"
'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>
<FORM name=myFORM action="sub_main.asp" method=post>
<input type=hidden name=wtype value=<%=cstr(request("wtype"))%>>
<input type=hidden name=spnum value=<%=cstr(request("spnum"))%>>
<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>&nbsp;管理: <FONT 
      color=#cc0000>六合彩赢的注单</FONT> --下注管道:网路下注--总页数
	  <SELECT  class=select_lef  onchange="window.location = this.options[this.selectedIndex].value;"> 
							  <%For I=1 To Page_Count
							     Response.Write ("<Option Value=?Page="&I&"")
								 If Page=I Then
								   Response.Write (" selected ")
								 End If
								 Response.Write (">"&I&"</Option>")
								Next
							  %>
		  </SELECT><SPAN class=td_c_12_ste>/&nbsp; <%=Page_Count%> 页</SPAN> --<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=780 border=0>
  <TBODY>
  <TR class=ra_listbet_rp_title>
    <TD width=60><div align="center">时间</div></TD>
    <TD width=80><div align="center">收中比</div></TD>
    <TD width=140><div align="center">单号</div></TD>
    <TD><div align="center">内容</div></TD>
    <TD align=right width=110><div align="center">金额</div></TD>
    <TD align=right width=110><div align="center">代理商</div></TD>
	<TD align=right width=110><div align="center">总代理</div></TD>
  </TR>
	<%If Kithe_Sum>-1 and sum_money=1 Then%>
	<%For I=StartList To EndList%>
  <TR bgcolor="#FFFFFF">
    <TD ><div align="center"><%=formatdatetime(showTable(1,I),3)%></div></TD>
    <TD ><div align="center"><%=ucase(showTable(2,I))&"&nbsp;"&showTable(3,I)%><span class="style2"> <%=showTable(4,I)%></span></div></TD>
    <TD ><div align="center"><span class="style3"><%=showTable(5,I)&"&nbsp;"%></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)%>期 &nbsp;<SPAN 
      style="COLOR: rgb(188,0,0)"><%=show1(j)%> &nbsp;<%=Show2(k)%></SPAN> @ &nbsp;<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)%>&nbsp;<%=showTable(9,I)%></span>@<span class="style6">&nbsp;<%=showTable(10,I)%></span>
	      <%end if%>
        </div></TD><TD align=right ><div align="center"><%=showTable(11,I)%></div></TD>
    <TD align=right ><div align="center"><%=showTable(14,I)%></div></TD>
	<TD align=right ><div align="center"><%=showTable(15,I)%></div></TD>
  </TR>
	
<%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"><%=Record_Count+1%></div></TD>
    <TD class=ra_listbet_total align=right><div align="center"><%=xzsum%></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>
</FORM></BODY></HTML>
💿 文件大小 1123 K
👤 上传用户 liubixing
📂 所属分类数据库系统
🏷️ 相关标签

#读写
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -