sub_bbls.asp
来自「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」· ASP 代码 · 共 369 行
ASP
369 行
<!--#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 Where Login_Name='"&session("SK2B")&"' 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(55),count_t(55)
for i=1 to 55
sum_money(i)=0
count_t(i)=0
next
if Agent_info(1,0)=0 then
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
if session("agenttype")=1 or session("subtype")=1 then
SQL6=SQL6&"chilp_value,chilp_types,sort,dai_zc,zong_zc From m_chilp where Agent_three='"&session("SK2B")&"'"
else
SQL6=SQL6&"chilp_value,chilp_types,sort,dai_zc,zong_zc From m_chilp where Agent_second='"&session("SK2B")&"'"
end if
select case trim(Request("K1"))
case "1"
K1=1
SQL6=SQL6&" And Memed='b'"
case "2"
K1=2
SQL6=SQL6&" And Memed='c'"
case "3"
SQL6=SQL6&" and memed='d'"
case else
SQL6=SQL6&" And Memed='a'"
end select
SQL6=SQL6&" and Kithe='"&Current_Kithe_Num&"' and banlance='0' and (sort='半波' or sort='六肖')"
Set Rs6=Conn.Execute(SQL6)
If Rs6.Eof Then
Set Rs6=Nothing
else
show_count=Rs6.GetRows(-1)
end if
set Count_rs=server.createobject("adodb.recordset")
sql=SQL6
Count_rs.open sql,conn,1,1
do while not Count_rs.eof
if not isnumeric(Count_rs("chilp_value")) then
select case trim(Count_rs("sort"))
case "半波"
select case trim(Count_rs("chilp_value"))
case "红单"
sum_money(1)=sum_money(1)+Count_rs("sum_m")
count_t(1)=count_t(1)+1
case "红双"
sum_money(2)=sum_money(2)+Count_rs("sum_m")
count_t(2)=count_t(2)+1
case "红大"
sum_money(3)=sum_money(3)+Count_rs("sum_m")
count_t(3)=count_t(3)+1
case "红小"
sum_money(4)=sum_money(4)+Count_rs("sum_m")
count_t(4)=count_t(4)+1
case "绿单"
sum_money(5)=sum_money(5)+Count_rs("sum_m")
count_t(5)=count_t(5)+1
case "绿双"
sum_money(6)=sum_money(6)+Count_rs("sum_m")
count_t(6)=count_t(6)+1
case "绿大"
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 "绿小"
sum_money(8)=sum_money(8)+Count_rs("sum_m")
count_t(8)=count_t(8)+1
case "蓝单"
sum_money(9)=sum_money(9)+Count_rs("sum_m")
count_t(9)=count_t(9)+1
case "蓝双"
sum_money(10)=sum_money(10)+Count_rs("sum_m")
count_t(10)=count_t(10)+1
case "蓝大"
sum_money(11)=sum_money(11)+Count_rs("sum_m")
count_t(11)=count_t(11)+1
case "蓝小"
sum_money(12)=sum_money(12)+Count_rs("sum_m")
count_t(12)=count_t(12)+1
end select
case "六肖"
sum_money(13)=sum_money(13)+Count_rs("sum_m")
count_t(13)=count_t(13)+1
end select
end if
Count_rs.movenext
loop
else
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 (Agent_first='"&session("SK2B")&"' or Agent_second='"&session("SK2B")&"' or Agent_three='"&session("SK2B")&"')"
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
if Request("K1")=2 then
K1=2
SQL6=SQL6&" And Memed='c'"
else
K1=3
SQL6=SQL6&" And Memed='d'"
end if
end if
End If
SQL6=SQL6&" and Kithe='"&Current_Kithe_Num&"' and banlance='0' and (sort='半波' or 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
if not isnumeric(Count_rs("chilp_value")) then
select case trim(Count_rs("sort"))
case "半波"
select case trim(Count_rs("chilp_value"))
case "红单"
sum_money(1)=sum_money(1)+Count_rs("sum_m")
count_t(1)=count_t(1)+1
case "红双"
sum_money(2)=sum_money(2)+Count_rs("sum_m")
count_t(2)=count_t(2)+1
case "红大"
sum_money(3)=sum_money(3)+Count_rs("sum_m")
count_t(3)=count_t(3)+1
case "红小"
sum_money(4)=sum_money(4)+Count_rs("sum_m")
count_t(4)=count_t(4)+1
case "绿单"
sum_money(5)=sum_money(5)+Count_rs("sum_m")
count_t(5)=count_t(5)+1
case "绿双"
sum_money(6)=sum_money(6)+Count_rs("sum_m")
count_t(6)=count_t(6)+1
case "绿大"
sum_money(7)=sum_money(7)+Count_rs("sum_m")
count_t(7)=count_t(7)+1
case "绿小"
sum_money(8)=sum_money(8)+Count_rs("sum_m")
count_t(8)=count_t(8)+1
case "蓝单"
sum_money(9)=sum_money(9)+Count_rs("sum_m")
count_t(9)=count_t(9)+1
case "蓝双"
sum_money(10)=sum_money(10)+Count_rs("sum_m")
count_t(10)=count_t(10)+1
case "蓝大"
sum_money(11)=sum_money(11)+Count_rs("sum_m")
count_t(11)=count_t(11)+1
case "蓝小"
sum_money(12)=sum_money(12)+Count_rs("sum_m")
count_t(12)=count_t(12)+1
end select
case "六肖"
sum_money(13)=sum_money(13)+Count_rs("sum_m")
count_t(13)=count_t(13)+1
end select
end if
Count_rs.movenext
loop
end if
end if
Set Rs6=Conn.Execute("Select Top 55 item_value,rate,current_rate,wager_gold,ID,wager_gold from m_rate where item_sort='半波' or item_sort='六肖' Order By ID")
Dim ShowTable
ShowTable=Rs6.GetRows(55)
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
%>
<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 http-equiv="refresh" content="<%=retime%>" content="MSHTML 6.00.2800.1476" 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_bbls.asp method=get>
<TD> 即时注单: <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>
<OPTION value=3 <%If K1=3 Then Response.Write (" Selected ")%>>彩票D</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> -- 香港时间:<%=formattime(now(),"ymdt")%> ---
<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" style="BACKGROUND-COLOR: #3399ff" >半波六肖</A>
-- <A
href="sub_ws.asp" >尾数</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 class=ra_listbet_tab id=glist_table cellSpacing=1 cellPadding=0 width=620 align=left border=0>
<TBODY>
<TR class=ra_listbet_title>
<TD width=50>时间</TD>
<TD width=80>期数</TD>
<TD width=80>六肖</TD>
<TD width=150>注单</TD>
<TD width=80>半波</TD>
<TD width=180>注单</TD>
</TR>
<TR bgColor=#ffffff>
<TD rowSpan=12><%=formattime(now(),"md")%><BR>
<%=formattime(now(),"st")%></div></TD>
<TD align=middle rowSpan=12><%=Current_Kithe_Num%></TD>
<TD align=middle rowSpan=12>六肖</TD>
<%
if isshowcolor=0 or isshowcolor>sum_money(13) then
response.Write "<TD align=middle rowSpan=12>"
else
response.Write "<TD align=middle bgColor=#ffff66 rowSpan=12>"
end if
%>
<%=ShowTable(2,12)%> <BR>
<A href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=9&spnum=1"><FONT
color=#ff0000><%=count_t(13)%>/<%=sum_money(13)%></FONT></A></TD>
<TD align=middle>红单</TD>
<%
if isshowcolor=0 or isshowcolor>sum_money(1) then
response.Write "<TD align=middle>"
else
response.Write "<TD align=middle bgColor=#ffff66>"
end if
%>
<%=ShowTable(2,0)%> <BR>
<A href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=红单"><FONT
color=#ff0000><%=count_t(1)%>/<%=sum_money(1)%></FONT></A></TD>
</TR>
<%
for i=2 to 12
%>
<TR bgColor=#ffffff>
<TD align=middle><%=ShowTable(0,i-1)%></TD>
<%
if isshowcolor=0 or isshowcolor>sum_money(1) then
response.Write "<TD align=middle>"
else
response.Write "<TD align=middle bgColor=#ffff66>"
end if
%>
<%=ShowTable(2,i-1)%> <BR>
<A href="submain.asp?manager=<%=manager%>&rtype=<%=k1%>&Ashow=<%=k2%>&wtype=10&spnum=<%=ShowTable(0,i-1)%>"><FONT
color=#ff0000><%=count_t(i)%>/<%=sum_money(i)%></FONT></A></TD>
</TR>
<%
next
%>
</TBODY></TABLE>
</BODY></HTML>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?