在asp中通过getrows实现数据库记录分页的一段代码
<%@ 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 & " Dim objConn, objRS
Set objConn = Server....[ 查看全文 ]
2016-01-29
标签:
