rate_save.asp

ASP-六合在线投注系统,绝对好用

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<!--#include file="Number_Info.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If

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.Write ("<script language=javascript>history.go(-1)</script>")
	Response.End
End Select

Sub K1
  
  For I=1 To 49
    If Not Isnumeric(Request.Form("Num_"&I)) Then
	  Response.Write ("<script language=javascript>alert('"&I&"有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If
  Next

  Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=1 To 49
	  If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("Num_"&I)&" where item_name='特别号' and item_value='0"&I&"'")
	  Else
	   Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("Num_"&I)&" where item_name='特别号' and item_value='"&I&"'")
	  End If
	  response.Write "update m_rate set current_rate="&Request.Form("Num_"&I)&" where item_name='特别号' and item_value='"&I&"'"
	Next
	
  Set Rs6=Nothing
  Response.Redirect "index_rate.asp"
End Sub

Sub K2
  If Not isnumeric(Request.Form("t_signle")) Then
    Response.Write ("<script language=javascript>alert('特单有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  If Not isnumeric(Request.Form("t_double")) Then
    Response.Write ("<script language=javascript>alert('特双有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  If Not isnumeric(Request.Form("t_big")) Then
    Response.Write ("<script language=javascript>alert('特大有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  If Not isnumeric(Request.Form("t_small")) Then
    Response.Write ("<script language=javascript>alert('特小有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  If Not isnumeric(Request.Form("h_signle")) Then
    Response.Write ("<script language=javascript>alert('合单有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  If Not isnumeric(Request.Form("h_double")) Then
    Response.Write ("<script language=javascript>alert('合双有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_signle")&" where item_name='特别号' and item_value='单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_double")&" where item_name='特别号' and item_value='双'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_big")&" where item_name='特别号' and item_value='大'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_small")&" where item_name='特别号' and item_value='小'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_signle")&" where item_name='特别号' and item_value='合单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_double")&" where item_name='特别号' and item_value='合双'")
  
  Set Rs6=Nothing

  Response.Redirect "index_rate.asp"

End Sub

Sub K3

  For I=1 To 49
    If Not Isnumeric(Request.Form("Num_"&I)) Then
	  Response.Write ("<script language=javascript>alert('"&I&"有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If
  Next

  Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
	For I=1 To 49
	  If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("Num_"&I)&",current_rate="&Request.Form("Num_"&I)&" where item_name='正码' and item_value='0"&I&"'")
	  Else
	   Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("Num_"&I)&",current_rate="&Request.Form("Num_"&I)&" where item_name='正码' and item_value='"&I&"'")
	  End If
	Next

  If Not Isnumeric(Request.Form("z_single")) Then
    Response.Write ("<script language=javascript>alert('总单有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If

  If Not Isnumeric(Request.Form("z_double")) Then
    Response.Write ("<script language=javascript>alert('总双有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If

  If Not Isnumeric(Request.Form("z_big")) Then
    Response.Write ("<script language=javascript>alert('总大有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If

  If Not Isnumeric(Request.Form("z_small")) Then
    Response.Write ("<script language=javascript>alert('总小有误，请输入数字！');history.go(-1)</script>")
	Response.End
  End If

  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_single")&",current_rate="&Request.Form("z_single")&" where item_sort='正码' and item_value='总单'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_double")&",current_rate="&Request.Form("z_double")&" where item_sort='正码' and item_value='总双'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_big")&",current_rate="&Request.Form("z_big")&" where item_sort='正码' and item_value='总大'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_small")&",current_rate="&Request.Form("z_small")&" where item_sort='正码' and item_value='总小'")

  Set Rs6=Nothing
  Response.Redirect "rate_just.asp"
End Sub 

Sub K4

  For I=1 To 6
    For J=1 To 7
      If Not Isnumeric(Request.Form("z"&I&"_"&J)) Then
	  Response.Write ("<script language=javascript>alert('正码"&I&"的第"&J&"列有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If
	Next
  Next

  Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")

 For I=1 To 6
    For J=1 To 7
	 Select Case J
	   Case 1
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='大' and item_sort='正码1-6'")
	   Case 2
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='小' and item_sort='正码1-6'")
	   Case 3
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='单' and item_sort='正码1-6'")
	   Case 4
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='双' and item_sort='正码1-6'")
	  Case 5
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='红波' and item_sort='正码1-6'")
	  Case 6
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='绿波' and item_sort='正码1-6'")
	  Case 7
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z"&I&"_"&J)&",current_rate="&Request.Form("z"&I&"_"&J)&" where item_name='正码"&I&"' and item_value='蓝波' and item_sort='正码1-6'")
    End Select	   

	Next
  Next
	Response.Redirect "rate_just1-6.asp"

End Sub

Sub K5