system_oper.asp

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

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="sk2.asp"-->
<%
 If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
Get_Kithe_Para
Select Case Request("K6")
  Case "K1"
    K1
Case "K11"
    K11
Case "K111"
    K111
  Case "K2"
    K2
  Case "K3"
    K3
  Case "K4"
    K4
  Case "K5"
    K5
  Case "K6"
    K6
	Case "K7"
    K7
	Case "K8"
    K8
  
  Case Else
    Response.Redirect "Index.asp"
    Response.End
End Select


Sub K1
	
	If Not IsDate(Request.Form("tray_time")) Then
	  Response.Write ("<script language=javascript>alert('填写的日期错误');history.go(-1)</script>")
	  Response.End
	End If
	If Not IsDate(Request.Form("opentime")) Then
	  Response.Write ("<script language=javascript>alert('填写的日期错误');history.go(-1)</script>")
	  Response.End
	End If
	
	Dim tray_time
	  tray_time=Request.Form("tray_time")

 opentime=request("opentime")
	  pp=request("pp")
Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_time='"&tray_time&"',opentime='"&opentime&"',pp='"&pp&"',tm='"&request("tm")&"',tm1='"&request("tm1")&"',tm2='"&request("tm2")&"',tm3='"&request("tm3")&"'")
  Set Rs6=Nothing
  
'特别号  
Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=1 To 49
	If I<10 Then
	sql1="select * from m_rate where  item_name='特别号' and item_value='0"&I&"'   order by id desc"
	else
	sql1="select * from m_rate where  item_name='特别号' and item_value='"&I&"'   order by id desc"
	end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm")
	
If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='0"&I&"'")
	  Else
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='"&I&"'")
	  End If
	  
	Next	
Set Rs6=Nothing
 '结束特别号 
 
 '正码  
Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=1 To 49
	If I<10 Then
	sql1="select * from m_rate where  item_name='正码' and item_value='0"&I&"'   order by id desc"
	else
	sql1="select * from m_rate where  item_name='正码' and item_value='"&I&"'   order by id desc"
	end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm2")
	
If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='0"&I&"'")
	  Else
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='"&I&"'")
	  End If
	  
	Next	
Set Rs6=Nothing
 '结束正码 

  '特别号  
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='单'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='单'")
Set Rs6=Nothing

Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='双'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='双'")
Set Rs6=Nothing
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='大'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='大'")
Set Rs6=Nothing
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='小'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='小'")
Set Rs6=Nothing
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='合单'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='合单'")
Set Rs6=Nothing
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='特别号' and item_value='合双'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm1")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='特别号B' and item_value='合双'")
Set Rs6=Nothing

Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='正码' and item_value='总单'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm3")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='总单'")
Set Rs6=Nothing

Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='正码' and item_value='总双'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm3")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='总双'")
Set Rs6=Nothing

Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='正码' and item_value='总大'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm3")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='总大'")
Set Rs6=Nothing
Set Rs6=Server.CreateObject("Adodb.RecordSet")
sql1="select * from m_rate where  item_name='正码' and item_value='总小'   order by id desc"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
zu=rs1("current_rate")
end if
zu=zu+request("tm3")
Set Rs6=Conn.Execute("update m_rate set current_rate="&zu&",rate="&zu&" where item_name='正码B' and item_value='总小'")
Set Rs6=Nothing

 '结束特别号 
Response.Redirect "index_system.asp"
End Sub

Sub K11
	
	If Request.Form("jm")="" Then
	  Response.Write ("<script language=javascript>alert('填写的金额错误');history.go(-1)</script>")
	  Response.End
	End If

	Dim jm
	  jm=Request.Form("jm")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set jm="&jm&"")
  Set Rs6=Nothing

  Response.Redirect "tm.asp"

End Sub
Sub K111
	
	If Not IsDate(Request.Form("tray_time")) Then
	  Response.Write ("<script language=javascript>alert('填写的日期错误');history.go(-1)</script>")
	  Response.End
	End If
	
		If Not IsDate(Request.Form("opentime")) Then
	  Response.Write ("<script language=javascript>alert('填写的日期错误');history.go(-1)</script>")
	  Response.End
	End If

	Dim tray_time
	  tray_time=Request.Form("tray_time")
	  opentime=request("opentime")
	  pp=request("pp")
	 

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_time='"&tray_time&"',opentime='"&opentime&"',pp='"&pp&"'")
  Set Rs6=Nothing

  Response.Redirect "index_main.asp"

End Sub

Sub K2
  If CheckStr(Request.Form("affice"))="" or CheckStr(Request.Form("affice2"))="" Then
	  Response.Write ("<script language=javascript>alert('公告不能留空!');history.go(-1)</script>")
	  Response.End
  End If

  Dim affice,affice2
   affice=Request.Form("affice")
  affice2=Request.Form("affice2")
  Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set affice='"&affice&"',affice2='"&affice2&"'")
  Set Rs6=Nothing

  Response.Redirect "system_affice.asp"
End Sub

Sub K3
 
   
   Dim rid,drop_name,rate,ratedrop,I
    rid=split(Request.Form("drop_id"),",")
	drop_name=split(Request.Form("drop_name"),",")
	rate=split(Request.Form("rate"),",")
	ratedrop=split(Request.Form("ratedrop"),",")
	low_drop=split(Request.Form("low_drop"),",")

  For I=0 To Ubound(rid)
    If Not Isnumeric(rate(I)) Then
	 Response.Write ("<script language=javascript>alert('"&drop_name(I)&"的数值填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If

	If Not Isnumeric(ratedrop(I)) Then
     Response.Write ("<script language=javascript>alert('"&drop_name(I)&"的下调赔率填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If
	
	If Not Isnumeric(low_drop(I)) Then
     Response.Write ("<script language=javascript>alert('"&low_drop(I)&"的下调赔率填写有误，请输入数字！');history.go(-1)</script>")
	 Response.End
	End If
  Next


   Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=0 To Ubound(rid)
	  Set Rs6=Conn.Execute("Update m_drop Set drop_value="&rate(I)&",drop_unit="&ratedrop(I)&",low_drop="&low_drop(I)&" where ID="&rid(I))
    Next
    Set Rs6=Nothing

	Response.Redirect "system_autodrop.asp"
End Sub

Sub K4
 Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_member set current_credit=Credits")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('恢复成功！');location.href='system_remem.asp'</script>")
End Sub

Sub K5
 	If Not IsNumeric(Request.Form("issue")) Then
	  Response.Write ("<script language=javascript>alert('填写的期数不是数字');history.go(-1)</script>")
	  Response.End
	End If
if cint(Request.Form("issue"))>=cint(Current_Kithe_num) then
Response.Write ("<script language=javascript>alert('当前期不能删除');history.go(-1)</script>")
	  Response.End
	End If
	Dim issue
	  issue=Request.Form("issue")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Delete From m_mark Where Kithe="&issue&"")
  Set Rs6=Conn.Execute("Delete From m_chilp Where Kithe="&issue&"")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('删除完成!');location.href='system_clear.asp'</script>")

End Sub

Sub K6
  If Not IsNumeric(Request("switch")) Then
	  Response.Write ("<script language=javascript>alert('非法参数!');history.go(-1)</script>")
	  Response.End
  End If
  Dim switch
  switch=Request.QueryString("switch")
if switch=0 then
Set Rs6=Conn.Execute("Update m_config Set tray_show3="&switch&"")
show=1
Set Rs6=Conn.Execute("Update m_config Set tray_show2="&show&"")
else
show=0
end if
Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_switch="&switch&"")
  Set Rs6=Conn.Execute("Update open_on Set del_flag="&switch&"")
  Set Rs6=Nothing
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_show="&show&"")
  Set Rs6=Nothing

  Response.Redirect "index_main.asp"

End Sub
Sub K7
  If Not IsNumeric(Request("switch")) Then
	  Response.Write ("<script language=javascript>alert('非法参数!');history.go(-1)</script>")
	  Response.End
  End If
  Dim switch
  switch=Request.QueryString("switch")

Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_config Set tray_show="&switch&"")

  Set Rs6=Nothing

  Response.Redirect "index_Kithe.asp"

End Sub

Sub K8
 Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate set current_rate=rate")
  Set Rs6=Nothing

  Response.Write ("<script language=javascript>alert('恢复成功！');location.href='system_remem.asp'</script>")
End Sub
%>