XDOWNPAGE ASP경굶 롸女잚

　　<%
===================================================================
XDOWNPAGEASP경굶
경굶1.00
Codebyzykj2000
BBS:
굶넋埼옵鹿출롤賈痰、錦맣，句寡乖돨넋埼콘槨퀭돨묏鱗던윱렘긱
뎃헝괏즛鹿?逑律?

넋埼景듐
굶넋埼寮狼角뚤鑒앴롸女돨꼬롸쏵契죄룐陋，랍鑒앴鞫刻꼬룀供홍譚痰빵菱땍屢，
連넣URL뜩몸꽝鑒

賈痰綱츠
넋埼꽝鑒綱츠
PapgeSize땍屢롸女첼寧女돨션쩌鑒
GetRS럿쀼쒔법롸女돨Recordset늪橄昑怜뗍
GetConn돤돕鑒앴욋젯쌈
GetSQL돤돕꿴璂刀얌
넋埼렘랬綱츠
ShowPage鞫刻롸女돔봄係,顆寧돨무痰렘랬

===================================================================

ConstBtn_First=<fontface=webdings>9</font>땍屢뒤寧女객큐鞫刻湳駕
ConstBtn_Prev=<fontface=webdings>3</font>땍屢품寧女객큐鞫刻湳駕
ConstBtn_Next=<fontface=webdings>4</font>땍屢苟寧女객큐鞫刻湳駕
ConstBtn_Last=<fontface=webdings>:</font>땍屢離빈寧女객큐鞫刻湳駕
ConstXD_Align=Center땍屢롸女斤口뚤펭렘駕
ConstXD_Width=100%땍屢롸女斤口움댕鬼

ClassXdownpage
PrivateXD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL


=================================================================
PageSize橄昑
?阮쳉왑뿍났캠瀘낫僭?
=================================================================
PublicPropertyLetPageSize(int_PageSize)
IfIsNumeric(Int_Pagesize)Then
XD_PageSize=CLng(int_PageSize)
Else
str_error=str_error&PageSize돨꽝鑒꼇攣횅
ShowError()
EndIf
EndProperty
PublicPropertyGetPageSize
IfXD_PageSize=or(not(IsNumeric(XD_PageSize)))Then
PageSize=10
Else
PageSize=XD_PageSize
EndIf
EndProperty

=================================================================
GetRS橄昑
럿쀼롸女빈돨션쩌섞
=================================================================
PublicPropertyGetGetRs()
SetXD_Rs=Server.createobject(adodb.recordset)
XD_Rs.PageSize=PageSize
XD_Rs.OpenXD_SQL,XD_Conn,1,1
Ifnot(XD_Rs.eofandXD_RS.BOF)Then
Ifint_curpage>XD_RS.PageCountThen
int_curpage=XD_RS.PageCount
EndIf
XD_Rs.AbsolutePage=int_curpage
EndIf
SetGetRs=XD_RS
EndProperty

================================================================
GetConn돤돕鑒앴욋젯쌈

================================================================
PublicPropertyLetGetConn(obj_Conn)
SetXD_Conn=obj_Conn
EndProperty

================================================================
GetSQL돤돕꿴璂刀얌

================================================================
PublicPropertyLetGetSQL(str_sql)
XD_SQL=str_sql
EndProperty



==================================================================
Class_Initialize잚돨놓迦뺏
놓迦뺏뎠품女돨令

==================================================================
PrivateSubClass_Initialize
========================
?擁ⓕ뿅㈁狂壎퀵a훰令
========================
XD_PageSize=10?擁㉦瀘났컴?君두?0
========================
삿혤뎠품충돨令
========================
Ifrequest(page)=Then
int_curpage=1
ElseIfnot(IsNumeric(request(page)))Then
int_curpage=1
ElseIfCInt(Trim(request(page)))<1Then
int_curpage=1
Else
Int_curpage=CInt(Trim(request(page)))
EndIf

EndSub

====================================================================
ShowPage눼쉔롸女돔봄係
唐看女、품寧女、苟寧女、칫女、뻘唐鑒俚돔봄

====================================================================
PublicSubShowPage()
Dimstr_tmp
XD_sURL=GetUrl()
int_totalRecord=XD_RS.RecordCount
Ifint_totalRecord<=0Then
str_error=str_error&悧션쩌鑒槨쥐，헝渴흙鑒앴
CallShowError()
EndIf
Ifint_totalRecord=then
int_TotalPage=1
Else
Ifint_totalRecordmodPageSize=0Then
int_TotalPage=CLng(int_TotalRecord/XD_PageSize*-1)*-1
Else
int_TotalPage=CLng(int_TotalRecord/XD_PageSize*-1)*-1+1
EndIf
EndIf

IfInt_curpage>int_TotalpageThen
int_curpage=int_TotalPage
EndIf

==================================================================
鞫刻롸女斤口，몹몸친욥몽앴菱성狼헹뫘맣鞫헹貫零
==================================================================
response.write
str_tmp=ShowFirstPrv
response.writestr_tmp
str_tmp=showNumBtn
response.writestr_tmp
str_tmp=ShowNextLast
response.writestr_tmp
str_tmp=ShowPageInfo
response.writestr_tmp

response.write
EndSub

====================================================================
ShowFirstPrv鞫刻看女、품寧女


====================================================================
PrivateFunctionShowFirstPrv()
DimStr_tmp,int_prvpage
Ifint_curpage=1Then
str_tmp=Btn_First&&Btn_Prev
Else
int_prvpage=int_curpage-1
str_tmp=<ahref=&XD_sURL&1&>&Btn_First&</a><ahref=&XD_sURL&CStr(int_prvpage)&>&Btn_Prev&</a>
EndIf
ShowFirstPrv=str_tmp
EndFunction

====================================================================
ShowNextLast苟寧女、칫女


====================================================================
PrivateFunctionShowNextLast()
Dimstr_tmp,int_Nextpage
IfInt_curpage>=int_totalpageThen
str_tmp=Btn_Next&&Btn_Last
Else
Int_NextPage=int_curpage+1
str_tmp=<ahref=&XD_sURL&CStr(int_nextpage)&>&Btn_Next&</a><ahref=&XD_sURL&CStr(int_totalpage)&>&Btn_Last&</a>
EndIf
ShowNextLast=str_tmp
EndFunction


====================================================================
ShowNumBtn鑒俚돔봄


====================================================================
PrivateFunctionshowNumBtn()
Dimi,str_tmp
Fori=1toint_totalpage
str_tmp=str_tmp&[<ahref=&XD_sURL&CStr(i)&>&i&</a>]
Next
showNumBtn=str_tmp
EndFunction


====================================================================
ShowPageInfo롸女斤口
뫘앴狼헹菱契錦맣

====================================================================
PrivateFunctionShowPageInfo()
Dimstr_tmp
str_tmp=女늴:&int_curpage&/&int_totalpage&女묾&int_totalrecord&係션쩌&XD_PageSize&係/첼女
ShowPageInfo=str_tmp
EndFunction
==================================================================
GetURL돤돕뎠품돨URL
뫘앴URL꽝鑒꼇谿，삿혤꼇谿돨써벎

==================================================================
PrivateFunctionGetURL()
Dimstrurl,str_url,i,j,search_str,result_url
search_str=page=

strurl=Request.ServerVariables(URL)
Strurl=split(strurl,/)
i=UBound(strurl,1)
str_url=strurl(i)돤돕뎠품女匡숭츰

str_params=Trim(Request.ServerVariables(QUERY_STRING))
Ifstr_params=Then
result_url=str_url&?page=
Else
IfInstrRev(str_params,search_str)=0Then
result_url=str_url&?&str_params&&page=
Else
j=InstrRev(str_params,search_str)-2
Ifj=-1Then
result_url=str_url&?page=
Else
str_params=Left(str_params,j)
result_url=str_url&?&str_params&&page=
EndIf
EndIf
EndIf
GetURL=result_url
EndFunction

====================================================================
?阮?nbsp;Terminate慤숭。

====================================================================
PrivateSubClass_Terminate
XD_RS.close
SetXD_RS=nothing
EndSub
====================================================================
ShowError댄轎瓊刻


====================================================================
PrivateSubShowError()
Ifstr_Error<>Then
Response.Write(&str_Error&)
Response.End
EndIf
EndSub
Endclass



conn.opendriver={microsoftaccessdriver(*.mdb)};dbq=&server.Mappath(/data/5iduohai.mdb)

#############잚딧痰湳절#################
눼쉔뚤蹶
Setmypage=newxdownpage
돤돕鑒앴욋젯쌈
mypage.getconn=conn
sql刀얌
mypage.getsql=select*from[DH_Company]orderbyidasc
?阮쳉왑뿍났캬픈셨催暄盆?係
mypage.pagesize=5
럿쀼Recordset
setrs=mypage.getrs()
鞫刻롸女斤口，侶몸렘랬옵鹿，瞳setrs=mypage.getrs()鹿빈,옵瞳훨雷貫零딧痰，옵鹿딧痰뜩늴


鞫刻鑒앴
Response.Write(<br/>)
fori=1tomypage.pagesize
侶쟁앎옵鹿菱땍屢鞫刻렘駕죄
ifnotrs.eofthen
response.writers(0)&<br/>
rs.movenext
else
exitfor
endif
next
mypage.showpage()
%>