¿À·ù Çü½Ä:
ADODB.Recordset (0x800A0CB3)
°³Ã¼ ¶Ç´Â °ø±ÞÀÚ°¡ ¿äûÇÑ ÀÛ¾÷À» ¼öÇàÇÒ ¼ö ¾ø½À´Ï´Ù.
============================================
<%
if request("PageNo")="" then
PageNo=1
else
PageNo=CInt(Request("PageNo"))
end if
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\LoginOri.mdb"
Set db = Server.CreateObject("ADODB.Connection")
db.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from notice order by n_id desc",db,adOpenStatic
if(rs.BOF=True and rs.EOF=True) then
Record_Null=1
else
BlockSize=10
rs.PageSize = 1
PageSize = rs.PageSize
PageCount = rs.PageCount
RecordCount = rs.RecordCount
BlockNo = ( PageNo + (BlockSize-1 ) ) \ BlockSize
rs.AbsolutePage = PageNo <=======================ÀÌ ºÎºÐÀÌ ¿À·ù ºÎºÐÀÔ´Ï´Ù.
StartPage = ( (BlockNo-1)*BlockSize)+1
if PageCount > (BlockNo*BlockSize) then
EndPage = (BlockNo*BlockSize)
else
EndPage = PageCount
end if
end if
if PageNo < 1 OR PageNo > PageCount then
Page_Null = 1
else
Page_Null = 0
end if
table_page_size = 10
%>
==============================================
µµ´ëü ¿Ö ¿¡·¯ÀÎÁö ¸ð¸£°Ú¾î¿ä ¤Ì¤Ì µµ¿ÍÁÖ¼¼¿ä