📄 gb_reply.asp
字号:
<%
db="../database/data_asp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
%>
<!--#INCLUDE file="config.asp" -->
<!--#INCLUDE file="guest_lib.asp" -->
<%
if session("admin_name")="" then
MESSAGE("只有管理员才能回复留言！")
response.end
end if
HEADER "回复留言"
MyMenu
%>
<html>
<head><title>[ GUESTBOOK ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/colorbird.css">
<style>
BODY {SCROLLBAR-FACE-COLOR: #FFFFFF; SCROLLBAR-HIGHLIGHT-COLOR: #FFFFFF; SCROLLBAR-SHADOW-COLOR: #999999; SCROLLBAR-3DLIGHT-COLOR: #999999; SCROLLBAR-ARROW-COLOR: #999999; SCROLLBAR-TRACK-COLOR: #CCCCCC; SCROLLBAR-DARKSHADOW-COLOR: #CCCCCC; }
</style>
</head>
<body bgcolor="#FFFFFF">
<div align="top">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="100%" valign="top">
<tr>
<td align="center">
<table border=0 cellpadding=4 cellspacing=1 width=480 bgcolor="#FFFFFF" valign="top">
<tr>
</tr></table>
<form method="POST" action="gb_save.asp">
<table width=480 height="232" border=1 cellpadding=4 cellspacing=0 bordercolor="#056B9E" style="border-collapse: collapse">
<tr bgcolor="#D6D3CE">
<td background="table.gif" height="14">
<font color="#FFFFFF">
<span style="font-size: 12">
<input type="hidden" name="from" value="SaveReply">
<input type="hidden" name="page" value=<%=Request.QueryString("page")%>>
<input type="hidden" name="Number" value=<%=Request.QueryString("id")%>>
</span></font> <a href="../../fw/ly.asp" target="_blank"><img src="images/view2.gif" width="69" height="19" border="0"></a></td>
<td background="table.gif" height="14"><font color="#FFFFFF">只有管理员才能回复留言。<a href="gb_sign.asp" style="COLOR: #000000;">要留言点这里</A>
</font>
</td>
</tr>
<!--tr bgcolor="#FFFFFF">
<td align=center height="17">回复密码:</td>
<td valign=top height="17">
<span style="font-size: 12">
<INPUT class="stdedit_en" value="<%'=request.cookies("UserInfo")("BookPassWord")%>" type="password" NAME="password" SIZE=25 MAXLENGTH=25></span>
</td></tr-->
<tr bgcolor=#D6D3CE>
<td width="20%" valign=top align=center bgcolor="#F2F2F2" height="17"><FONT style="font-size: 12">表情图标:</FONT></td>
<td bgcolor="#F2F2F2" height="17">
<%Smail%> </td>
</tr>
<TR bgcolor=#FFFFFF>
<TD align=center valign=top> <FONT style="font-size: 12">你的回复:</FONT>
<%
dim rs
dim StrSQL
id=request("id")
Set ASPBook = Server.CreateObject("ADODB.Recordset")
StrSQL = "Select * from guestbook where ID="&id
ASPBook.open StrSQL,conn,1,1
%>
</td>
<td height="123">
<textarea name="Reply" cols="55" rows="13" class="stdedit"><%=ASPBook("Reply")%></TEXTAREA>
</td></tr>
<TR bgcolor="#D6D3CE">
<td valign=top bgcolor="#F2F2F2" height="17"> </td>
<td bgcolor="#F2F2F2" height="17">注意：如果回复内容为空，那将清除以前的回复内容。</td>
</tr>
</table>
<p style="margin-top: 6">
<INPUT TYPE="submit" NAME="SUBMIT" VALUE=" 确定回复 " class="stbuttom2">
<INPUT TYPE="reset" NAME="RESET" VALUE=" 清除内容 " class="stbuttom2"> </p>
</form>
</td>
</tr>
</table>
</center>
</div>
<%COPYRIGHT%>
</BODY>
</HTML>
<%
set ASPBook=nothing
conn.Close
set conn = nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -