多数据显示分页

依然范特西

<%
Dim strQuery,arrA,arrB,arrC,leftrs1
strQuery = "select strname from tsc   where strname like '%信息%'   order by strName desc"
arrA = objZl.getRsArray(strQuery)
strQuery = "select strname from gjhyxscg   where strname like '%信息%'   order by strName desc"
arrB = objZl.getRsArray(strQuery)
If isempty(arrA) then
arrC =arrB
ElseIf isempty(arrB) then
arrC = arrA
Else
arrC = arrA
Dim i ,c
   For i=0 to i = Ubound(arrB)
    arrC(Ubound(arrA) + i + 1)
    arrC(Ubound(arrA) + i + 1) = arrB(i)
    Response.write arra(0, i) & arrb(0, i)
   next
End If
'现在不就把用户的信息都显示出来了吗?你现在要做的是分页出来。你写个分页函数.现在已经得出来数据库的数据一共是Ubound(arrB)每页分10篇可以分多少页的话就写上Ubound(arrB)/10=得出分了多少页
%>