?? edit_kithe_result.asp
字號(hào):
<%
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('非法參數(shù)!');history.go(-1)</script>")
Response.End
End If
If CLng(Request.Form("KitID"))=0 Then
Response.Write("<script language=javascript>alert('非法參數(shù)!');history.go(-1)</script>")
Response.End
End If
If Not IsDate(Request.Form("time1")) Then
Response.Write("<script language=javascript>alert('請(qǐng)?zhí)顚?xiě)正確的日期!');history.go(-1)</script>")
Response.End
End If
If CheckStr(Request.Form("Num"))="" Then
Response.Write("<script language=javascript>alert('請(qǐng)您填寫(xiě)平碼特碼!');history.go(-1)</script>")
Response.End
End If
If isnumeric(Request.Form("NumQ")) and Request.Form("NumQ")="" Then
Response.Write("<script language=javascript>alert('請(qǐng)您填寫(xiě)正確的期數(shù)!');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"
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -