📄 admre.asp
字号:
<!--#include file="admcheck.asp"-->
<!--#include file="dbpath.asp"-->
<!--#include file="char.inc"-->
<%
if request("type")="save" then
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from book where id="&request("id")&"",conn,1,2
if request("html")="on" then
rs("re")=request("re")
else
rs("re")=htmlencode(request("re"))
end if
rs.update
rs.close
retime=Now()
end if
%>
<html>
<head>
<title>留言本管理-回复留言</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><meta copy="程序制作 [惊云,网址www.65658.com] ; 盗版必究!">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #333333; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<body topmargin="8"><!--#include file="in_top.asp"-->
<div align="center">
<center>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="750" cellpadding="3">
<tr>
<td width="180" bgcolor="#D5EAFF">作者信息</td>
<td width="570" bgcolor="#D5EAFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="50%">留言信息 [<a href="admre.asp?id=<%=request("id")%>">刷新</a>]</td>
<td width="50%">
<p align="right">[<a href="admindex.asp">返回</a>]
<a href="login.asp?type=exit">[退出登陆]</a></td>
</tr>
</table>
</td>
</tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from book where id="&request("id")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<tr>
<td width="100%" bgcolor="#FFFFFF" nowrap colspan="2">
<font color="#FF0000">·</font>错误:没有此留言 !</td>
</tr>
<%else%>
<tr>
<td width="180" valign="top">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="FILTER: glow(color=#99CCFF,direction=135); border-collapse:collapse" bordercolor="#111111">
<tr>
<td width="100%"><font color="#808080"><%=rs("name")%></font></td>
</tr>
</table>
<img border="0" src="face/<%=rs("face")%>.gif"><br><br>第 <%=k%> 条留言
</center>
</div>
</td>
<td width="570" valign="top">
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" height="16" colspan="2">标题：<%=rs("topic")%>
<img border="0" src="face/homepage.gif" align="bottom" width="16" height="15"><a target="_blank" href="<%=rs("url")%>"><%=rs("url")%></a>
<img border="0" src="face/email.gif" align="bottom" width="16" height="15"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a>
<img border="0" src="face/oicq.gif" align="bottom" width="16" height="15"><%=rs("oicq")%><hr color="#99CCFF" size="1"></td>
</tr>
<tr>
<td width="32" height="60" valign="top">
<img border="0" src="face/<%=rs("face2")%>.gif" width="15" height="15"></td>
<td width="99%" valign="top"><%=rs("ly")%><br><br><table<%=bg2%> border="1" cellpadding="2" cellspacing="0" style="border-collapse: collapse" bordercolor="#99CCFF" width="100%">
<tr>
<form method="POST" action="admre.asp?type=save&id=<%=request("id")%>" name="form" target="_self">
<td width="100%"><font color="#FF0000">版主回复：</font><%=retime%><br>
<textarea class="input3" cols="74" name="re" rows="5" wrap="hard" style="border: 1px solid #2693FF; background-color: #F2F8FF"><%
if rs("re")<>"" then
dim tempstr
tempstr=replace(rs("re")," "," ")
tempstr=replace(tempstr,"<br>",chr(13))
response.write tempstr
end if
%></textarea><br>
<input type="submit" value="回复留言" style="width:120;height:18;background-color: #FFFFFF; border: 1 solid #808080">
<input type="checkbox" name="html" value="on">使用HTML语言</td>
</form>
</tr>
</table></td>
</tr>
<tr>
<td width="100%" colspan="2"><hr color="#99CCFF" size="1"><img border="0" src="face/posttime.gif"><%=rs("time")%> <img border="0" src="face/ip.gif"><%=rs("guestip")%></td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</td>
</tr>
</table><!--#include file="in_copy.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -