ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : 쿠키를 사용한 게시판 리스트 페이지 번호 유지 1(BoardList.asp에 적용)
글번호: 217
작성자: 레드플러스
작성일: 2004/10/14 오후 12:57:00
조회수: 6590
<%
'[1] 변수 선언
Dim objCon: Dim objRs: Dim strSql
'[!] Paging
Dim intPage: intPage = Request("Page")    '//현재 페이지 수
If intPage = "" Then
    intPage = 1
End If

'[!] 쿠키 적용 : 리스트 페이지 번호 유지----------------------
Response.Cookies("Basic")("Page") = intPage
'-------------------------------------------------------------

Dim intPageCount: intPageCount = 0 '//총 페이지 수
'[2] 커넥션 객체 생성
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 커넥션 객체 열기 : 커넥션 스트링
objCon.Open(Application("CONNECTION_STRING"))
    strSql = "Select * From Basic Order By Num Desc"
    Set objRs = Server.CreateObject("ADODB.RecordSet")
        '[!] Paging
        objRs.PageSize = 10 '//페이지 사이즈 결정
        objRs.Open strSql, objCon, 1
            '[8] 모양 만들어 출력
            Call ShowRecordSet(objRs)    '//ShowRecordset() 함수 생성
        '[9] 레코드 셋 객체 닫기
        objRs.Close()
        '[10] 레코드 셋 객체 해제
    Set objRs = Nothing
'[12] 커넥션 객체 닫기
objCon.Close()
'[13] 커넥션 객체 해제
Set objCon = Nothing
%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 24. 답변형 게시판 작성 프로젝트 - 레드플러스 2003-10-06 7169
  23. 쿠키 실습 예제 RequestResponseCookies.asp(860 Byte(s)) 레드플러스 2002-11-07 6873
현재글 쿠키를 사용한 게시판 리스트 페이지 번호 유지 1(BoardList.asp에 적용) - 레드플러스 2004-10-14 6590
  쿠키를 사용한 게시판 리스트 페이지 번호 유지 2(BoardView.asp에 적용) - 레드플러스 2004-10-14 6855
다음글 22. 자료실 게시판 작성 프로젝트 - Red+ 2002-05-12 7098
 
손님 사용자 Anonymous (손님)
로그인 Home