rate_save.asp

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

ASP
729 行
字号
123
<!--#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
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
Select Case Request("K6")
  Case "K1"
    K1
 Case "K12"
    K12
  Case "K2"
    K2
  Case "K21"
    K21
  Case "K3"
    K3
  Case "K4"
    K4
  Case "K5"
    K5
  Case "K6"
    K6
  Case "K7"
    K7
  Case "K8"
    K8
  Case "K9"
    K9
	 Case "K11"
    K11
	 Case "K10"
    K10
  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

 If I<10 Then
       Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("Num_"&I)+tm&" where item_name='特别号B' and item_value='0"&I&"'")
	  Else
	   Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("Num_"&I)+tm&" where item_name='特别号B' 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 K12
  
  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='特别号B' and item_value='0"&I&"'")
	  Else
	   Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("Num_"&I)&" where item_name='特别号B' and item_value='"&I&"'")
	  End If
	  response.Write "update m_rate set current_rate="&Request.Form("Num_"&I)&" where item_name='特别号B' and item_value='"&I&"'"
	Next
	
  Set Rs6=Nothing
  Response.Redirect "index_rateB.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
  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=Conn.Execute("update m_rate set current_rate="&Request.Form("t_signle")+tm1&" where item_name='特别号B' and item_value='单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_double")+tm1&" where item_name='特别号B' and item_value='双'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_big")+tm1&" where item_name='特别号B' and item_value='大'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_small")+tm1&" where item_name='特别号B' and item_value='小'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_signle")+tm1&" where item_name='特别号B' and item_value='合单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_double")+tm1&" where item_name='特别号B' and item_value='合双'")
  
  Set Rs6=Nothing





  Response.Redirect "index_rate.asp"

End Sub

Sub K21
  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
  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='特别号B' and item_value='单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_double")&" where item_name='特别号B' and item_value='双'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_big")&" where item_name='特别号B' and item_value='大'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("t_small")&" where item_name='特别号B' and item_value='小'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_signle")&" where item_name='特别号B' and item_value='合单'")
  Set Rs6=Conn.Execute("update m_rate set current_rate="&Request.Form("h_double")&" where item_name='特别号B' and item_value='合双'")
  
  Set Rs6=Nothing





  Response.Redirect "index_rateB.asp"

End Sub

Sub K3
123

rate_save.asp - 源码说明

本页面展示了「买来的六合彩在线投注系统可能没有精力管理这些程序了PHP+mysql」中的 rate_save.asp 源码文件，采用 ASP 编程语言编写，共 729 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与mysql相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?