管理回复的悄悄留言，是/否???
请教：我的传递页面是这样的：
<a href="reply.asp?id=<%=rs_m("id")%>">回复</a>
然后接受页面是以下内容：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
'接受传递过来的参数，并定义这个变量。
dim hf
hf = request.QueryString("id")
Set rs_m = Server.CreateObject("ADODB.Recordset")'用Recordset对象创建一个记录集，并存储记录rs_m。
Sql ="SELECT * FROM main where id="& hf &"" '查询读取传递过来的记录
rs_m.open Sql, conn,1,1
%>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" background="images/body1.jpg" id="zbbg1">
<tr>
<td height="50" align="center" class="wz24"><strong>管理回复留言</strong></td>
</tr>
<tr>
<td><form id="form1" name="form1" method="post" action="">
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" id="zbbg1-2">
<tr>
<td width="100" height="30" align="right">留言人姓名：</td>
<td width="150"><input name="Name" type="text" class="bj" id="Name" value="<%=rs_m("Name")%>" size="15" maxlength="15" /></td>
<td width="170" align="right">留言人心情： </td>
<td width="180"><img src="<%=rs_m("Face")%>" name="Face" width="20" height="20" id="Face" /></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人QQ：</td>
<td><input name="QQ" type="text" class="bj" id="QQ" value="<%=rs_m("QQ")%>" size="15" maxlength="15" /></td>
<td align="right">留言人头像： </td>
<td rowspan="3"><img src="<%=rs_m("Icon")%>" name="Icon" width="90" height="90" id="Icon" /></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人UC：</td>
<td><input name="UC" type="text" class="bj" id="UC" value="<%=rs_m("UC")%>" size="15" maxlength="15" /></td>
<td align="right">留言人性别：<%=rs_m("Sex")%></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人主页：</td>
<td colspan="2"><input name="Homepage" type="text" class="bj" id="Homepage" value="<%=rs_m("Homepage")%>" size="40" maxlength="50" /></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人信箱：</td>
<td colspan="2"><input name="Email" type="text" class="bj" id="Email" value="<%=rs_m("Email")%>"size="40" maxlength="50" /></td>
<td>留言人来自：<%=rs_m("Lz")%></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人标题：</td>
<td colspan="2"><input name="Bt" type="text" class="Bj" id="Bt" value="<%=rs_m("Bt")%>" size="40" maxlength="50" /></td>
<td>是否悄悄留言：<%=rs_m("Secret")%></td>
</tr>
<tr>
<td width="100" height="30" align="right">留言人内容：</td>
<td colspan="3"><textarea name="Content" cols="65" rows="5" class="bj" id="Content"><%=rs_m("Content")%></textarea></td>
</tr>
<tr>
<td height="30" align="right">回复时间：</td>
<td colspan="3"><input name="Rdate" type="text" id="Rdate" value="<%= now() %>" size="20" maxlength="20" />
是否悄悄回复留言：
<input name="Rsecret" type="checkbox" id="Rsecret" value="yes" /></td>
</tr>
<tr>
<td height="30" align="right">回复内容：</td>
<td colspan="3"><textarea name="Reply" cols="65" rows="3" id="Reply"><%=rs_m("Reply")%></textarea></td>
</tr>
<tr>
<td height="50" colspan="4" align="center"><input type="submit" name="Submit" value="回复留言" />
<input type="reset" name="Submit2" value="重 置" /> </td></tr>
</table>
</form></td>
</tr>
</table>
<%
'1、以上是连接数据库页面
'2、声明变量，获取表单参数
dim Rdate,Rsecret,Reply,Secret
Rdate=request.Form("Rdate")
Rsecret=request.Form("Rsecret")
Reply=request.Form("Reply")
'Secret=request.Form("Secret")
if request("Submit")="回复留言" then
Sql ="SELECT * FROM main where id="& hf &""
set rs_m=server.createobject("adodb.recordset")
rs_m.open sql,conn,1,3
以下我不知道怎么做为好？？？？？？？？？？？？？？？？？
==============================================================
rs_m("Rdate")=Rdate
if rs_m("Rsecret")=True then
rs_m("Rsecret")=True
else
rs_m("Reply")=Reply
end if
'rs_m("Secret")=Secret
=================================================================================
rs_m.update
set rs_m=nothing
set conn=nothing
Response.Write "<script language=""javascript"">window.alert('修改成功！');window.location.replace('admin.asp');</script>"
end if
