📄 reply.asp

📁 功能完备的留言板公告管理用户管理留言管理分页功能的实现 Access数据库

💻 ASP

字号:

<!--#include file="chkmanage.asp"-->
<%
if request("reply")="确定提交" then
	dim guestreply
	dim guestdate
	guestdate=request("time")
	guestreply=request("guestreply")
 	
 	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("book.asp")
	
    set rs=server.createobject("adodb.recordset")
    sql="select * from [guest] where guestdate='"&GuestDate&"'"
   	rs.open sql,conn,1,3
	rs("guestreply")=guestreply
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.redirect "admin.asp"
end if
%>
<link href="css.css" rel=stylesheet type=text/css>
<body bgcolor="#FFFFFF" text="#000000" style="text-align: center">
<br><br><br>
<form name="form1" method="post" action="reply.asp?time=<%=request("time")%>">
  <div align="center">
  <table cellpadding=0 cellspacing=0 border=0 width=400 bgcolor=#FFFFFF>
    <tr> 
      <td> 
        <table cellpadding=0 cellspacing=0 border=1 width=100% height="229" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF">
          <tr bgcolor=#F0AA06> 
            <td bgcolor="#DDDDFF" align=center height=39><b>站长回复</b></td>
          </tr>
          <tr bgcolor=#F0AA06> 
            <td width="97%" align="center" height="147" bgcolor="#FFFFFF"> 
              
              <textarea name="guestreply" cols="51" rows="8" wrap="VIRTUAL" ></textarea></td>
          </tr>
          <tr bgcolor=#EEEEEE> 
            <td bgcolor="#DDDDFF" align=center height=41> 
              <input type="submit" name="reply" value="确定提交">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
	</div>
</form>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -