91香蕉视频APP下载安装IOS,国产呦在线沙发,亚洲大尺度在线观看

%@ Language = VBSCRIPT %>
% Option Explicit %>
%
rem 在asp中通過getrows實現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
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
%>

您可能感興趣的文章:

用GetString提高ASP的速度
asp ADO GetString函數(shù)與用GetString來提高ASP的速度
asp中在JScript中使用RecordSet對象的GetRows
在asp中通過getrows實現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼
asp中記錄集對象的getrows和getstring用法分析

標簽：上海通遼邢臺涼山清遠楚雄赤峰南京

巨人網(wǎng)絡通訊聲明：本文標題《asp中通過getrows實現(xiàn)數(shù)據(jù)庫記錄分頁的一段代碼》，本文關(guān)鍵詞 asp,中,通過,getrows,實現(xiàn),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權(quán)與本站無關(guān)。