제목 : 쿠키를 사용한 게시판 리스트 페이지 번호 유지 1(BoardList.asp에 적용)
|
글번호:
|
|
217
|
|
작성자:
|
|
레드플러스
|
|
작성일:
|
|
2004/10/14 오후 12:57:00
|
|
조회수:
|
|
7060
|
<%
'[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
%>