📄 back_do.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -