<!-#포함 파일 = "conn.asp"->
<%
"다음 부분은 제출 된 페이지가 법적 매개 변수인지 확인하는 것입니다.
"이 부분은 제출 된 매개 변수가 값 문자인지 확인하는 데 가장 좋습니다.
희미한 페이지
page = trim (요청 ( "페이지")
if page = "" "그런 다음
페이지 = 1
elseif cint (page) <= 0
페이지 = 1
또 다른
page = cint (페이지)
끝 If
"문의, 당신이 표시하고 싶은 기록을 꺼내십시오
Dim Rs, SQL, Str
set rs = server.createobject ( "adodb.oldset")
SQL = "A1에서 선택 *"
Rs.OOPEN SQL, CONN, 1,3
그렇지 않다면 그렇다면
str = rs ( "a1")
끝 If
Rs.Close
RS = 아무것도 설정하지 않습니다
"기록 된 레코드를 배열에 넣으십시오
희미한 strtmp
strtmp = split ((str), "<br>")))
"표시 될 레코드를 제거하고 동시에 페이지 수를 얻으십시오.
Dim N, TMP, I, J, Tt
n = 500
i = 0
j = 0
내가 <= 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 그런 다음
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
"페이징 컨텐츠를 보여주십시오
"통과의 매개 변수에주의를 기울이면 페이지 만 전달됩니다. 다른 매개 변수가 함께 전달되는 경우 페이징 후에 표시되지 않습니다.
응답. "Paging->" "" ""
n = 1 ~ j의 경우
n = 페이지 인 경우
응답. "& nbsp;"
또 다른
응답. "[<a href = index.asp? page ="& n & ">"& n & "</a>]
끝 If
다음
응답. "<br> <br>" "
"표시 할 콘텐츠 의이 부분을 보여주십시오.
응답
%>