分页如何做到从后面读到第一页

来源：百度知道 编辑：UC知道 时间：2024/05/04 15:26:13
<%
Dim RS, Sql
Sql = "select NameTitle,Figurename,Introduction from PageTable "
Sql = Sql & "order by ID asc"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open Sql,DB_Conn,1,1
'**************************************************
'/分页开始
'**************************************************
Dim Obj_CreatePage, Page_Infonum, P_I
Set Obj_CreatePage = New Pagination_Class
Page_Infonum = 8 '每页显示信息数
Obj_CreatePage.GetRs = RS
Obj_CreatePage.Get_Pagenum = Page_Infonum
Obj_CreatePage.URL_Path = "siping02.asp" '分页文件地址
Obj_CreatePage.Page_Navtype = 2 '分页导航(1为数字,2为文字;默认为文字导航)
Call Obj_CreatePage.Pagination_Init() '初始化分页
%>
<table width="100%" border="1" cellpadding="0" cellspacing="1" >
<%
If Not(RS.Bof and RS.Eof) Then
For P_I = 0 to Page_Infonum
If RS.Eof Then

建立access的数据库news,还有表news,表的字段(id,title),id唯一,输入数据保存,用下面代码可查询,可分页
-----------------------下面保存为search.asp--------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件</title>
</head>
<body bgcolor="#ffffff">
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<script>
function btn_ck_bh_Click()
{
var cx = document.form1.cxsj.value;
form1.action ="search.asp?cx="+cx;
}
</script>
<table border="1" cellspacing="0" bgcolor="#F0F8FF" bordercolorlight="#4DA6FF" bordercolordark="#ECF5FF" width="88%" style="word-break:break-all">
<tr>
<td width="778" align="center" colspan="7">
<form me