edit_kithe_result.asp

1。超强文件读写锁定

<%
If Session("SK2Admin")="" Then
  Response.Redirect "Admin_Login.Asp"
  Response.End
End If
%>
<!--#include file="mConn.asp"-->
<!--#include file="mConst.asp"-->
<%
If Not ChkPost Then
 Response.Write("<script language=javascript>alert('非法操作！');history.go(-1)</script>")
 Response.End
End If

  If Not IsNumeric(Request.Form("KitID")) Then
    Response.Write("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
	Response.End
  End If

  If CLng(Request.Form("KitID"))=0 Then
    Response.Write("<script language=javascript>alert('非法参数！');history.go(-1)</script>")
	Response.End
  End If

If Not IsDate(Request.Form("time1")) Then
    Response.Write("<script language=javascript>alert('请填写正确的日期！');history.go(-1)</script>")
	Response.End
  End If

If CheckStr(Request.Form("Num"))="" Then
 Response.Write("<script language=javascript>alert('请您填写平码特码！');history.go(-1)</script>")
 Response.End
End If

If isnumeric(Request.Form("NumQ")) and Request.Form("NumQ")="" Then
 Response.Write("<script language=javascript>alert('请您填写正确的期数！');history.go(-1)</script>")
 Response.End
End If

Dim KitID,time1,Num
  KitID=CLng(Request.Form("KitID"))
  Num=Split(CheckStr(Request.Form("Num")),",")
  time1=Request.Form("time1")
  NumQ=Request.Form("NumQ")


Dim mRs
 Set mRs=Server.CreateObject("Adodb.RecordSet")
 Set mRs=Conn.Execute("Update m_Kithe Set ND='"&time1&"',NN='"&NumQ&"',NA="&Num(6)&",N1="&Num(0)&",N2="&Num(1)&",N3="&Num(2)&",N4="&Num(3)&",N5="&Num(4)&",N6="&Num(5)&" Where ID="&KitID)
 Set mRs=Nothing
 Response.Redirect "Index_Kithe.Asp"
%>