📄 saylist.asp
字号:
<!--#include file="security.asp"-->
<%
dim DBPath,objDB
Set objDB = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../isi/xlist.asp")
objDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Dim Title,SQLStr,RS,PageNO,PageSize,AllCount,MaxPage,i
Set rs = Server.CreateObject("ADODB.RecordSet")
%>
<html>
<head>
<link rel="stylesheet" href="../inc/style.css">
</head>
<body>
<br><br>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%" background="images/bg2.gif">
<tr>
<td width="100%" align="center">
<table border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" width="100%">
<tr bgcolor="#dddddd">
<td><b>对方ID</b></td>
<td><b>内容</b></td>
<td><b>公告</b></td>
<td><b>发布时间</b></td>
<td><b>删除</b></td>
</tr>
<%
If Not IsEmpty(Request("PageNO")) Then
PageNO=cint(Request("PageNO"))
Else
PageNO=1
End If
SQLStr = "Select * From Adminsay Order By ID DESC"
PageSize =12
rs.PageSize =PageSize
rs.Open SQLStr,objDB,1,3
AllCount = rs.RecordCount
MaxPage = rs.PageCount
If rs.RecordCount > 0 Then
rs.MoveFirst
rs.AbsolutePage = PageNO
End If
i=0
DO While Not rs.EOF and i<PageSize
%>
<tr bgcolor="#FFFFFF">
<td><a href="adminread.asp?user_id=<%=rs("user_id")%>" target="_blank"><%=rs("user_id")%></a></td>
<td><%=rs("contents")%></td>
<td>
<%if rs("ToAll")=True then%>
是
<% end if %>
</td>
<td><%=rs("PutTime")%></td>
<td><a href="Delsaying.asp?ID=<%=rs("id")%>">删除</a></td>
</tr>
<% i=i+1
rs.MoveNext
Loop
rs.Close
%>
</table>
<table border="0" cellpadding="0" width="100%" cellspacing="0" height="30">
<tr>
<td>共 <font color=red><b><%=AllCount%></b></font> 个通知 页次: <font color=red><b><%=PageNO%></b></font> / <b><%=MaxPage%></b> 页</td>
<td align=right>
<a href="AdminSayto.asp" class="a03">发布新通知</a>
<%if PageNO-1>0 then %>
<A href=VoteList.asp?pageNO=1&ID=<%=Request.QueryString ("ID")%>>首页</a> <A href=VoteList.asp?pageNO=<%=pageNO-1%>&ID=<%=Request.QueryString ("ID")%>>上一页</a>
<%
else
%>首页 上一页<%
end if %>
<%
if PageNo+1<=MaxPage then
%>
<A href=VoteList.asp?pageNO=<%=pageNO+1%>&ID=<%=Request.QueryString ("ID")%>>下一页</a> <A href=VoteList.asp?pageNO=<%=MaxPage%>&ID=<%=Request.QueryString ("ID")%>>末页</a>
<%
else
%>
下一页 末页
<%
end if
objDB.Close
Set RS = Nothing
Set objDB = Nothing
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td background="images/hline.gif" height="1"></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -