📄 savereply.asp

📁 公文下发和上报管理：　在发布和上报文件时

💻 ASP

字号:


<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="config.asp" -->
<%

sql="update enet set reply=-1 where gbookid="&request("id")
conn.execute sql

Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from reply"
rs.open sql,conn,1,3
rs.AddNew
rs("content")=request("content")
rs("name")=trim(request("txtname"))
rs("reid")=request("id")

if request("rcheck")=1 then rs("hip")=-1
rs("datetime")=now()
rs("tel")=trim(request("txtoicq"))
rs("ip")=Request.ServerVariables("REMOTE_HOST")
rs.update
rs.close
set rs=noting
conn.close
set conn=nothing
%>
<title>回复成功</title><BODY bgcolor="#ffffff"  text="#000000" link="#000080" alink="#800000" vlink="#2f2f4f" marginheight=0 marginwidth=0 topmargin=10 leftmargin=20 rightmargin=0>
<p>&nbsp;</p><p align="center"><font size="2">Please Wait......</font></p>
<p align="center"><font size="2">回复成功！二秒钟后系统自动返回留言簿页面</font></p>
<%response.redirect "index.asp"%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -