📄 public.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%Response.Expires=0%>
<!--#include file="conn.asp"-->
<!--#include file="adovbs.inc" --->
<%class1=Session("class")
Const NumPerPage = 15 '设置你一页要显示多少记录
Dim CurPage '取得当前所在页
If Request.QueryString("CurPage") = "" then
CurPage = 1
Else
CurPage = Request.QueryString("CurPage")
End If
'设置游标属性
conn.CursorLocation = adUseClient
'设置缓存大小 = 每页需显示的记录数目
conn.CacheSize = NumPerPage
Dim strSQL
strSQL = "select time1,detail from public1 order by time1 DESC"
set rs=conn.execute(strSQL)
if rs.eof then Response.Write "没有记录" : Response.end
rs.MoveFirst
rs.PageSize = NumPerPage
'计算最多有多少页
Dim TotalPages,recdcount
TotalPages = rs.PageCount
recdcount= rs.recordcount
rs.AbsolutePage = CurPage
Dim count
%>
<html>
<head>
<title>聊务公开</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size : 10.5pt;}
td {font-size : 10.5pt; line-height: 16pt}
-->
</style>
</head>
<body topmargin="5" leftmargin="9" bgcolor="#FFFFFF">
<table width="100%" border="1" cellspacing="0" cellpadding="5" align="center" bordercolorlight="#b6ae94" bordercolordark="#FFFFFF" dwcopytype="CopyTableRow">
<tr bgcolor="#FFFFFF">
<td height="16">
<div align="center"><font color="#0080FF">——聊务公开栏——</font>
<br>
<br>本聊务公开用于监督版主的行为，本公开栏只保留最近 7 天的记录。目前共有 <font color=red><%=recdcount%></font> 条记录。</div>
</td>
</tr>
<tr><td bgcolor=#EDEAC7>
<div align=center>
<%
Count = 1
Do While Count <= TotalPages
Response.Write("<a href=public.asp?curpage=" &count& ">[" &count& "]</a> ")
Count = Count + 1
Loop
%>
<a href="javascript:history.go(0)">[刷新]</a>
<%if class1>8 then Response.Write "<a href=clearpublic.asp>[清理]</a>"%></div>
</td></tr>
<%
Count = 0
Do While Not rs.EOF And Count < rs.PageSize
Response.Write("<tr><td bgcolor=#fffff5><font color=999999>第 " &NumPerPage*(curpage-1)+Count+1& " 条 </font><font color=#0088FF>"& rs("time1") &"</font> "& rs("detail") & "</td></tr>")
Count = Count + 1
rs.MoveNext
Loop
rs.Close%>
</Table>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -