保存

<% id=request("id") tname=request("tname") zhicheng=request("zhicheng") xueke=request("xueke") shijian=request("shijian") danwei=request("danwei") set RsPlan=server.createobject("adodb.recordset") if id="" then RsPlansql="select * from EmployeeZYJS where (id is null)" RsPlan.open RsPlansql,conn,1,3 RsPlan.addnew else set RsPlan=server.createobject("adodb.recordset") RsPlansql="select * from EmployeeZYJS where id='"&ID&"'" RsPlan.open RsPlansql,conn,1,3 end if RsPlan("tname")=tname RsPlan("专业技术职称")=zhicheng RsPlan("学科")=xueke RsPlan("评定时间")=shijian RsPlan("认定单位")=danwei RsPlan.update RsPlan.close set RsPlan=nothing conn.close set conn=nothing response.redirect "zhuanyejishu.asp?tname="&tname %>