帮忙写ASP查询分页代码，谢谢！

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn1.asp" -->
<%
Dim a1__MMColParam
a1__MMColParam = "1"
If (Request.Form("tuhao") <> "") Then
a1__MMColParam = Request.Form("tuhao")
End If
%>
<%
Dim a1
Dim a1_numRows

Set a1 = Server.CreateObject("ADODB.Recordset")
a1.ActiveConnection = MM_conn1_STRING
a1.Source = "SELECT * FROM 库存 WHERE 配件图号 LIKE '%" + Replace(a1__MMColParam, "'", "''") + "%' ORDER BY 配件图号 ASC"
a1.CursorType = 0
a1.CursorLocation = 2
a1.LockType = 1
a1.Open()

a1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
a1_numRows = a1_numRows + Repeat1__numRows
%>
<!DOCTY

帮忙解释ASP分页代码 asp 分页代码出错，高手来帮忙看下谢谢 asp 按日期查询 分页代码问题 asp中表的查询并分页的代码 的提问 asp查询后分页 ASP分页查询问题 asp 添加ACCESS 查询 请帮忙检查代码~谢谢 求ASP分页代码 asp分页代码问题 ASP 内容分页代码。