📄 reply.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const1.asp"-->
<!--#include file="inc/const2.asp"-->
<!--#include file="inc/char.asp"-->
<%
dim guestdate
guestdate=request("time")
set rs=server.createobject("adodb.recordset")
sql="select * from [guest] where guestdate='"&GuestDate&"'"
rs.open sql,conn,1,3
guestcontent=ubbcode(rs("guestcontent"))
guestcontent=replace(guestcontent,chr(13),"<br>")
%>
<%
if request("reply")="提交" then
guestreply=request("guestreply")
set rs=server.createobject("adodb.recordset")
sql="select * from [guest] where guestdate='"&GuestDate&"'"
rs.open sql,conn,1,3
rs("guestreply")=guestreply
rs("redate")=now()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "manage.asp"
end if
%>
<head>
<link href="css.css" rel=stylesheet type=text/css>
</head>
<body topmargin="1" bgcolor="<%=bodybgcolor%>">
<br>
<!--#include file="menu.asp"-->
<br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=bordercolor%>" width="650" height="76" align="center">
<tr>
<td width="527" height="13" bgcolor="<%=infobg%>" >
<p align="left"> <b>留言人:</b><%=rs("guestname")%> <b>留言时间:</b><%=rs("guestdate")%>
<b>留言人IP:</b><%=rs("ip")%></td>
<td width="117" height="13" bgcolor="#EEF2F7">
<p align="center"><font color="#FF0000">
<a href="admin_editly.asp?time=<%=rs("guestdate")%>">
<font color="#FF0000">编辑</font></a></font>|<a href="dele.asp?action=admin&time=<%=rs("guestdate")%>"><font color="#FF0000">删除</font></a>|<a href="reply.asp?time=<%=rs("guestdate")%>"><font color="#FF0000">回复</font></a></td>
</tr>
<tr>
<td width="644" height="53" colspan="2" valign="top" style="word-break: break-word; font-size: 10pt" bgcolor="<%=tablebgcolor%>" ><br>
<br>
<pre style="padding-left:4px;MARGIN-TOP:2px;MARGIN-BOTTOM:2px;MARGIN-LEFT:2px;MARGIN-RIGHT:2px;word-wrap: break-word"> <%
if len(rs("guestcontent"))>520 then
response.write ubbcode(left(rs("guestcontent"),520))
else
response.write ubbcode(rs("guestcontent"))
end if
%>
</pre>
<br>可能来自：<%=rs("comefrom")%>
<p> </td>
</tr>
</table>
<p class="font">
<br>
<form name="form1" method="post" action="reply.asp?time=<%=request("time")%>">
<table cellpadding=0 cellspacing=0 border=0 width=621 bgcolor=#777777 align=center bgcolor="<%=tablebgcolor%>" >
<tr>
<td width="648">
<table cellspacing=0 border=1 width=650 bgcolor="<%=tablebgcolor%>" style="border-collapse: collapse" cellpadding="0" height="163" align="center" bordercolor="<%=bordercolor%>">
<tr >
<td align=center height=1 colspan="2" width="643" bgcolor="<%=add_leftbg%>"><font color="<%=add_fontcolor%>"><b>站长回复</b></font></td>
</tr>
<tr>
<td width="139" align="center" height="1" valign="middle" >
<div align="left"> 回复内容：</div>
</td>
<td width="494" height="1">
<textarea name="guestreply" cols="56" rows="7" wrap="VIRTUAL"><%=request("replycontent")%></textarea></td>
</tr>
<tr>
<td align=center height=1 colspan="2" width="643">
<input type="submit" name="reply" value="提交">
<input type="reset" name="reset" value="重置"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -