sub_ws.asp

来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 389 行

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<!--#include file="../manage/Number_Info.Asp"-->
<!--#include file="../manage/sk2.Asp"-->

<% Get_Kithe_Para
  If Session("SK2B")="" Then
    Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
	Response.End
  End If
If Not Isnumeric(Request("K1")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Not Isnumeric(Request("K2")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If

If Not Isnumeric(Request("K3")) Then
  Response.Write ("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
  Response.End
End If
Set Rs6=Conn.Execute("Select Top 1 caution,Current_Credits,P_AgentID,self_cuts,super_cuts,ID From m_agent Where Login_Name='"&session("SK2B")&"' Order By ID Desc")
   If not Rs6.Eof Then
    isshowcolor=Rs6("caution")
	'response.Write isshowcolor
	end if
Dim K1,K2,K3
Set Rs6=Conn.Execute("Select Top 1 Current_Credits,P_AgentID,self_cuts,super_cuts,ID From m_agent   Order By ID Desc")
   If Rs6.Eof Then
     Set Rs6=Nothing
	 Response.End
	 end if
Agent_info=Rs6.GetRows(1)
'response.write Agent_info(1,0)&"<br><br><br><br><br><br>"

dim sum_money(10),count_t(10)
for i=1 to 10 
sum_money(i)=0
count_t(i)=0
next
if Agent_info(1,0)=0 then
	'response.write "Select Top 1 Current_Credits,P_AgentID,self_cuts,super_cuts,Login_Name From m_agent Where ID='"&Agent_info(1,0)&"' Order By ID Desc"
	'Set Rs5=Conn.Execute("Select Top 1 Current_Credits,P_AgentID,self_cuts,super_cuts,Login_Name From m_agent Where P_AgentID='"&Agent_info(4,0)&"' Order By ID Desc")
   'set Count_Agent=server.createobject("adodb.recordset")
   'sql="Select Top 1 Current_Credits,P_AgentID,self_cuts,super_cuts,Login_Name From m_agent Where P_AgentID='"&Agent_info(4,0)&"' Order By ID Desc"
   'Count_Agent.open sql,conn,1,1
   'do while not Count_Agent.eof 
   manager=session("SK2B")
	SQL6="Select sum_m="
If Request("K2")="" Or Request("K2")=1 Then
  K2=1
  SQL6=SQL6&" sum_m,"
Else
  K2=0
  SQL6=SQL6&"sum_m*zong_zc/100,"
End If
SQL6=SQL6&"chilp_value,chilp_types,sort,dai_zc,zong_zc From m_chilp  where  1=1 "
If Request("K1")="" Or Request("K1")=0 Then
  K1=0
  SQL6=SQL6&" And Memed='a'"
Else
if Request("K1")=1 then
  K1=1
  SQL6=SQL6&" And Memed='b'"
  else
  K1=2
  SQL6=SQL6&" And Memed='c'"
  end if
End If
SQL6=SQL6&" and Kithe='"&Current_Kithe_Num&"' and banlance='0' and (sort='尾数')"
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
	If Rs6.Eof Then
      Set Rs6=Nothing
	else
	show_count=Rs6.GetRows(-1)
	
	set Count_rs=server.createobject("adodb.recordset")
   sql=SQL6
   Count_rs.open sql,conn,1,1
   do while not Count_rs.eof 
	
select case trim(Count_rs("sort"))
case "尾数" 

select case trim(Count_rs("chilp_value"))
	case "0"
	sum_money(1)=sum_money(1)+Count_rs("sum_m")
	count_t(1)=count_t(1)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "1"
	sum_money(2)=sum_money(2)+Count_rs("sum_m")
	count_t(2)=count_t(2)+1
	case "2"
	sum_money(3)=sum_money(3)+Count_rs("sum_m")
	count_t(3)=count_t(3)+1
	case "3"
	sum_money(4)=sum_money(4)+Count_rs("sum_m")
	count_t(4)=count_t(4)+1
	case "4"
	sum_money(5)=sum_money(5)+Count_rs("sum_m")
	count_t(5)=count_t(5)+1
	case "5"
	sum_money(6)=sum_money(6)+Count_rs("sum_m")
	count_t(6)=count_t(6)+1
	case "6"
	sum_money(7)=sum_money(7)+Count_rs("sum_m")
	count_t(7)=count_t(7)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "7"
	sum_money(8)=sum_money(8)+Count_rs("sum_m")
	count_t(8)=count_t(8)+1
	case "8"
	sum_money(9)=sum_money(9)+Count_rs("sum_m")
	count_t(9)=count_t(9)+1
	case "9"
	sum_money(10)=sum_money(10)+Count_rs("sum_m")
	count_t(10)=count_t(10)+1
	
	end select
	
	
end select 
	
	Count_rs.movenext
	loop
	'Count_Agent.movenext
	'loop
	end if
else
SQL6="Select sum_m="
If Request("K2")="" Or Request("K2")=0 Then
  K2=0
  SQL6=SQL6&" sum_m,"
  'SQL6=SQL6&"sum_m*dai_zc/100,"
Else
  K2=1
  SQL6=SQL6&" sum_m,"
End If
SQL6=SQL6&"chilp_value,chilp_types,sort,dai_zc,zong_zc From m_chilp  where 1=1 "
If Request("K1")="" Or Request("K1")=0 Then
  K1=0
  SQL6=SQL6&" And Memed='a'"
Else
if Request("K1")=1 then
  K1=1
  SQL6=SQL6&" And Memed='b'"
  else
  K1=2
  SQL6=SQL6&" And Memed='c'"
  end if
End If
SQL6=SQL6&" and Kithe='"&Current_Kithe_Num&"'  and banlance='0' and (sort='尾数')"
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
	If Rs6.Eof Then
      Set Rs6=Nothing
	else
	show_count=Rs6.GetRows(-1)
	
	set Count_rs=server.createobject("adodb.recordset")
   sql=SQL6
   Count_rs.open sql,conn,1,1
   do while not Count_rs.eof 
	
select case trim(Count_rs("sort"))
case "尾数" 
	select case trim(Count_rs("chilp_value"))
	case "0"
	sum_money(1)=sum_money(1)+Count_rs("sum_m")
	count_t(1)=count_t(1)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "1"
	sum_money(2)=sum_money(2)+Count_rs("sum_m")
	count_t(2)=count_t(2)+1
	case "2"
	sum_money(3)=sum_money(3)+Count_rs("sum_m")
	count_t(3)=count_t(3)+1
	case "3"
	sum_money(4)=sum_money(4)+Count_rs("sum_m")
	count_t(4)=count_t(4)+1
	case "4"
	sum_money(5)=sum_money(5)+Count_rs("sum_m")
	count_t(5)=count_t(5)+1
	case "5"
	sum_money(6)=sum_money(6)+Count_rs("sum_m")
	count_t(6)=count_t(6)+1
	case "6"
	sum_money(7)=sum_money(7)+Count_rs("sum_m")
	count_t(7)=count_t(7)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "7"
	sum_money(8)=sum_money(8)+Count_rs("sum_m")
	count_t(8)=count_t(8)+1
	case "8"
	sum_money(9)=sum_money(9)+Count_rs("sum_m")
	count_t(9)=count_t(9)+1
	case "9"
	sum_money(10)=sum_money(10)+Count_rs("sum_m")
	count_t(10)=count_t(10)+1
	
	end select
 
 
end select 
	
	Count_rs.movenext
	loop
	end if
end if
	Set Rs6=Conn.Execute("Select Top 12 item_value,rate,current_rate,wager_gold,ID,wager_gold from m_rate where item_sort='尾数' Order By ID")
  Dim ShowTable
  ShowTable=Rs6.GetRows(12)
   select case cstr(Request("K3"))
  case "0"
  retime=120
  K3=0
  case "1"
  retime=10
  K3=1
  
  case "2"
  retime=20
  K3=2
  
  case "3"
  retime=60
  K3=3
  
  case else
  retime=120
  end select  
  'response.write K3
 %>
 <!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.1226" name=GENERATOR></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>
        <TBODY>
        <TR>
          <FORM name=myFORM 
          action=sub_ws.asp 
          method=get>
          <TD>&nbsp;&nbsp;即时注单: <SELECT class=za_select 
            onchange=self.myFORM.submit() name=K1> 
			<OPTION value=0 <%If K1=0 Then Response.Write (" Selected ")%>>彩票A</OPTION> 
			<OPTION value=1 <%If K1=1 Then Response.Write (" Selected ")%>>彩票B</OPTION>
			<OPTION value=2 <%If K1=2 Then Response.Write (" Selected ")%>>彩票C</OPTION></SELECT>
			 <SELECT class=za_select 
            onchange=self.myFORM.submit() name=K2> 
			<OPTION value=0 <%If K2=0 Then Response.Write (" Selected ")%>>成数</OPTION> 
			<OPTION value=1 <%If K2=1 Then Response.Write (" Selected ")%>>全部</OPTION>
			</SELECT> -- 
            更新: <SELECT class=za_select 
            onchange=self.myFORM.submit() name=K3> 
			<OPTION value=0 <%If K3=0 Then Response.Write (" Selected ")%>>不更新</OPTION> 
			<OPTION value=1 <%If K3=1 Then Response.Write (" Selected ")%>>10 sec</OPTION> 
			<OPTION value=2 <%If K3=2 Then Response.Write (" Selected ")%>>20 sec</OPTION>
			<OPTION value=3 <%If K3=3 Then Response.Write (" Selected ")%>>60 sec</OPTION>
			</SELECT>
            <INPUT type=hidden value=1 name=page>             -- 香港时间:<%=now%>-<br>- 
            <A href="index_submain.asp">特别号</A> 
            -- <A 
            href="sub_12.asp">生肖色波一肖</A> 
            -- <A 
            href="sub_just.asp">正码</A> 
            -- <A 
            href="sub_just1-6.asp">正码1-6</A> 
            -- <A 
            href="sub_link.asp">连码</A> 
            -- <A 
            href="sub_gg.asp">正码过关</A>
            -- <A 
            href="sub_bbls.asp"  >半波六肖</A> 
			
			 -- <A 
            href="sub_ws.asp" style="BACKGROUND-COLOR: #3399ff"  >尾数</A>
			  -- <A 
            href="sub_result4.asp">四肖</A>   -- <A 
            href="sub_result5.asp"  >五肖</A> 
            -- <A 
            href="sub_result.asp">已开奖</A>  </TD>
          </FORM></TR></TBODY></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="477" border=0 align="center" cellPadding=0 cellSpacing=1 class=ra_listbet_tab id=glist_table>
  <TBODY>
  <TR class=ra_listbet_title>
    <TD width=99>时间</TD>
    <TD width=77>期数</TD>
    <TD width="451"  >尾数</TD>
    <TD width=145>注单</TD>
    </TR>
  <TR class=spag_index_cen>
    <TD rowspan="10"><div align="center"><%=mid(formatdatetime(Current_KitheTable(2,0),2),6,11)%><BR>
          <%=hour(Current_KitheTable(2,0))&":"&minute(Current_KitheTable(2,0))%></div></TD>
    <TD rowspan="10"><%=Current_Kithe_Num%></TD>
    <TD>0</TD>
    <TD><%=ShowTable(2,0)%> <BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=0"><FONT 
      color=#ff0000><%=count_t(1)%>/<%=sum_money(1)%></FONT></A>&nbsp;</TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>1</TD>
    <TD><%=ShowTable(2,1)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=1"><FONT 
      color=#ff0000><%=count_t(2)%>/<%=sum_money(2)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>2</TD>
    <TD><%=ShowTable(2,2)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=2"><FONT 
      color=#ff0000><%=count_t(3)%>/<%=sum_money(3)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>3</TD>
    <TD><%=ShowTable(2,3)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=3"><FONT 
      color=#ff0000><%=count_t(4)%>/<%=sum_money(4)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>4</TD>
    <TD><%=ShowTable(2,4)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=4"><FONT 
      color=#ff0000><%=count_t(5)%>/<%=sum_money(5)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>5</TD>
    <TD><%=ShowTable(2,5)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=5"><FONT 
      color=#ff0000><%=count_t(6)%>/<%=sum_money(6)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>6</TD>
    <TD><%=ShowTable(2,6)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=6"><FONT 
      color=#ff0000><%=count_t(7)%>/<%=sum_money(7)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>7</TD>
    <TD><%=ShowTable(2,7)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=7"><FONT 
      color=#ff0000><%=count_t(8)%>/<%=sum_money(8)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>8</TD>
    <TD><%=ShowTable(2,8)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=8"><FONT 
      color=#ff0000><%=count_t(9)%>/<%=sum_money(9)%></FONT></A></TD>
  </TR>
  <TR class=spag_index_cen>
    <TD>9</TD>
    <TD><%=ShowTable(2,9)%><BR>
      <A 
      href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=9"><FONT 
      color=#ff0000><%=count_t(10)%>/<%=sum_money(10)%></FONT></A></TD>
  </TR>
</TBODY></TABLE>
</BODY></HTML>