日期:2014-05-17  浏览次数:20793 次

请教,点击回复,为什么隐藏的回复表单不能显示出来呢?
下面是完整代码:
绿色部分为出问题的代码段
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="mb_con.asp"-->
<%
  set rs=server.createobject("adodb.recordset")
sql="select * from message order by messageid asc"
  rs.open sql,mb_con,1,1
%>
<html>
<head>
<title>一个留言板</title>
<link href="styles/hpcss.css" type="text/css" rel="stylesheet"/>
<script type="text/javascript" src="jscripts/message_check.js"></script>
</head>
<body>
  <p id="user">
  <a href="sign.asp">注册</a> | <a href="log.asp">登录</a>
  </p>
  <h1 id="headone">一个留言板</h1>
  <p>
  <a href="new_topic.asp">发表新留言</a>
  </p>
  <%if rs.eof then%>
  <tr>
<td>暂无留言!</td>
  </tr>
  <%
  else  
  do while not rs.eof
  %>
  <table id="onetable">
  <tr>  
  <th>
  <p class="onep"><a href="usermessage.asp"><%=rs("username")%></a></p>
<p><%=rs("usertype")%></p>
  </th>
  <td>
<%=rs("pub_time")%>&nbsp;</br>
<%=rs("message")%></br>
<p class="onep" onclick="document.all.replyform.style.display=
(document.all.replyform.style.display=='none')?'':'none'">回复</p>
<form id="replyform" style="display:none">
<table>
<td><input name="reply_one" type="text"></td>
</tr>
<tr>
<td><input type="submit" value="回复"></td>
</tr>
</table>
</form>
</td> </tr>
  </table>
  <%
  rs.movenext
  loop
end if
rs.close
set rs=nothing
  %>
   
  <form method="post" action="add_message.asp" onsubmit="return check_messagebox()" >
  <table id="twotable">
  <tr>
  <th>
<p name="reply">内容:</p>
</th>
  <td>
<input name="message" type="text" id="nr" value="您好,请在这里留言..." style="color:#aaa" onclick="reminder()"/>
</td>
  </tr>
  <tr>
  <th class="sinput">用户名:</th>
  <td>
<input name="username" type="text" id="replyuser" />
<input name="usertype" type="hidden" value="游客">
</td>
  </tr>
  <tr id="reply">
  <th>
&nbsp;
</th>
<td>
&nbsp;&nbsp;
<input name="reply" type="submit" value="回复">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<