asp¶à·ç¸ñ·ÖÒ³Àà

 <%
'asp¶à·ç¸ñ·ÖÒ³Àà
'ʹÓ÷¶Àý
'==========================================================================
'Set test = New Page '´´½¨À²
'test.CurrentPage=1 '×Ô¼ºÈ¥¶ÁÈ¡À­,µ±Ç°µÄÒ³Êý
'test.temp="{N1}{N2}{N3} {N4}"'ÕâÀïÊÇÏÔʾµÄÄ£°æ,×Ô¼º¿ÉÒÔ¶¨Òå,ÖÁÓÚ±êÇ©,¿ÉÒÔ×Ô¼ºÈ¥ÄǸöÀàÀïÕÒ
'test.Exec "Select * from [movie]",conn 'ÕâÀïÖ´ÐÐsqlÓï¾ä,conn¾ÍÊÇÊý¾ÝÁ¬½Ó¶ÔÏóÁË
'test.Show 1 'ÏÔʾ·ÖÒ³Ñùʽ,¿ÉÒÔ¸ù¾ÝÓû§ÊäÈëµÄ²ÎÊý°ÑÕâÀïµÄ1»»³É±äÁ¿
'=====================================================================
Class Page
Private CurrPage
Private PageN
Private UrlStr
Private TempStr
Private ErrInfo
Private IsErr
Private TotalRecord
Private TotalPage
Public PageRs
Private TempA(11)
Private TempB(8)
'------------------------------------------------------------
Private Sub Class_Initialize()
CurrPage=1'//ĬÈÏÏÔʾµ±Ç°Ò³ÎªµÚÒ»Ò³
PageN=10'//ĬÈÏÿҳÏÔʾ10ÌõÊý¾Ý
UrlStr="#"
TempStr=""
ErrInfo="ErrInfo:"
IsErr=False
End Sub
Private Sub Class_Terminate()
If IsObject(PageRs) Then
PageRs.Close
Set PageRs=Nothing
End If
Erase TempA
Erase TempB
End Sub
'----------------------------------------------------------
'//»ñÈ¡µ±Ç°Ò³Âë
Public Property Let CurrentPage(Val)
CurrPage=Val
End Property
Public Property Get CurrentPage()
CurrentPage=CurrPage
End Property
'//»ñȡÿҳÏÔʾÌõÊý
Public Property Let PageNum(Val)
PageN=Val
End Property
Public Property Get PageNum()
PageNum=PageN
End Property
'//»ñÈ¡URL
Public Property Let Url(Val)
UrlStr=Val
End Property
Public Property Get Url()
Url=UrlStr
End Property
'//»ñÈ¡Ä£°å
Public Property Let Temp(Val)
TempStr=Val
End Property
Public Property Get Temp()
Temp=TempStr
End Property
'------------------------------------------------------------
Public Sub Exec(Sql,ConnObj)
On Error Resume Next
Set PageRs=Server.CreateObject("ADODB.RecordSet")
PageRs.CursorLocation = 3 'ʹÓÿͻ§¶ËÓα꣬¿ÉÒÔʹЧÂÊÌá¸ß
PageRs.PageSize = PageN '¶¨Òå·ÖÒ³¼Ç¼¼¯Ã¿Ò³ÏÔʾ¼Ç¼Êý
PageRs.Open Sql