system_rate_act.asp

1。超强文件读写锁定

<!--#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
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_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
	Set Rs6=Conn.Execute("Select ID,color From m_color Order By ID")
	If Not Rs6.Eof Then
 	  Get_Para_Color=Rs6.GetRows(-1)
	End If
	Set Rs6=Server.CreateObject("Adodb.RecordSet")
	for i=0 to 48
	if  trim(cstr(Get_Para_Color(1,i)))="r" then
	if i<10 then
	values="0"&cstr(i+1)
	else
	values=cstr(i+1)
	end if
	'response.write values
  	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"' ")
	'response.write "Update m_rate Set current_rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"'"&"<br>"
	end if
	next
  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("Select ID,color From m_color Order By ID")
	If Not Rs6.Eof Then
 	  Get_Para_Color=Rs6.GetRows(-1)
	End If
	Set Rs6=Server.CreateObject("Adodb.RecordSet")
	for i=0 to 48
	if  trim(cstr(Get_Para_Color(1,i)))="g" then
	if i<10 then
	values="0"&cstr(i+1)
	else
	values=cstr(i+1)
	end if
	'response.write values
  	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"' ")
	'response.write "Update m_rate Set current_rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"'"&"<br>"
	end if
	next
  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("Select ID,color From m_color Order By ID")
	If Not Rs6.Eof Then
 	  Get_Para_Color=Rs6.GetRows(-1)
	End If
	Set Rs6=Server.CreateObject("Adodb.RecordSet")
	for i=0 to 48
	if  trim(cstr(Get_Para_Color(1,i)))="b" then
	if i<10 then
	values="0"&cstr(i+1)
	else
	values=cstr(i+1)
	end if
	'response.write values
  	Set Rs6=Conn.Execute("Update m_rate Set current_rate="&T_rate&",rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"' ")
	'response.write "Update m_rate Set current_rate="&T_rate&" where item_sort='特别号' and item_value='"&values&"'"&"<br>"
	end if
	next
  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 ISNUMERIC(item_value)=1 And  item_sort='特别号' And Cast(item_value As int)>=25 And Cast(item_value As int)<>49 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 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 ISNUMERIC(item_value)=1 And  item_sort='特别号' And Cast(item_value As int)<=24 And Cast(item_value As int)<>49 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 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 ISNUMERIC(item_value)=1 And  item_sort='特别号' And Cast(Cast(item_value As float)/2 As int)<>(Cast(item_value As float)/2) and cast(item_value as int)<>49 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 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 ISNUMERIC(item_value)=1 And  item_sort='特别号' And Cast(Cast(item_value As float)/2 As int)=(Cast(item_value As float)/2) and cast(item_value as int)<>49 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
%>