📄 分页显示.txt
字号:
<%@ Language=VBScript%>
<!--#include file="connection.asp"-->
<!--#include file="adovbs.inc"-->
<html>
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>title</title><style type="text/css">
<!--
A{text-transform: none; text-decoration:none;color:#3300ff}
A:visited {text-decoration: underline; color: 800080}
A:active {text-decoration: none}
a:hover {text-decoration:underline;color:#000000}
-->
</style><base target="rbottom"></head>
<body bgcolor="#DDE7D1">
<%
function imageName(id)
ImageName = "image/"&Id&".gif"
end function
''''''''''''''''''''''''''
'''取到显示的类别和页树'''
''''''''''''''''''''''''''
dim pro,i,lei,page,loo
lei = Request.QueryString("lei")
page = Request.QueryString("page")
''''''''''''''''''''''''''''''''''''
'''建立COMMAND对象和RECORDSET对象'''
''''''''''''''''''''''''''''''''''''
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
''''''''''''''''''''''''''''''
'''显示类别的描述如：斑竹等'''
''''''''''''''''''''''''''''''
Sql = "Select * From lei where lei = '"&lei&"'"
rs1.Open sql,conn,adOpenStatic
''''''''''''''''''''''
'''为分页显示做准备'''
''''''''''''''''''''''
sql="select * from bbs where lei = '"&lei&"'and pro=1 Order By num DESC"
rs.Open sql,conn , adOpenStatic
''''''''''''''
'''开始显示'''
''''''''''''''
If rs.EOF Then
Response.Write"数据库里没有任何资料！"%>
<a href="bottom.asp?add=1&lei=<%=lei%>&pro=1&look=0" target="rbottom">加新帖</a>
<%Response.End
Else
''''''''''
'''分页'''
''''''''''
rs.PageSize=20
Page=CLng(Request("page"))
If Page<1 Then Page=1
If Page=null Then Page=1
If Page>rs.PageCount Then Page=rs.PageCount
rs.AbsolutePage=page
%>
<table border="1" width="700" cellspacing="0" cellpadding="2" bordercolorlight="#000000" bordercolordark="#D5E9CF">
<tr>
<td width="25%"><span style="font-size: 9pt">本论坛现共<%=rs.PageCount%>页 当前<%=page%>页</span></td>
<td width="25%"><span style="font-size: 9pt">
<%If page<>1 Then%><a href=title.asp?page=1&lei=<%=lei%> target="rtop"><%End If%>首页<%If page <> 1 Then%></a><%End If%>
<%If page <> 1 Then Response.Write"<a href=title.asp?page="&(page-1)&"&lei="&lei&" target=rtop>"%>前页<%If page <> 1 Then%><%End If%>
<%If page <> rs.PageCount Then Response.Write"<a href=title.asp?page="&(page+1)&"&lei="&lei&" target=rtop>"%>后页<%If page <> rs.PageCount then%><%End If%>
<%If page <> rs.PageCount Then Response.Write"<a href=title.asp?page="&rs.PageCount&"&lei="&lei&" target=rtop>"%>末页<%If page <> rs.PageCount Then%><%End If%>
</span></td>
<td width="10%"><span style="font-size: 9pt"><a href="bottom.asp?add=1&lei=<%=lei%>&pro=1&look=0" target="rbottom">加帖</a> <a href="title.asp?page=<%=page%>&lei=<%=lei%>" target="rtop">刷新</a></span></td>
<td width="40%"><span style="font-size: 9pt">版主：<a href="mailto:<%=rs1("ownermail")%>"><%=rs1("owner")%></a> <%=rs1("des")%></span></td>
</tr>
</table>
<hr>
<br>
<ul>
<%
If page<>1 Then
sql="select top "&((page-1)*rs.PageSize+1)&" * from bbs where lei='"&lei&"' and pro ='1' Order By num DESC"
rs3.Open sql,conn , adOpenStatic
rs3.MoveLast
ii=rs3("num")
sql="select * from bbs where lei = '"&lei&"'and num<= '"&ii&"' Order By num DESC"
Else
sql="select * from bbs where lei = '"&lei&"' Order By num DESC"
End If
rs2.Open sql,conn , adOpenStatic
''''''''''''''
'''循环显示'''
''''''''''''''
loopnum = 0
floo = 1
ul=0
do while rs.PageSize <> loopnum
loo = rs2("pro")
rs2.MoveNext
if rs2.EOF then
rs2.MovePrevious
ul=1000
else
bloo = rs2("pro")
rs2.MovePrevious
end if
dim tempId
TempId = Rs2("Pid")
%>
<%if loo>floo then
ul = ul + 1
%><ul><%end if%>
<li><span style="font-size: 9pt"><img height="15" src="<%=ImageName(TempId )%>" width="15"><a href="bottom.asp?lei=<%=lei%>&Pid=<%=TempID%>&pro=<%=rs2("pro")%>&id=<%=rs2("id")%>&gro=<%=rs2("gro")%>&num=<%=rs2("num")%>&look=<%=rs2("look")%>&add=2" target="rbottom"><%=rs2("title")%></a> - <%if rs2("Bmemo")="" then%><无内容> -<%end if%> 【<%=rs2("name")%>】 于<i><%=rs2("Btime")%></i> 加贴 <font color="#3300ff">[ID:<%=rs2("id")%> 点击:<%=rs2("look")%>]</font></span></li>
<%if not ul=1000 then%>
<%if bloo<loo then
ul = ul - (loo-bloo)
%>
<%for i=1 to loo-bloo%></ul><%next%><%end if%>
<%end if%>
<%
floo = rs2("pro")
rs2.MoveNext
If rs2.EOF Then Exit do
If rs2("pro") = 1 Then loopnum = loopnum + 1
Loop
%>
<%
for i = 1 to Rs.Pagesize
response.write("</ul>")
next
%>
<hr>
<br>
<table border="1" width="700" cellspacing="0" cellpadding="2" bordercolorlight="#000000" bordercolordark="#D5E9CF">
<tr>
<td width="25%"><span style="font-size: 9pt">本论坛现共<%=rs.PageCount%>页 当前<%=page%>页</span></td>
<td width="25%"><span style="font-size: 9pt">
<%If page<>1 Then%><a href=title.asp?page=1&lei=<%=lei%> target="rtop"><%End If%>首页<%If page <> 1 Then%></a><%End If%>
<%If page <> 1 Then Response.Write"<a href=title.asp?page="&(page-1)&"&lei="&lei&" target=rtop>"%>前页<%If page <> 1 Then%></a><%End If%>
<%If page <> rs.PageCount Then Response.Write"<a href=title.asp?page="&(page+1)&"&lei="&lei&" target=rtop>"%>后页<%If page <> rs.PageCount then%></a><%End If%>
<%If page <> rs.PageCount Then Response.Write"<a href=title.asp?page="&rs.PageCount&"&lei="&lei&" target=rtop>"%>末页<%If page <> rs.PageCount Then%></a><%End If%>
</span></td>
<td width="10%"><span style="font-size: 9pt"><a href="bottom.asp?add=1&lei=<%=lei%>&pro=1&look=0" target="rbottom">加帖</a> <a href="title.asp?page=<%=page%>&lei=<%=lei%>" target="rtop">刷新</a></span></td>
<td width="40%"><span style="font-size: 9pt">版主：<a href="mailto:<%=rs1("ownermail")%>"><%=rs1("owner")%></a> <%=rs1("des")%></span></td>
</tr>
</table>
<%
set rs=nothing
set rs1=nothing
set rs2=nothing
set rs3=nothing
set conn=nothing
End If
%>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -