rate_save.asp

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

  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
  Next

 Dim Rs6
    Set Rs6=Server.CreateObject("Adodb.RecordSet")
  For I=1 To 12
    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
  Response.Redirect "rate_ys.asp"
End Sub
%>