📄 reply.asp

📁 个人网站系统毕业论文大家可以借鉴下

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%id=cint(request.querystring("id"))

if request.form("submit")="提交" then
n_reply=trim(request.form("reply"))
id=request.form("id")
set rs=server.CreateObject("adodb.recordset")
sql="select * from gsbook where new_id="&id
rs.open sql,conn,3,3
rs("new_reply")=n_reply
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect("book.asp")
end if%>

<body oncontextmenu="return false" onselectstart="return false" ><div align="center">
<%if id<>"" then
 set rs = Server.CreateObject ("adodb.recordset")
    sql="select * from gsbook where new_id="&id
    rs.open sql,conn,1,1
	end if
%>
  <form name="form1" method="post" action="reply.asp">
    <table width="560" height="152" border="0" cellpadding="0" cellspacing="1" bgcolor="#FF0000">
      <tr align="center" bgcolor="#009933"> 
        <td height="25" colspan="2"><font color="#FFFFFF">回复留言 <a href="book.asp">返回</a></font></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td width="164" align="right">留言内容：</td>
        <td width="393"><font color="#FF0000"><%=rs("new_content")%></font></td>
      </tr>
      <tr bgcolor="#FFFFFF"> 
        <td align="right">回复内容</td>
        <td><textarea name="reply" cols="30" rows="6" id="reply"></textarea></td>
      </tr>
      <tr align="center" bgcolor="#FFFFFF"> 
        <td colspan="2"><input type="submit" name="submit" value="提交">
          　 
          <input type="reset" name="submit2" value="重置">
		  <input type="hidden" name="id" value="<%=id%>">
</td>
      </tr>
    </table>
  </form>
  <%rs.close
  set rs=nothing
  conn.close
  set conn=nothing%>
</div>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -