有关分页的问题。asp高手请进!

来源:百度知道 编辑:UC知道 时间:2024/05/26 01:13:41
<%
Sub ShowPage(objRS, PageNo)
Response.Write "<TABLE BORDER=1>"
'读取数据表的字段名称以作为表格的标题
Data = "<TR>"
For I = 0 To objRS.Fields.Count - 1
Data = Data & "<TH>" & objRS.Fields(I).Name & "</TH>"
Next
Response.Write Data & "</TR>"

'设置目前页次,然后利用 For...Next 循环显示出该页的记录
objRS.AbsolutePage = PageNo
For I = 1 To objRS.PageSize
Data = "<TR>"
For J = 0 To objRS.Fields.Count - 1
Data = Data & "<TD>" & objRS.Fields(J).Value & "</TD>"
Next
Response.Write Data & "</TR>"
objRS.MoveNext
If objRS.EOF Then Exit For
Next
Response.Write "</TABLE>&qu

每页显示10条,分四页显示,显示方式为:1 2 3 4,分别有链接

建立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" col