保存

<% id=request("id") tname=request("tname") qizhidate=request("qizhidate") danwei=request("danwei") zhiwu=request("zhiwu") zhengmingren=request("zhengmingren") set RsPlan=server.createobject("adodb.recordset") if id="" then RsPlansql="select * from EmployeeGongZuo where (id is null)" RsPlan.open RsPlansql,conn,1,3 RsPlan.addnew else set RsPlan=server.createobject("adodb.recordset") RsPlansql="select * from EmployeeGongZuo where id='"&ID&"'" RsPlan.open RsPlansql,conn,1,3 end if RsPlan("tname")=tname RsPlan("起止年月")=qizhidate RsPlan("单位")=danwei RsPlan("职务")=zhiwu RsPlan("证明人")=zhengmingren RsPlan.update RsPlan.close set RsPlan=nothing conn.close set conn=nothing response.redirect "gongzuo.asp?tname="&tname %>