📄 plmanage.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="setting.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>评论管理</title>
<style type="text/css">
<!--
#Layer1 {
position:absolute;
width:934px;
height:67px;
z-index:1;
left: 98px;
top: 17px;
background-color: #FFFFFF;
}
-->
</style>
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url();
}
-->
</style></head>
<body>
<div id="Layer1">
<table width="100%" border="0" bgcolor="#FFFFFF" class="tb1">
<tr>
<td colspan="6"><div align="center" class="STYLE1"><span class="STYLE8">
<%
page=clng(request("page"))
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from gbook order by bh desc"
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("你暂时还没任何评论!<br>")%>
</span><img src="image/btn_close.gif" width="16" height="16">
<%
else
rs.PageSize=10
if page=0 then page=1
pages=rs.pagecount
if page > pages then page=pages
rs.AbsolutePage=page
%>
</div></td>
</tr>
<tr>
<td width="6%" class="STYLE1"> </td>
<td colspan="4" class="STYLE1"><div align="center" class="STYLE2">评论管理</div></td>
<td width="14%" class="STYLE1"> </td>
</tr>
<%for j=1 to rs.PageSize%>
<tr>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">编号</div></td>
<td width="10%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">姓名</div></td>
<td width="10%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">评论id</div></td>
<td width="21%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">标题</div></td>
<td width="39%" background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">内容</div></td>
<td background="image/item_bg.gif" class="STYLE13" id="new" style="border:#999999 1px solid"><div align="center">操作</div></td>
</tr>
<tr>
<td height="21" class="STYLE1"><div align="center">
<%response.write(""&rs("bh"))%>
</div></td>
<td class="STYLE1"><div align="center"><span class="STYLE8">
<%response.write(""&rs("name"))%>
</span></div></td>
<td class="STYLE1"><div align="center" class="STYLE8"><%=rs("id")%> </div></td>
<td class="STYLE1"><div align="center">
<%response.write(""&rs("title"))%>
</div></td>
<td class="STYLE1"><div align="center" class="STYLE8">
<form name="form2" method="post" action="">
<label>
<textarea name="textfield" cols="80" rows="2" readonly="readonly" class="tb1"><%=rs("content")%></textarea>
</label>
</form>
</div></td>
<td class="STYLE1"><div align="center"><a href="pl_del.asp?bh=<%=rs("bh")%>">删除</a></div></td>
<%
rs.movenext
if rs.eof then exit for
next
%>
</tr>
</table>
<form name="form1" method="post" action="">
<div align="center" class="STYLE1">
<%if Page<2 then
response.write "首页 上一页 "
else
response.write "<a href=plmanage.asp?page=1>首页</a> "
response.write "<a href=plmanage.asp?page=" & Page-1 & ">上一页</a> "
end if
if rs.pagecount-page<1 then
response.write "下一页 尾页"
else
response.write "<a href=plmanage.asp?page=" & (page+1) & ">"
response.write "下一页</a> <a href=plmanage.asp?page="&rs.pagecount&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 "
response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页"
response.write " 转到：<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">"
response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>"
%>
</div>
</form>
</div>
<%
end if
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -