system_rate_act.asp

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

<!--#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
Set Rs6=Conn.Execute("Select Top 1 * from m_config")
    If Not Rs6.Eof Then
      tm=Rs6("tm")
	  tm1=Rs6("tm1")
      tm2=Rs6("tm2")
	  tm3=Rs6("tm3")
    End If
Get_Kithe_Para
Select Case Request("K6")
  Case "K1"
    K1
  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 isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and  item_name='特别号' and item_value<>'单' and item_value<>'双' and item_value<>'大' and item_value<>'小' and item_value<>'合单' and item_value<>'合双'")
   Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate+tm&",rate="&T_rate+tm&" where item_sort='特别号' and item_name='特别号B' and item_value<>'单' and item_value<>'双' and item_value<>'大' and item_value<>'小' and item_value<>'合单' and item_value<>'合双'")
  Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
	  Response.End
  Response.Redirect "system_rate.asp"

End Sub

Sub K2
  If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
	
	'response.write values
  	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='色波' and item_value='红波' ")
	'response.write "Update m_rate Set current_rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"'"&"<br>"
	
  Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
	  Response.End
  Response.Redirect "system_rate.asp"
End Sub

Sub K3
 
   If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='色波' and item_value='绿波' ")
  Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
	  Response.End
  Response.Redirect "system_rate.asp"
End Sub

Sub K4
 If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='色波' and item_value='蓝波' ")
	
  Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
	  Response.End
  Response.Redirect "system_rate.asp"
End Sub


Sub K5
	If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and  item_value='大' ")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate+tm1&",rate="&T_rate+tm1&" where item_sort='特别号B' and  item_value='大' ")
  Set Rs6=Nothing
  Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
  Response.End
  Response.Redirect "system_rate.asp"

End Sub



Sub K6
	If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and  item_value='小' ")
   Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate+tm1&",rate="&T_rate+tm1&" where item_sort='特别号B' and  item_value='小' ")
  Set Rs6=Nothing
  Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
  Response.End
  Response.Redirect "system_rate.asp"

End Sub

Sub K7
	If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and item_value='单' ")
     Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate+tm1&",rate="&T_rate+tm1&" where item_sort='特别号B' and  item_value='单' ")
  Set Rs6=Nothing
  Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
  Response.End
  Response.Redirect "system_rate.asp"

End Sub


Sub K8
	If Not isnumeric(Request.Form("T_rate")) Then
	  Response.Write ("<script language=javascript>alert('赔率填写错误');history.go(-1)</script>")
	  Response.End
	End If
	T_rate=Request.Form("T_rate")
	Dim Rs6
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and  item_value='双' ")
     Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate+tm1&",rate="&T_rate+tm1&" where item_sort='特别号B' and  item_value='双' ")
  Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('修改成功');history.go(-1)</script>")
	  Response.End
  Response.Redirect "system_rate.asp"

End Sub
%>