<！ - ＃include file = "conn.asp" - >
<％
「次の部分は、送信されたページが法的パラメーターであるかどうかを確認することです。
「この部分は、提出されたパラメーターが値文字であるかどうかを判断するのに最適です
薄暗いページ
page = trim（request（ "page"）
page = "" thenの場合
ページ= 1
elseif cint（page）<= 0 then
ページ= 1
それ以外
ページ= cint（ページ）
ifを終了します
「お問い合わせ、表示したいレコードを取り出します
DIM RS、SQL、STR
rs = server.createObject（ "adodb.oldset"）を設定します
sql = "select * from a1"
rs.oopen sql、conn、1,3
rs.eofではない場合
str = rs（ "a1"）
ifを終了します
rs.close
rs = Nothingを設定します
「記録されたレコードを配列に入れます
dim strtmp
strtmp = split（（str）、 "<br>"））
「表示されるレコードを削除し、同時にページ数を取得します
dim n、tmp、i、j、tt
n = 500
i = 0
j = 0
i <= uborder（strtmp）
tmp = strtmp（i）
tt = true
ttをしながらしてください
i> = ubound（strtmp）の場合
tt = false
J = J 1
elseif len（tmp）> = n the
tt = false
J = J 1
elseif len（tmp）len（strtmp（i 1））> = n then
tt = false
J = J 1
それ以外
tmp = tmp "<br>" strtmp（i 1）
i = i 1
ifを終了します
ループ
page = jの場合、str = tmp "<br>"
i = i 1
ループ
「送信のパラメーターが国境を越えているかどうかを判断します。国境を越えた場合、最後のページのコンテンツを取得します
page> jの場合
str = tmp
ifを終了します
「ページングの内容を見せます
「通過のパラメーターに注意してください。ここではページのみが渡されます。他のパラメーターが一緒に渡される場合、それ以外の場合はページング後に表示されません。
Response.write "paging->" "" "
n = 1からjへ
n = pageの場合
Response.Write "＆nbsp;"＆nbsp; "
それ以外
respons.write "[<a href = index.asp？page ="＆n＆ ">"＆n＆ "</a>]
ifを終了します
次
Response.Write "<br> <br>" "
「表示されるコンテンツのこの部分のこの部分を表示する
Response.write str
％>