gb_reply.asp

这个留言薄

<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="guest_lib.asp" -->
<%
HEADER "回复留言"
MyMenu
%>
<br>
<table border=0 cellpadding=4 cellspacing=1 width=70%>
<tr><td valign=top>
<a href="javascript:history.go(-1)"><FONT SIZE="2">返回留言簿。</font></a>
</td></tr></table>
<table border=0 cellpadding=0 cellspacing=0 width="70%"><TR><td bgcolor="#DEDFDF">
<table border=0 cellpadding=4 cellspacing=1 width=100%>
<tr bgcolor="#6699ff"><td>
<form method="POST" action="gb_save.asp">
<input type="hidden" name="from" value="SaveReply">
<input type="hidden" name="page" value=<%=Request.QueryString("page")%>>
<input type="hidden" name="Number" value=<%=Request.QueryString("Number")%>>
<FONT color="#ffffff">留言回复？</font></td>
<td><FONT color="#ffffff">只有管理员才能回复留言。</font><a href="gb_sign.asp" style="COLOR: #ffffff;">要留言点这里。</A>
</td></tr><tr bgcolor="#ffffff"><td align=center>回复密码:</td>
<td valign=top>
<INPUT class=text value="<%=request.cookies("UserInfo")("BookPassWord")%>" type="password" NAME="password" SIZE=25 MAXLENGTH=25>
</td></tr>
<tr bgcolor=#f7f7f7>
<td width="20%" valign=top align=center>
<FONT SIZE="2">表情图标:</FONT></td>
<td><%Smail%></td></tr>
<TR bgcolor=#fafafa><TD align=center valign=top>
<FONT SIZE="2">你的回复:</FONT>
<%
dim rs
dim StrSQL

Set ASPBook = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from guest where ID="&request("Number") 
ASPBook.open StrSQL,conn,1,1

%>
</td><td><textarea name="Reply" cols="55" rows="10"><%=ASPBook("Reply")%></TEXTAREA>
</td></tr><TR bgcolor="#ffffff"><td valign=top>
&nbsp;</td><td>注意：如果回复内容为空，那将清除以前的回复内容。</td></tr>
</table></center></td></tr></table>
<CENTER><p>
<INPUT TYPE="Submit" NAME="SUBMIT" VALUE="  确  定 回 复  ">
<INPUT TYPE="RESET" NAME="RESET" VALUE="  清 除 内 容  ">
</CENTER></form><br>

<%COPYRIGHT%>
</CENTER></font></BODY></HTML>
<%
set ASPBook=nothing
conn.Close
set conn = nothing
%>