请教,点击回复,为什么隐藏的回复表单不能显示出来呢?
下面是完整代码:
绿色部分为出问题的代码段
<%@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")%> </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>
</th>
<td>
<input name="reply" type="submit" value="回复">
<