mem_dt_act.asp

1。超强文件读写锁定

<!--#include file="../manage/mConn.asp"-->
<!--#include file="../manage/mConst.asp"-->
<%
If Session("SK2B")="" Then
  Response.Redirect "888_Login.Asp"
  Response.End
End If

Dim rids,rid,war_set_1,SC,SO
  rids=Request.Form("rids")
  rid=cLng(Request.Form("rid"))
  war_set_1=Request.Form("war_set_1")
  SC=cLng(Request.Form("SC"))
  SO=cLng(Request.Form("SO"))

Dim Rs6
  Set Rs6=Server.CreateObject("adodb.Recordset")

  Set Rs6=Conn.Execute("select Top 1 manager,memed from m_member where Login_Name in (select Top 1 accounts from m_quota where ID="&rid&")")
  If Rs6.Eof Then
    Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('非法参数!');location.href='index_member.asp'</script>")
	Response.End
  End If
  Dim Member_manager,Member_mem,Member_items
    Member_manager=Rs6("manager")
	Member_mem=Rs6("memed")


  Set Rs6=Conn.Execute("select Top 1 items from m_quota where ID="&rid)
  If Rs6.Eof Then
    Set Rs6=Nothing
	Response.Write ("<script language=javascript>alert('非法参数!');location.href='index_member.asp'</script>")
	Response.End
  End If

  Member_items=Rs6("items")
  Set Rs6=Conn.Execute("select Top 1 items,Rake_A,Rake_B,Rake_C,odd_numbers,odd_stock from m_quota where items='"&Member_items&"' And accounts = '"&Member_manager&"'")
  If Not Rs6.Eof Then

    If SC>Rs6("odd_numbers") Then
      Set Rs6=Nothing
	  Response.Write ("<script language=javascript>alert('单项限额大于上限!');history.go(-1)</script>")
	  Response.End
	End If

	If SO>Rs6("odd_stock") Then
      Set Rs6=Nothing
	  Response.Write ("<script language=javascript>alert('单注限额大于上限!');history.go(-1)</script>")
	  Response.End
	End If
  
  Select Case Member_mem
     Case "a"
       Set Rs6=Conn.Execute("update m_quota set Rake_A="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
	 Case "b"
	   Set Rs6=Conn.Execute("update m_quota set Rake_B="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
	 Case "c"
	   Set Rs6=Conn.Execute("update m_quota set Rake_C="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
  End Select
  Set Rs6=Nothing

  Response.Redirect "userdt.asp?rid="&rids

  End If

  Select Case Member_mem
     Case "a"
       Set Rs6=Conn.Execute("update m_quota set Rake_A="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
	 Case "b"
	   Set Rs6=Conn.Execute("update m_quota set Rake_B="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
	 Case "c"
	   Set Rs6=Conn.Execute("update m_quota set Rake_C="&war_set_1&",odd_numbers="&SC&",odd_stock="&SO&" Where ID="&rid)
  End Select
  Set Rs6=Nothing

  Response.Redirect "userdt.asp?rid="&rids
%>