kq_kqcssz_save.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 45 行

<!--#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>