manage_save_reply.asp

来自「云师大商学院目前正在使用的oa」· ASP 代码 · 共 41 行

<%response.expires=0
 re_content=request("re_content")
   re_content=replace(re_content,"<","&lt;")
   re_content=replace(re_content,">","&gt;")
   re_content=replace(re_content," ","&nbsp;")
   re_content=replace(re_content,chr(13),"<BR>")

 re_department=request("re_department")
 re_time=cstr(now)
 re_advace_id=request("advice_id")%>
<!-- #include file="asp/ynnuci_dbo.asp" -->
 <%sql="update advice set advice_reply=1 where advice_id="&re_advace_id
  dbc.execute (sql)%>

 
 <%set rs=server.createobject("adodb.recordset")
       rs.open"select * from reply",dbc,2,3
	   if not rs.eof then
	   rs.movelast
	   end if
	   
	   rs.addnew
	   rs("re_content")=re_content
	   rs("re_department")=re_department
	   rs("re_time")=re_time
	   rs("re_advace_id")=re_advace_id
	   rs("re_subtime")=now
	   rs.update

	   rs.close
	   set rs=nothing
	   dbc.close
	   set dbc=nothing
	   %>
	   <SCRIPT LANGUAGE="JavaScript">
<!--
alert("回复成功！")
 document.location="managereply.asp"

//-->
</SCRIPT>