ag_dt_act.asp

1。超强文件读写锁定

<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If

  Dim P_AgentID,aid,war_set_1,war_set_2,war_set_3,SC,SO,grade

  P_AgentID=CheckStr(Request.Form("P_AgentID"))
  aid=cLng(Request.Form("aid"))
  war_set_1=FormatNumber(Request.Form("war_set_1"),2)
  war_set_2=FormatNumber(Request.Form("war_set_2"),2)
  war_set_3=FormatNumber(Request.Form("war_set_3"),2)
  SC=cLng(Request.Form("SC"))
  SO=cLng(Request.Form("SO"))
  grade=cInt(Request.Form("grade"))

 Dim Rs6
    Set Rs6=Server.CreateObject("adodb.Recordset")
 If grade=1 Then
   Dim items,c_numbers,c_stock
   c_numbers=0:c_stock=0
   Set Rs6=Conn.Execute("Select Top 1 items,odd_numbers,odd_stock From m_quota Where ID="&aid&" Order By ID Desc")
   If Not Rs6.Eof Then
     items=Rs6("items")
	 c_numbers=Rs6("odd_numbers")
	 c_stock=Rs6("odd_stock")
   End If
   
   Dim odd_numbers,odd_stock
   odd_numbers=0:odd_stock=0
   Set Rs6=Conn.Execute("Select odd_numbers,odd_stock From m_quota Where accounts in (Select Login_Name From m_agent Where ID in (Select Top 1 P_AgentID From m_agent Where Login_Name='"&P_AgentID&"')) And items='"&items&"'")
   If Not Rs6.Eof Then
    odd_numbers=Rs6("odd_numbers")
    odd_stock=Rs6("odd_stock")
   End If
%>   
   <!--Dim cCount,oCount
   Set Rs6=Conn.Execute("Select Sum(odd_numbers) As cCount,Sum(odd_stock) As oCount From m_quota Where accounts in (Select Login_Name From m_agent Where P_AgentID in (Select Top 1 P_AgentID From m_agent Where Login_Name='"&P_AgentID&"')) And items='"&items&"'")
   If Isnull(Rs6("cCount")) Then
     cCount=0
   Else
     cCount=Rs6("cCount")
   End If
   If Isnull(Rs6("oCount")) Then
     oCount=0
   Else
     oCount=Rs6("oCount")
   End If
   cCount=cCount-c_numbers+SC
   oCount=oCount-c_stock+SO
   -->
<%

   If odd_numbers<SC Then
     Set Rs6=Nothing
     Response.Write ("<script language=javascript>alert('单项(号)限额超出上限！');history.go(-1)</script>")
	 Response.End
   End If
   If odd_stock<SO Then
     Set Rs6=Nothing
     Response.Write ("<script language=javascript>alert('单注限额超出上限！');history.go(-1)</script>")
	 Response.End
   End If

 End If


	Set Rs6=Conn.Execute("update m_quota set Rake_A="&war_set_1&",Rake_B="&war_set_2&",Rake_C="&war_set_3&",odd_numbers="&SC&",odd_stock="&SO&" where ID="&aid)
	Set Rs6=Nothing

   Response.Redirect "ag_dt.asp?P_AgentID="&P_AgentID
%>