📄 admin.asp
字号:
<% if session("user")<>"admin" then response.redirect"login.asp" end if %>
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp" -->
<!--#include file="sql.asp" -->
<!--#include file="webbar.asp" -->
<%=head%>
<body>
<div id="bodywidth">
<%=top2%>
<div id="write">
</div>
<div id="showout">
.::留言管理::.<hr>
<%
sql="select * from book order by id desc"
set rs=server.createobject("adodb.recordset")
On error resume next
rs.open sql,conn,1
rs.PageSize=yowkey '每页显示留言条数
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then
page=1
end if
i=1
rs.AbsolutePage=page
if rs.eof then
response.write"<br><span id=""red"">对不起，暂时没有留言！</span><br><br>"
else
do while not rs.eof
%>
<div id="show">
昵称：『 <%=UBBCode(dvHTMLEncode(left(rs("name"),6)))%> 』时间：<%=rs("time")%> 『<a href="delok.asp?id=<%=rs("id")%>">删除留言</a>』<br>
留言：<%=UBBCode(dvHTMLEncode(left(rs("body"),1000)))%><br>
<form name="form1" method="post" action="re.asp?id=<%=rs("id")%>">
回复：<textarea id="inputtext" name="reply" cols="47" rows="3" onKeyUp="this.value=this.value.substr(0,200)" onpaste="return false"><%=rs("reply")%></textarea>
<input id="input" type="submit" name="Submit" value=" 提交 ">
</form>
</div>
<% i=i+1
if i>rs.PageSize then exit do
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</div>
<!-- 分页显示 -->
<div id="fpage">
<%Fenye page,pagecount%>
<% end if %>
</div>
<%=bottom%>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -