保存

<% id=request("id") tname=request("tname") qizhidate=request("qizhidate") xuexineirong=request("xuexineirong") keshi=request("keshi") xuefen=request("xuefen") xuexididian=request("xuexididian") danwei=request("danwei") set RsPlan=server.createobject("adodb.recordset") if id="" then RsPlansql="select * from EmployeeJixujiaoyu where (id is null)" RsPlan.open RsPlansql,conn,1,3 RsPlan.addnew else set RsPlan=server.createobject("adodb.recordset") RsPlansql="select * from EmployeeJixujiaoyu where id='"&ID&"'" RsPlan.open RsPlansql,conn,1,3 end if RsPlan("tname")=tname RsPlan("起止时间")=qizhidate RsPlan("学习内容")=xuexineirong RsPlan("课时")=keshi RsPlan("学分")=xuefen RsPlan("学习地点")=xuexididian RsPlan("举办单位考核单位")=danwei RsPlan.update RsPlan.close set RsPlan=nothing conn.close set conn=nothing response.redirect "Jixujiaoyu.asp?tname="&tname %>