?? gb_reply.asp
字號(hào):
<%
db="../database/data_asp.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服務(wù)器采用較老版本Access驅(qū)動(dòng)，請用下面連接方法
'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("只有管理員才能回復(fù)留言！")
response.end
end if
HEADER "回復(fù)留言"
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">只有管理員才能回復(fù)留言。<a href="gb_sign.asp" style="COLOR: #000000;">要留言點(diǎn)這里</A>
</font>
</td>
</tr>
<!--tr bgcolor="#FFFFFF">
<td align=center height="17">回復(fù)密碼:</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">表情圖標(biāo):</FONT></td>
<td bgcolor="#F2F2F2" height="17">
<%Smail%> </td>
</tr>
<TR bgcolor=#FFFFFF>
<TD align=center valign=top> <FONT style="font-size: 12">你的回復(fù):</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">注意：如果回復(fù)內(nèi)容為空，那將清除以前的回復(fù)內(nèi)容。</td>
</tr>
</table>
<p style="margin-top: 6">
<INPUT TYPE="submit" NAME="SUBMIT" VALUE=" 確定回復(fù) " class="stbuttom2">
<INPUT TYPE="reset" NAME="RESET" VALUE=" 清除內(nèi)容 " class="stbuttom2"> </p>
</form>
</td>
</tr>
</table>
</center>
</div>
<%COPYRIGHT%>
</BODY>
</HTML>
<%
set ASPBook=nothing
conn.Close
set conn = nothing
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -