?? kq_kqcssz_save.asp
字號:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->
<%
Response.Expires=0
dim ssbsj,sxbsj,scdsj1,scdsj2,scdsj3,skqyqsbz,skqyqsrq
ssbsj=Request.Form("sbsj")
sxbsj=Request.Form("xbsj")
scdsj1=Request.Form("cdsj1")
scdsj2=Request.Form("cdsj2")
scdsj3=Request.Form("cdsj3")
skqyqsrq=Request.Form("kqyqsrq")
skqyqsbz=Request.Form("kqyqsbz")
if ssbsj="" or not isnumeric(skqyqsrq) then
Response.End
end if
%>
<%
Dim rs
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from kq_csb",oconn,3,2
if not rs.EOF then
rs("sbsj")=ssbsj
rs("xbsj")=sxbsj
rs("cdsj1")=scdsj1
rs("cdsj2")=scdsj2
rs("cdsj3")=scdsj3
rs("kqyqsrq")=skqyqsrq
rs("kqyqsbz")=skqyqsbz
rs.Update
end if
rs.Close
%>
<%
set rs=nothing
oconn.close
set oconn=nothing
%>
<script language=vbscript>
<!--
msgbox "成功保存!",vbInformation,"提示"
history.back
//-->
</script>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -