新建事务

<% cid=request("cid") dtondate=request("dtondate") CAL_HOUR=request("CAL_HOUR") CAL_MIN=request("CAL_MIN") title=request("title") CONTENT=request("CONTENT") set RsPlan=server.createobject("adodb.recordset") if cid="" then RsPlansql="select * from CalendarPlan where (cid is null)" RsPlan.open RsPlansql,conn,1,3 RsPlan.addnew else set RsPlan=server.createobject("adodb.recordset") RsPlansql="select * from CalendarPlan where cid='"&cID&"'" RsPlan.open RsPlansql,conn,1,3 end if RsPlan("curDate")=dtondate RsPlan("beginTime")=CAL_HOUR&":"&CAL_MIN RsPlan("PlanType")="个人事务" RsPlan("title")=title RsPlan("planValue")=CONTENT RsPlan("planMan")=request.cookies("tname") RsPlan("username")=request.cookies("tname") RsPlan("begindatetime")=dtondate&" "&CAL_HOUR&":"&CAL_MIN&":00" RsPlan.update RsPlan.close set RsPlan=nothing conn.close set conn=nothing response.redirect "manage.asp?dtondate="&dtondate %>
保存成功