rate_save.asp

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

  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
	  
	   If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("Num_"&I)+tm2&",current_rate="&Request.Form("Num_"&I)+tm2&" where item_name='正码B' and item_value='0"&I&"'")
	  Else
	   Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("Num_"&I)+tm2&",current_rate="&Request.Form("Num_"&I)+tm2&" where item_name='正码B' 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_name='正码' and item_value='总单'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_double")&",current_rate="&Request.Form("z_double")&" where item_name='正码' and item_value='总双'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_big")&",current_rate="&Request.Form("z_big")&" where item_name='正码' and item_value='总大'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_small")&",current_rate="&Request.Form("z_small")&" where item_name='正码' and item_value='总小'")
  
   Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_single")+tm3&",current_rate="&Request.Form("z_single")+tm3&" where item_name='正码B' and item_value='总单'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_double")+tm3&",current_rate="&Request.Form("z_double")+tm3&" where item_name='正码B' and item_value='总双'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_big")+tm3&",current_rate="&Request.Form("z_big")+tm3&" where item_name='正码B' and item_value='总大'")
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("z_small")+tm3&",current_rate="&Request.Form("z_small")+tm3&" where item_name='正码B' 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

  For I=1 To 7
    'Response.Write Request.Form("lm"&I)&"<br>"
    If Not Isnumeric(Request.Form("lm"&I)) Then
	  Response.Write ("<script language=javascript>alert('连码的第"&I&"列有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If
  Next
' Response.Redirect "rate_join.asp"
' Response.End
 Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
  

    For J=1 To 7
	 Select Case J
	   Case 1
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='二全中'")
	   Case 2
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='二中特' and item_value='中特'")
	   Case 3
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='二中特' and item_value='中二'")
	   Case 4
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='特串'")
	  Case 5
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='三全中'")
	  Case 6
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='三中二' and item_value='中二'")
	  Case 7
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("lm"&J)&",current_rate="&Request.Form("lm"&J)&" where item_name='三中二' and item_value='中三'")
    End Select	   

  Next

  Response.Redirect "rate_join.asp"

End Sub

Sub K6
  For I=1 To 12
    If Not Isnumeric(Request.Form("s"&I)) Then
	  Response.Write ("<script language=javascript>alert('生肖的第"&I&"个框有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If
  Next

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

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

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

 Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
  For I=1 To 14
    Select Case I
	   Case 1
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='鼠'")
	   Case 2
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='虎'")
	   Case 3
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='龙'")
	   Case 4
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='马'")
	  Case 5
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='猴'")
	  Case 6
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='狗'")
	  Case 7
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='牛'")
	   Case 8
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='兔'")
	   Case 9
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='蛇'")
	   Case 10
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='羊'")
	  Case 11
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='鸡'")
	  Case 12
         Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("s"&I)&",current_rate="&Request.Form("s"&I)&" where item_sort='十二生肖' and item_value='猪'")
		 
    End Select
  Next
  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("red_wave")&",current_rate="&Request.Form("red_wave")&" where item_sort='色波' and item_value='红波'")

  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("green_wave")&",current_rate="&Request.Form("green_wave")&" where item_sort='色波' and item_value='绿波'")

  Set Rs6=Conn.Execute("update m_rate set rate="&Request.Form("blue_wave")&",current_rate="&Request.Form("blue_wave")&" where item_sort='色波' and item_value='蓝波'")

  Response.Redirect "rate_12.asp"
End Sub

Sub K7
    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='正码过关'")
	   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='正码过关'")
	   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='正码过关'")
	   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='正码过关'")
	  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='正码过关'")
	  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='正码过关'")
	  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='正码过关'")
    End Select	   

	Next
  Next
	Response.Redirect "rate_justpass.asp"

End Sub

Sub K8
  For I=1 To 12
    If Not Isnumeric(Request.Form("s"&I)) Then
	  Response.Write ("<script language=javascript>alert('生肖的第"&I&"个框有误，请输入数字！');history.go(-1)</script>")
	  Response.End
	End If