asp 利用ADO 实现数据分页

最新推荐文章于 2020-06-03 17:34:26 发布

csjsias

最新推荐文章于 2020-06-03 17:34:26 发布

阅读量453

点赞数

文章标签： asp each border user file

本文链接：https://blog.csdn.net/csjsias/article/details/2664256

版权

<html>
<body>

<%
Dim rsData
Dim intPage
Dim intTotalPages
Dim fldF
Dim intRec
Dim strQuote
Dim strScriptName
Dim strConn
Dim adUserClient

strConn = "Provider = **;Data Source=**;Initial Catalog=**;User Id=;Password=chinasoft"

strQuote = Chr(34) 'The double quote character
Set rsData = Server.CreateObject("ADODB.Recordset")

'set the page size
rsData.PageSize = 10
rsData.CursorLocation = adUseClient

'Open the data
rsData.Open "City",strConn,adOpenForwardOnly,adLockReadOnly,adCmdTable

intPage=1
'Get the requested data
if Request.QueryString("page") = "" then
   intPage = 1
else
   'Protest against out of range pages,in case of a user specified page number
   if intPage<1 then
       intPage = 1
   else
       if intPage>rsData.PageCount then
           intPage = rsData.PageCount
       else
           intPage = CInt(Request.QueryString("page"))
       end if
   end if
end if

'set the page
rsData.AbsolutePage = intPage

'Start building the table
Response.Write "<p><table border=1><thead><tr>"
for each fldF in rsData.Fields
   Response.Write "<td>" & fldF.Name & "</td>"
Next
Response.Write "</tr></thead><tbody>"

'Now loop through the page
for intRec=1 to rsData.PageSize
   if not rsData.EOF then
       Response.Write "<tr>"
       for each fldF in rsData.Fields
           response.write "<td>" & fldF.Value & "</td>"
       next
       Response.Write "</tr>"
       rsData.MoveNext
   end if
next
Response.Write "</tbody></thead></table></p>"

'now some paging controls
strScriptName = Request.ServerVariables("SCRIPT_NAME")
Response.Write " <a href=" & strQuote & _
       "?page=1" & strQuote & ">First Page</a>"
'Only give an active previous page if there are previous pages
if intPage =1 then
   Response.write " <span>Previous Page</span>"
else
   Response.write "&nbsp:<a href=" & strQuote & _
                   "?page=" & intPage-1 & strQuote & ">Previous Page</a>"
end if

'only give an active next page if thereare more pages
if intPage = rsData.PageCount then
   Response.write " <span>Next Page</span>"
else
   Response.write "&nbsp:<a href=" & strQuote & strScriptName & _
                   "?page=" & intPage+1 & strQuote & ">Next Page</a>"
end if

'The last page
Response.Write " <a href=" & strQuote & strScriptNmae & _
       "?page=" & rsData.PageCount & strQuote & ">Last Page</a>"


'And clear up
rsData.Close
Set rsData = nothing
%>

</body>
</html>

csjsias

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
asp 利用ADO 实现数据分页

Dim rsDataDim intPageDim intTotalPagesDim fldFDim intRecDim strQuoteDim strScriptNameDim strConnDim adUserClient strConn = "Provider = **;Data Source=**;Initial Catalog=**;User Id=;Password=chinasoft"
复制链接

扫一扫