⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 submain.asp

📁 1。超强文件读写锁定
💻 ASP
字号:
🔍 
<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/sk2.asp"-->
<%
If Session("SK2B")="" 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
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(spnum)<10 then
	spnum="0"&spnum
	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(spnum)<10 then
	spnum="0"&spnum
	end if
	end select 
case "3"
	chilp_type="正码1-6"
	if cint(spnum) mod 7=0 then
	zmi=int(spnum/7)
	else
	zmi=int(spnum/7)+1
	end if
	if zmi=0 then
	zmi=1
	end if
	select case  int(trim(spnum) mod 7)
	case "1"
	chilp_type2="正码"&zmi
	spnum="单"
	case "2"
	chilp_type2="正码"&zmi
	spnum="双"
	case "3"
	chilp_type2="正码"&zmi
	spnum="大"
	case "4"
	chilp_type2="正码"&zmi
	spnum="小"
	case "5"
	chilp_type2="正码"&zmi
	spnum="红波"
	case "6"
	chilp_type2="正码"&zmi
	spnum="绿波"
	case "0"
	chilp_type2="正码"&zmi
	spnum="蓝波"
	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 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 spnum="三全中" or spnum="三中二" or spnum="二全中" or spnum="二中特" or spnum="特串" then
SQL6=SQL6&" and chilp_types='"&spnum&"'"
else
SQL6=SQL6&" and chilp_value='"&spnum&"'"
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&"'"
if request("manager")="" then
SQL6=SQL6&" and Agent_first='"&session("SK2B")&"'"
else
SQL6=SQL6&" and Agent_second='"&request("manager")&"'"
end if
'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>时间</TD>
    <TD width=80>收中比</TD>
    <TD width=140>单号</TD>
    <TD>内容</TD>
    <TD align=right width=110>金额</TD>
    <TD align=right width=110>成数</TD></TR>
	<%If Kithe_Sum>-1 and sum_money=1 Then%>
	<%For I=StartList To EndList%>
  <TR bgcolor="#FFFFFF">
    <TD ><%=formatdatetime(showTable(1,I),3)%></TD>
    <TD ><div align="right"><%=ucase(showTable(2,I))&"&nbsp;"&showTable(3,I)%><span class="style2"> <%=showTable(4,I)%></span></div></TD>
    <TD ><div align="right"><span class="style3"><%=showTable(5,I)&"&nbsp;"%></span><%=showTable(6,I)%></div></TD>
    <TD align=right >第<%=showTable(7,I)%>期<span class="style4"><%=showTable(8,I)%>&nbsp;<%=showTable(9,I)%></span>@<span class="style6">&nbsp;<%=showTable(10,I)%></span></TD>
    <TD align=right ><%=showTable(11,I)%></TD>
    <TD align=right ><%if showTable(14,I)<>session("SK2B") then 
	response.write formatnumber((cint(showTable(12,I))/100),2,-1)
	else
	response.write formatnumber((cint(showTable(13,I))/100),2,-1)
	end if%></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></TD>
    <TD class=ra_listbet_null></TD>
    <TD class=ra_listbet_null></TD>
    <TD class=ra_listbet_total align=right><%=Record_Count+1%></TD>
    <TD class=ra_listbet_total align=right><%=xzsum%></TD>
    <TD class=ra_listbet_total 
align=right><%if showTable(14,0)<>session("SK2B") then 
	response.write formatnumber((cint(showTable(12,0))/100),2,-1)
	else
	response.write formatnumber((cint(showTable(13,I))/100),2,-1)
	end if%></TD>
</TR>
<%else%>
<TR>
    <TD class=ra_listbet_null></TD>
    <TD class=ra_listbet_null></TD>
    <TD class=ra_listbet_null></TD>
    <TD class=ra_listbet_total align=right>0</TD>
    <TD class=ra_listbet_total align=right>0</TD>
    <TD class=ra_listbet_total 
align=right>0.0</TD>
</TR>
<%end if%>
</TBODY>
</TABLE></FORM></BODY></HTML>

⌨️ 快捷键说明

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