ddd急等！ - ASP技术论坛

谁与争疯

来　自：海南省
等　级：版主
威　望：191
帖　子：15071
专家分：17513
注　册：2007-4-22

第 2 楼

得分:0

<%set rs=server.createobject("adodb.recordset")
sql="select * from news where shifou ='0'" '简体浏览最高的产品
rs.open sql,conn,3,1
max=15
z=0
If Not isempty(request("page")) then
currentpage=request("page")
Else
currentpage=1
End If
num=rs.Recordcount
pages=rs.Pagecount
i=1
rs.Move(max*(currentpage-1))
Do While not rs.Eof
%>
<tr bgcolor="#FFFFFF">
<td width="43%" height="25"><div align="center"><a href="news.asp?id=<%=rs("id")%>" target="_blank">·<%=rs("bt")%></a></div></td>
<td width="31%" height="25" align="center" class="font-hui"><div align="center"><%=rs("zz")%></div></td>
<td width="26%" height="25" align="center" class="font-hui"><div align="center"><%=rs("fbsj")%></div></td>
</tr>
<%
If i>=max then exit do
i=i+1
rs.movenext
Loop

If num mod max=0 then
numpage=num\max
Else
numpage=num\max+1
End If%>

论坛是我家灌水靠大家

2007-06-25 22:11

yms123

等　级：版主
威　望：209
帖　子：12488
专家分：19042
注　册：2004-7-17

第 4 楼

得分:0

[CODE]<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">



<%
'声明数据库记录集对象
Dim rsano
Dim oWebI
'创建数据库记录集对象
Set rsano=Server.CreateObject("ADODB.Recordset")
'设定数据库记录集游标类型
rsano.cursortype=3
'打开记录集对象
rsano.Open "select * From ANOUCE ORDER BY AnnounceTheDate DESC",con
'设定每页显示记录数
rsano.pagesize=25
'得到请求的页号
page=clng(request("page"))
IF request("page")<>"" then
page=clng(request("page"))
Else
page=1
End IF
IF page<1 Then page=1
If page>rsano.pagecount Then page=rsano.pagecount
rsano.absolutepage=page
'网页样式初始化代码
Dim PageStyleT
Set oWebI=New WebSetInf
Set PageStyleT=New PageStyle
Call QueryStyle("网站公告页面",PageStyleT)
%>
<title><%=oWebI.WebName%>-网站公告页面</title>

<style type="text/css">

</style>
<STYLE type=text/css>
A {
TEXT-TRANSFORM: none; TEXT-DECORATION: none
}
UNKNOWN {
TEXT-DECORATION: underline
}
.style22 {font-size: 12px}
.style16 {font-size: 14px}
BODY {
background-color: <%=PageStyleT.BackGround%>;
}
</STYLE>
</head>
<BODY>
<table width="294" height="46" border="0" cellspacing="0">
<tr>
<td width="338"><div align="center" class="style22">公告标题</div></td>
<td width="95"><div align="center" class="style22">发布日期</div></td>
</tr>
<%
'定义循环变量
dim iPage
For iPage=1 to rsano.Pagesize
'recno=(page-1)*rsano.pagesize+ipage记录编号计算公式
Response.Write("<tr>")
Response.write("<td><span class=style16><a href=announceview.asp?anbh="&rsano.Fields(0).Value&" target=_self>"&rsano.Fields(1).Value&"</a></span></td>")
Response.Write("<td><span class=style22>"&FormatDateTime(rsano.Fields(4).Value,2)&"</span></td>")
Response.Write("</tr>")
rsano.MoveNext
IF rsano.EOF Then
Exit For
End If
Next
%>
</table>
<table width="293" border="0">
<tr>
<%
'翻页控制代码
IF page<>1 Then
Response.Write("<td><span class=style22><a href=announce.asp?page=1>第一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page="&(page-1)&">上一页</a></span></td>")
Else
Response.Write("<td><span class=style22>第一页</span></td>")
Response.Write("<td><span class=style22>上一页</span></td>")
End IF
IF page<>rsano.pagecount then
Response.Write("<td><span class=style22><a href=announce.asp?page=" & (page+1) & ">下一页</a></span></td>")
Response.Write("<td><span class=style22><a href=announce.asp?page=" & rsano.pagecount & ">最后一页</a></span></td>")
Else
Response.Write("<td><span class=style22>下一页</span></td>")
Response.Write("<td><span class=style22>最后一页</span></td>")
End IF
%>
<td><span class=style22>共<%=rsano.pagecount%>页</span></td>
<td><span class=style22>当前第<%=page%>页</span></td>
</tr>
</table>
<%
'网页对象析构代码
Set PageStyleT=Nothing
rsano.Close
con.Close
Set rsano=Nothing
Set con=Nothing
Set oWebI=Nothing
%>
</body>
</html>[/CODE]
给楼主一个分页代码的示例，个人觉得搂住那个分页方法可能不太好。

2007-06-25 23:02