sk2.asp

1。超强文件读写锁定

<%
  Dim Rs6
   Set Rs6=Server.CreateObject("Adodb.RecordSet")

  Sub Close_Rs6
   Set Rs6=Nothing
  End Sub

  Dim Kithe_Table,Kithe_Sum
   Kithe_Sum=1
  Sub Show_Kithe
    Set Rs6=Conn.Execute("Select ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe Order By ID Desc")
	If Not Rs6.Eof Then
     Kithe_Table=Rs6.GetRows(-1)
	 Kithe_Sum=Ubound(Kithe_Table,2)
	End If
  End Sub

  Dim Kithe_Open,Kithe_OpenTime,Current_Kithe_Num,Current_KitheTable,switch_num,Current_affice

    switch_num=-1:Current_Kithe_Num=1:Kithe_OpenTime=Now()

  Sub Get_Kithe_Para
	
    Set Rs6=Conn.Execute("Select Top 1 ID,NN,ND,NA,N1,N2,N3,N4,N5,N6 From m_Kithe Order By ID Desc")
	If Not Rs6.Eof Then
 	  Current_KitheTable=Rs6.GetRows(1)
	  switch_num=Ubound(Current_KitheTable,2)
	  Current_Kithe_Num=Current_KitheTable(1,0)
      If Current_KitheTable(3,0)=0 Or Current_KitheTable(4,0)=0 Or Current_KitheTable(5,0)=0 Or Current_KitheTable(6,0)=0 Or Current_KitheTable(7,0)=0 Or Current_KitheTable(8,0)=0 Or Current_KitheTable(9,0)=0 Then
		Current_Kithe_Num=Current_KitheTable(1,0)
	  Else
	    Current_Kithe_Num=Current_KitheTable(1,0)+1
	  End If
	End If

   Set Rs6=Conn.Execute("Select Top 1 tray_switch,tray_time,affice from m_config")
   If Not Rs6.Eof Then
      Kithe_Open=Rs6("tray_switch")
	  Kithe_OpenTime=Rs6("tray_time")
	  Current_affice=Rs6("affice")
   Else
      Kithe_Open=0
	  Kithe_OpenTime=Now()
      Set Rs6=Conn.Execute("insert into m_config (tray_switch,tray_time) values ("&Kithe_Open&",'"&Kithe_OpenTime&"')")
   End If
   If DateDiff("n",Kithe_OpenTime,Now())>=0 And DateDiff("n",Kithe_OpenTime,Now())<=1446 Then
   Set Rs6=Conn.Execute("Update m_config Set tray_switch=0")
	Set Rs6=Conn.Execute("Select Top 1 tray_switch,tray_time,affice from m_config")
    If Not Rs6.Eof Then
      Kithe_Open=Rs6("tray_switch")
	  Kithe_OpenTime=Rs6("tray_time")
      Current_affice=Rs6("affice")
    End If
  End if

  End Sub

 Dim UserInfo,UserQuota

  Sub Get_UserInfo
 
    Set Rs6=Conn.Execute("select Login_Name,Login_Pwd,TrueName,Manager,memed,current_credit,stat,dai_zc,zong_zc,guan_zc,Agent_first,Agent_second from m_member where stat=0 And Login_Name='"&Session("SK2User")&"' order by id desc")
	If Rs6.Eof Then
      Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
      Response.End
	End If

	UserInfo=Rs6.GetRows(1)
	'Memed=UserInfo(4,0)
	Dim SQL6
	  SQL6="Select "
	select case UserInfo(4,0)
	  case "a"
	    SQL6=SQL6&"items,Rake_A,odd_numbers,odd_stock"
	  case "b"
        SQL6=SQL6&"items,Rake_B,odd_numbers,odd_stock"
	  case "c"
	    SQL6=SQL6&"items,Rake_C,odd_numbers,odd_stock"
	case else
	SQL6=SQL6&"items,Rake_A,odd_numbers,odd_stock"
    end select

	  SQL6=SQL6&" from m_quota where accounts='"&Session("SK2User")&"'"
    If CheckStr(Request("Current_items"))<>"" Then
       SQL6=SQL6&" and items='"&CheckStr(Request("Current_items"))&"'"
	End If
      SQL6=SQL6&" order by id"
'response.Write SQL6
	Set Rs6=Conn.Execute(SQL6)
	If Rs6.Eof Then
      Set Rs6=Nothing
	End If
	 UserQuota=Rs6.GetRows(-1)
  End Sub

  Dim Current_Rate
  Function Get_Rate(rate_id)  
    Set Rs6=Conn.Execute("select Top 1 item_sort,item_name,item_value,rate,current_rate,wager_gold from m_rate where ID='"&rate_id&"'") 
	If Rs6.Eof Then
      Response.Write ("<script Language=Javascript>alert('Please input username/password and try again!!!');window.open('index.asp','_top');</script>")
      Response.End
	End If
    
	Current_Rate=Rs6.GetRows(1)

  End Function
  
 Function formattime(thetime,ttype)
 thetime=cdate(thetime)
 y=year(thetime)
 m=month(thetime)
 d=day(thetime)
 t=formatdatetime(thetime,vbshorttime)
 s=second(thetime)
  select case trim(ttype)
  case "ymdt"
  if cint(m)<10 then 
  m="0"&m
  end if
  if cint(d)<10 then 
  d="0"&d
  end if
  if cint(s)<10 then 
  s="0"&s
  end if
  response.Write y&"-"&m&"-"&d&" "&t&":"&s
  case "ydm"
  if cint(m)<10 then 
  m="0"&m
  end if
  if cint(d)<10 then 
  d="0"&d
  end if
  if cint(s)<10 then 
  s="0"&s
  end if
  response.Write y&"-"&m&"-"&d
  case "md"
  if cint(m)<10 then 
  m="0"&m
  end if
  if cint(d)<10 then 
  d="0"&d
  end if
  if cint(s)<10 then 
  s="0"&s
  end if
  response.Write m&"-"&d
  case "st"
  response.Write t
  end select 
  End Function
%>