answer.asp

来自「亿众购物系统 一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 36 行

ASP
36
字号
<!--#include file="../Session.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>回复评论</title>
<link href="../../css/site.css" rel="stylesheet" type="text/css">
</head>
<body>
<%if request("Act")="Yes" then
	conn.execute("update Comment set Answer='"&request("Answer")&"',State=1 where id="&Request("id")&"")
	Response.write "<script>alert(""回复成功"");location.href=""Comment.asp"";</script>"
else
	Set rs=Server.CreateObject("ADODB.Recordset")
	sql="select Answer from Comment where id="&Request("id")&""
	rs.open sql,conn,0,1
	Answer=rs("Answer")
	rs.close
end if	
%>
<table width="100%">
  <form name="form" method="post" action=?Act=Yes><tr>
      <td height="50" align="center" valign="middle" class="tdstyle"><font color="#000000" size="3"><strong>回复评论</strong></font></td>
  </tr>
  <tr>
    <td align="center" valign="middle" class="tdstyle"><textarea name="Answer" cols="50" rows="8" class="input1" id="Answer"><%=Answer%></textarea></td>
  </tr>
  <tr>
      <td height="30" align="center" valign="middle" class="tdstyle"> 
        <input name="Submit" type="submit" class="button" value="提交">
      <input name="Submit" type="reset" class="button" value="重置">
      <input name="Submit" type="button" class="button" value="关闭窗口"onClick="javascript:self.close();">
        <input name="id" type="hidden" id="id" value="<%=request("id")%>"> </td>
  </tr></form>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?