resave.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
session("id")=request.cookies("oabusyname")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='../../default.asp';")
	response.write("</script>")
	response.end
end if
%>

<!-- #include file="../inc/css.asp" -->
<%	
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3
	

	  		rs.open("select * from newrebbs where false")
			rs.Addnew
			getvalueto rs
			if request("iadd")="yes" then rs("vtext")=rs("vtext") & "<br><br>" & session("iAdd")
			rs.Update

	session("conn").execute "update newbbs set vre=vre+1 where id=" & request("vtopic")
	session("conn").execute "update newbbs set vtime=#" & nowdate & "# where id=" & request("vtopic")
	
	rs.close
	set rs=nothing

	response.redirect "main.asp"
%>