06/01/04 13:36:35
>>296
漏れはこんな感じでやってる（実際はもっと細かいチェックがいろいろと）
他にもっといい方法無い？
Dim conn, rs
Dim CurrentPage, i
Const DefaultPageSize = 50
CurrentPage = Request("P")
If CurrentPage = "" Then
CurrentPage = 1
ElseIf IsNumeric(CurrentPage) = False Then
CurrentPage = 1
Else
CurrentPage = CLng(CurrentPage)
End If
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockReadOnly
（厨略）
conn.Open
rs.PageSize = DefaultPageSize
rs.AbsolutePage = CurrentPage
rs.Open
Do Until rs.EOF Or i > DefaultPageSize
Response.Write(rs.Fields(0).Value)
Response.Write("<br>")
i = i + 1
Loop
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing