繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp中通过getrows实现数据库记录分页的一段代码
- ASP
- 简单ASP论坛DIY
- 如何防止页面中的敏感信息被提取
- asp创建对象及中文显示解决技巧
- 基础开发入门级：JSP与ASP的比较
- 数据库受到限制怎么办？
- ASP初学者常犯的几个错误
- Asp定时执行操作、Asp定时读取数据库(网页定时操作详解)
- ASP优化：非常实用的ASP提速技巧五则
- ASP教程：解决ASP脚本运行超时的方法
- ASP安全：简单学习ASP连接数据库方法
- 简单一招用ASP实现对IE地址栏参数的判断
- asp控制xml数据库的6段非常的经典代码
- ASP进阶：验证身份证号是否正确的代码
- ASP教程：使用ASP生成图片彩色校验码
- ASP进阶：用ASP判断文件地址是否有效
- ASP进阶：用asp做的简单搜索引擎代码
- ASP实例 挂QQ的网页源代码ASP/PHP
- ASP答疑 解决ASP脚本运行超时的方法
- 轻轻松松破解开别人ASP木马密码的方法
- 用ASP操作Access数据库 ADOX的使用
ASP 中的 asp中通过getrows实现数据库记录分页的一段代码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 67 ::
收藏到网摘: n/a
<%@ Language = VBSCRIPT %>
<% Option Explicit %>
<%
rem 在asp中通过getrows实现数据库记录分页的一段代码
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset")
if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt(iStart)
end if
if Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 30
else
iOffset = Cint(iOffset)
end if
Response.Write "Viewing " & iOffset & " records starting at record " & iStart & "<BR>"
Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
'objConn.Open "DSN=MP3"
dim connstr
dim db
db="csnjimageman.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
objconn.Open connstr
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM imageinfo", objConn
Dim aResults
aResults = objRS.GetRows
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Dim iRows, iCols, iRowLoop, iColLoop, iStop
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)
If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If
For iRowLoop = iStart to iStop
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop, iRowLoop) & " "
Next
Response.Write "<BR>"
Next
Response.Write "<P>"
if iStart > 0 then
'Show Prev link
Response.Write "<A HREF=""GetRows.asp?Start=" & iStart-iOffset & _
"&Offset=" & iOffset & """>Previous " & iOffset & "</A>"
end if
if iStop < iRows then
'Show Next link
Response.Write " <A HREF=""GetRows.asp?Start=" & iStart+iOffset & _
"&Offset=" & iOffset & """>Next " & iOffset & "</A>"
end if
%>
评论 (0) All
