UC知道ASP如何将搜索结果分页？
来源：百度知道 编辑：UC知道 时间：2024/09/24 16:34:49
代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/data.mdb")
%>
<%
Dim conn__MMColParam
conn__MMColParam = "1"
If (Request.Form("item") <> "") Then
conn__MMColParam = Request.Form("item")
End If
%>
<%
Dim conn_numRows
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM data WHERE item like '%" + Replace(conn__MMColParam, "'", "''") + "%'"
rs.open sql,conn,1,1
conn_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
conn_numRows = conn_numRows + Repeat1__
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/data.mdb")
%>
<%
Dim conn__MMColParam
conn__MMColParam = "1"
If (Request.Form("item") <> "") Then
conn__MMColParam = Request.Form("item")
End If
%>
<%
Dim conn_numRows
set rs=server.createobject("adodb.recordset")
sql= "SELECT * FROM data WHERE item like '%" + Replace(conn__MMColParam, "'", "''") + "%'"
rs.open sql,conn,1,1
conn_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
conn_numRows = conn_numRows + Repeat1__
<%
if rs.RecordCount>0 then
Response.Write "共"+cstr(rs.PageCount)+"页 "
Response.Write "当前页：第"+cstr(page)+"页 "
if page-1 >0 then
response.write "<a href="+Request.ServerVariables("SCRIPT_NAME") & "?reportyear="+reportyear+"&page="&cstr(page-1)&">"
response.write "上一页"
response.write "</a>"
response.write " "
end if
if (page-limit)>0 then
response.write &quo