?? ly.asp
字號:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無標(biāo)題文檔</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from ly order by id desc"
rs.open sql,conn,1,1
%>
<body>
<div>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" colspan="5" align="center" bgcolor="#006699" class="bai">留言管理</td>
</tr>
<tr>
<td width="20%" height="30" align="center" class="c">留言人</td>
<td width="20%" height="30" align="center" class="c">留言標(biāo)題</td>
<td width="20%" height="30" align="center" class="c">留言時(shí)間</td>
<td width="20%" height="30" align="center" class="c">查看留言</td>
<td width="20%" height="30" align="center" class="c">刪除</td>
</tr>
<%if rs.bof and rs.eof then%>
<tr>
<td height="30" colspan="5" align="center" class="kj">暫無用戶信息</td>
</tr>
<%
response.end
else
dim page_no
if request.querystring("page_no")="" then
page_no=1
else
page_no=cint(request.querystring("page_no"))
end if
rs.pagesize=17
rs.absolutepage=page_no
%>
<%
dim i
i=rs.pagesize
do while not rs.eof and i>0
i=i-1
%>
<tr>
<td width="20%" height="30" align="center" class="xian"><%=rs("username")%></td>
<td width="20%" height="30" align="center" class="xian"><%=rs("biaoti")%></td>
<td width="20%" height="30" align="center" class="xian"><%=rs("userdate")%></td>
<td width="20%" height="30" align="center" class="xian"><a href="lyedit.asp?id=<%=rs("id")%>">查看留言</a></td>
<td width="20%" height="30" align="center" class="xian"><a href="delly.asp?id=<%=rs("id")%>">刪除</a></td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr>
<td height="30" colspan="5" align="center" class="xian"><%for i=1 to rs.pagecount
if i=page_no then
response.write i&" "
else
response.write "<a href='ly.asp?page_no="&i&"'>"&i&"</a> "
end if
next
%></td>
</tr>
</table>
</div>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -