kithe_num.asp

1。超强文件读写锁定

<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
Select Case Request.QueryString("K6")
  Case "K6"
    K6
  Case "K1"
    K1
  Case Else
    Response.Write ("<script language=javascript>history.go(-1)</script>")
End Select

Sub K1


Dim Issue,Num
  Issue=CLng(Request.Form("Issue"))
  Num=CheckStr(Request.Form("Num"))

If Num="" Then
    Response.Write("<script language=javascript>alert('对不起，内容不能留空！');history.go(-1)</script>")
    Response.End
End If

If cInt(Num)<1 Or cInt(Num)>49 Then

      Response.Write("<script language=javascript>alert('对不起，所填最大值不能超过49,最小值不能小于1！');history.go(-1)</script>")
      Response.End
End If
dim Rs5
   Set Rs6=Conn.Execute("Insert into m_Kithe (NN,ND,NA,N1,N2,N3,N4,N5,N6) values ("&Issue&",GetDate(),0,"&Num&",0,0,0,0,0)")
   Set Rs5=Conn.Execute("update m_config set tray_show=1,tray_show2=1,tray_show3=1")
   Set Rs6=Nothing
   Response.Redirect "This_Kithe.asp"
   'response.Write "update m_config set tray_show=1,tray_show2=0,tray_show3=1"
   Response.End
End Sub


Sub K6
 Dim Issue,Num
  Issue=CLng(Request.Form("Issue"))
  Num=Split(CheckStr(Request.Form("Num")),",")
  'response.Write Request.Form("Issue")
if cint(Request.Form("Issue"))=1 then
  		  For I=0 To 6
    If Not Isnumeric(request("num"&i)) Then
	  Response.Write("<script language=javascript>alert('对不起，您只能填写数字！');history.go(-1)</script>")
      Response.End
	End If

	If cint(request("Num"&i))<1 Or cint(request("Num"&i))>49 Then
	response.Write request("Num"&i)&"<br>"
      Response.Write("<script language=javascript>alert('对不起，所填最大值不能超过49,最小值不能小于1！');history.go(-1)</script>")
      Response.End
	End If
  	Next
 		Set Rs6=Conn.Execute("Insert into m_Kithe (NN,ND,NA,N1,N2,N3,N4,N5,N6) values ("&Issue&",GetDate(),'"&request("num7")&"','"&request("num1")&"','"&request("num2")&"','"&request("num3")&"','"&request("num4")&"','"&request("num5")&"','"&request("num6")&"')")
  		Set Rs6=Nothing  
else
  Dim I
  For I=0 To Ubound(Num)
    If Not Isnumeric(Num(I)) Then
	  Response.Write("<script language=javascript>alert('对不起，您只能填写数字！');history.go(-1)</script>")
      Response.End
	End If

	If Num(I)<1 Or Num(I)>49 Then
      Response.Write("<script language=javascript>alert('对不起，所填最大值不能超过49,最小值不能小于1！');history.go(-1)</script>")
      Response.End
	End If
  Next

	Dim m,n
  For m=0 To Ubound(Num)-1
    For n=m+1 To Ubound(Num)
      If Num(m)=Num(n) Then
	    Response.Write("<script language=javascript>alert('任可两项不可相同！');history.go(-1)</script>")
        Response.End
	  End If
	Next
  Next

Dim Rs6,SQL6
  SQL6="update m_Kithe set "

  For I=0 To Ubound(Num)-1
    SQL6=SQL6&"N"&I+1&"="&Num(I)&","
  Next

  If I<6 And I=Ubound(Num) Then
    SQL6=SQL6&"N"&I+1&"="&Num(Ubound(Num))
  End If

  If Ubound(Num)=6 Then
    SQL6=SQL6&"NA="&Num(Ubound(Num))
	Set Rs5=Conn.Execute("update m_config set tray_show2=0")
	Set Rs5=Conn.Execute("update m_rate set wager_gold=0")
  End If
  
  SQL6=SQL6&" where NN="&Issue
	Set Rs5=Conn.Execute("update m_config set tray_show3=1")
  Set Rs6=Server.CreateObject("Adodb.RecordSet")
  Set Rs6=Conn.Execute(SQL6)
  Set Rs6=Nothing

    Response.Redirect "This_Kithe.asp"
   Response.End
 end if
End Sub
%>