📄 sub_12.asp

📁 1。超强文件读写锁定
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#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
'response.write "Select Top 1 Current_Credits,P_AgentID,self_cuts,super_cuts,ID From m_agent Where Login_Name='"&session("SK2B")&"' Order By ID Desc"
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
	'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  Agent_second='"&session("SK2B")&"'"

select case trim(Request("K1"))
case "1"
 K1=1
  SQL6=SQL6&" And Memed='b'"
  case "2"
 K1=2
  SQL6=SQL6&" And Memed='c'"
 case else
 SQL6=SQL6&" And Memed='a'"
end select 

SQL6=SQL6&" and Kithe='"&Current_Kithe_Num&"' and banlance='0' and (sort='十二生肖' or sort='色波' or sort='一肖')"
'response.Write SQL6
'response.Write SQL6
Set Rs6=Conn.Execute(SQL6)
	If Rs6.Eof Then
      Set Rs6=Nothing
	else
	show_count=Rs6.GetRows(-1)
	end if
	'response.Write SQL6
set Count_rs=server.createobject("adodb.recordset")
   sql=SQL6
   'response.Write 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 "一肖" 
	select case trim(Count_rs("chilp_value"))
	case "鼠"
	sum_money(21)=sum_money(21)+Count_rs("sum_m")
	count_t(21)=count_t(21)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "牛"
	sum_money(22)=sum_money(22)+Count_rs("sum_m")
	count_t(22)=count_t(22)+1
	case "虎"
	sum_money(23)=sum_money(23)+Count_rs("sum_m")
	count_t(23)=count_t(23)+1
	case "兔"
	sum_money(24)=sum_money(24)+Count_rs("sum_m")
	count_t(24)=count_t(24)+1
	case "龙"
	sum_money(25)=sum_money(25)+Count_rs("sum_m")
	count_t(25)=count_t(25)+1
	case "蛇"
	sum_money(26)=sum_money(26)+Count_rs("sum_m")
	count_t(26)=count_t(26)+1
	case "马"
	sum_money(27)=sum_money(27)+Count_rs("sum_m")
	count_t(27)=count_t(27)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "羊"
	sum_money(28)=sum_money(28)+Count_rs("sum_m")
	count_t(28)=count_t(28)+1
	case "猴"
	sum_money(29)=sum_money(29)+Count_rs("sum_m")
	count_t(29)=count_t(29)+1
	case "鸡"
	sum_money(30)=sum_money(30)+Count_rs("sum_m")
	count_t(30)=count_t(30)+1
	case "狗"
	sum_money(31)=sum_money(31)+Count_rs("sum_m")
	count_t(31)=count_t(31)+1
	case "猪"
	sum_money(32)=sum_money(32)+Count_rs("sum_m")
	count_t(32)=count_t(32)+1
	end select
case "色波"
	select case trim(Count_rs("chilp_value"))
	case "红波"
	sum_money(13)=sum_money(13)+Count_rs("sum_m")
	count_t(13)=count_t(13)+1
	case "绿波"
	sum_money(14)=sum_money(14)+Count_rs("sum_m")
	count_t(14)=count_t(14)+1
	case "蓝波"
	sum_money(15)=sum_money(15)+Count_rs("sum_m")
	count_t(15)=count_t(15)+1
	end select
end select 
	end if
	Count_rs.movenext
	loop
	'Count_Agent.movenext
	'loop
	'end if
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")&"')"
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='十二生肖' or 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
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	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 "一肖" 
	select case trim(Count_rs("chilp_value"))
	case "鼠"
	sum_money(21)=sum_money(21)+Count_rs("sum_m")
	count_t(21)=count_t(21)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "牛"
	sum_money(22)=sum_money(22)+Count_rs("sum_m")
	count_t(22)=count_t(22)+1
	case "虎"
	sum_money(23)=sum_money(23)+Count_rs("sum_m")
	count_t(23)=count_t(23)+1
	case "兔"
	sum_money(24)=sum_money(24)+Count_rs("sum_m")
	count_t(24)=count_t(24)+1
	case "龙"
	sum_money(25)=sum_money(25)+Count_rs("sum_m")
	count_t(25)=count_t(25)+1
	case "蛇"
	sum_money(26)=sum_money(26)+Count_rs("sum_m")
	count_t(26)=count_t(26)+1
	case "马"
	sum_money(27)=sum_money(27)+Count_rs("sum_m")
	count_t(27)=count_t(27)+1
	'response.write Count_rs("sum_m")&"<br>"&sum_money(50)
	case "羊"
	sum_money(28)=sum_money(28)+Count_rs("sum_m")
	count_t(28)=count_t(28)+1
	case "猴"
	sum_money(29)=sum_money(29)+Count_rs("sum_m")
	count_t(29)=count_t(29)+1
	case "鸡"
	sum_money(30)=sum_money(30)+Count_rs("sum_m")
	count_t(30)=count_t(30)+1
	case "狗"
	sum_money(31)=sum_money(31)+Count_rs("sum_m")
	count_t(31)=count_t(31)+1
	case "猪"
	sum_money(32)=sum_money(32)+Count_rs("sum_m")
	count_t(32)=count_t(32)+1
	end select
case "色波"
	select case trim(Count_rs("chilp_value"))
	case "红波"
	sum_money(13)=sum_money(13)+Count_rs("sum_m")
	count_t(13)=count_t(13)+1
	case "绿波"
	sum_money(14)=sum_money(14)+Count_rs("sum_m")
	count_t(14)=count_t(14)+1
	case "蓝波"
	sum_money(15)=sum_money(15)+Count_rs("sum_m")
	count_t(15)=count_t(15)+1
	end select
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='色波' 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
 %>
 <!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 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>
12 下一页
💿 文件大小 1123 K
👤 上传用户 liubixing
📂 所属分类数据库系统
🏷️ 相关标签

#读写
⌨️ 快捷键说明

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