＜%= ASP総合 %＞ Part.4

＜%= ASP総合 %＞ Part.4 at PHP

297:nobodyさん
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

次ページ

続きを表示

1を表示