back_do.asp

来自「基于ASP的SQL小区物业管理系统课程设计」· ASP 代码 · 共 27 行

<% 
    dim bcont,bdate,cuser,bid,butt
    bcont=Request.Form("backcont")
	bid=Request.Form("bid")
	butt=Request.Form("Submit")
	bdate=now()
	cuser=session("username")
%>
<!--#include file="sub/conn.asp"-->
    
<% 
   set cmd=Server.CreateObject("ADODB.COMMAND")
   cmd.ActiveConnection=conn
   if butt="回复" then
   cmd.CommandText="insert into backm values('"&bid&"','"&cuser&"','"&bdate&"','"&bcont&"')"
   set rs=cmd.execute
   cmd.CommandText="update tbmessage set readflag=1 where id="&bid
   set rs=cmd.execute
   Response.Redirect Request.ServerVariables("HTTP_REFERER")
   else
   cmd.CommandText="update backm set content='"&bcont&"' where id="&bid
   set rs=cmd.execute
   Response.Redirect Request.ServerVariables("HTTP_REFERER")
   end if
   set conn=nothing
%>