index_outtm.asp

来自「一套六合彩投注程序」· ASP 代码 · 共 553 行 · 第 1/2 页

ASP
553 行
字号
12
<!--#include file="../mConn.asp"-->
<!--#include file="../mConst.asp"-->
<!--#include file="../Number_Info.Asp"-->
<!--#include file="../sk2.Asp"-->

<% Get_Kithe_Para
on error resume next
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
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(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
	'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
'response.end
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 
	for j=1 to 49
	'response.Write cstr(show_count(0,0))
	if isnumeric(Count_rs("chilp_value")) then
	if cint(Count_rs("chilp_value"))=cint(j) then
	sum_money(j)=sum_money(j)+Count_rs("sum_m")
	count_t(j)=count_t(j)+1
	'response.Write sum_money(j)&"<br>"&j
	end if
	end if
	next
	if not isnumeric(Count_rs("chilp_value")) then
	select case trim(Count_rs("chilp_value"))
	case "单"
	sum_money(50)=sum_money(50)+Count_rs("sum_m")
	count_t(50)=count_t(50)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "双"
	sum_money(51)=sum_money(51)+Count_rs("sum_m")
	count_t(51)=count_t(51)+1
	case "大"
	sum_money(52)=sum_money(52)+Count_rs("sum_m")
	count_t(52)=count_t(52)+1
	case "小"
	sum_money(53)=sum_money(53)+Count_rs("sum_m")
	count_t(53)=count_t(53)+1
	case "合单"
	sum_money(54)=sum_money(54)+Count_rs("sum_m")
	count_t(54)=count_t(54)+1
	case "合双"
	sum_money(55)=sum_money(55)+Count_rs("sum_m")
	count_t(55)=count_t(55)+1
	end select
	end if
	Count_rs.movenext
	loop
	end if
	'Count_Agent.movenext
	'loop
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 
	for j=1 to 49
	'response.Write cstr(show_count(0,0))
	if isnumeric(Count_rs("chilp_value")) then
	if cint(Count_rs("chilp_value"))=cint(j) then
	sum_money(j)=sum_money(j)+Count_rs("sum_m")
	count_t(j)=count_t(j)+1
	'response.Write sum_money(j)&"<br>"&j
	end if
	end if
	next
	if not isnumeric(Count_rs("chilp_value")) then
	select case trim(Count_rs("chilp_value"))
	case "单"
	sum_money(50)=sum_money(50)+Count_rs("sum_m")
	count_t(50)=count_t(50)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "双"
	sum_money(51)=sum_money(51)+Count_rs("sum_m")
	count_t(51)=count_t(51)+1
	case "大"
	sum_money(52)=sum_money(52)+Count_rs("sum_m")
	count_t(52)=count_t(52)+1
	case "小"
	sum_money(53)=sum_money(53)+Count_rs("sum_m")
	count_t(53)=count_t(53)+1
	case "合单"
	sum_money(54)=sum_money(54)+Count_rs("sum_m")
	count_t(54)=count_t(54)+1
	case "合双"
	sum_money(55)=sum_money(55)+Count_rs("sum_m")
	count_t(55)=count_t(55)+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='特别号' 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
 %>

<script language=javascript>
function new_win(html_name,winname,w,h){
  if(winname=='') winname='WINDOWS';
  if(w=='') w=640;
  if(h=='') h=480;
  //undefined
  winformat="toolbar=no,location=no,status=no,menubar=no,scrollbars=yes,resizable=no,width="+w+",height="+h;
  winid = window.open(html_name,winname,winformat)
}
</script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>main</TITLE>
<META http-equiv="refresh" content="<%=retime%>;text/html; charset=gb2312">
<LINK 
href="../../images/control_main.css" type=text/css rel=stylesheet>
<script language=javascript src="js/show2.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></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>
      <BR> <h2 align="center">抛码提示</h2>
            </TD>
  </TR>
  <TR>
    <TD class=ra_listbet_ctrl_line height=1></TD></TR>
  <TR>
    <TD height=4></TD></TR>
  <TR>
    <TD><FONT color=#000099>&nbsp;&nbsp;特别号</FONT></TD></TR></TBODY></TABLE>
<div align="center">
<%
dim xmlDoc,mynode,d(49)
set xmlDoc=CreateObject("Microsoft.XMLDOM")
'response.Write(isobject(myxml))
xmlDoc.async = False
xmlDoc.load(server.MapPath("../../tm.xml"))
for i=0 to (xmlDoc.documentElement.childnodes.length-1)
d(i)=xmlDoc.documentElement.childnodes(i).childnodes(1).text
next
set xmlDoc=nothing
%>
  <TABLE class=ra_listbet_tab id=glist_table cellSpacing=1 cellPadding=0 width=850 
border=0>
    <TBODY>
    <TR class=ra_listbet_title>
      <TD width=40>时间</TD>
      <TD width=50>期数</TD>
      <TD width=35>号码</TD>
      <TD width=70>金额</TD>
      <TD width=35>号码</TD>
      <TD width=70>金额</TD>
      <TD width=35>号码</TD>
      <TD width=70>金额</TD>
      <TD width=35>号码</TD>
      <TD width=70>金额</TD>
      <TD width=35>号码</TD>
      <TD width=70>金额</TD>
      <TD width=35>&nbsp;</TD>
      <TD width=70>&nbsp;</TD></TR><form name="form1" method="post" action="outtmsave.asp">
12

index_outtm.asp - 源码说明

本页面展示了「一套六合彩投注程序」中的 index_outtm.asp 源码文件，采用 ASP 编程语言编写，共 553 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与程序相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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