ҵվоҳ
ɽվ˾Ƽһҳ࣡
ͨ÷ҳ-Ҷӵķҳ1.2İ
1.ṩͬʽķҳ,ü,ֻҪʽ,Ϳʾͬķҳʽ,ṩ24ʽ
2.ڴҳ, 1.asp?type=1&page=1,ǺܺõĴķҳ
3.ҳٶȱͨʾٶȿ,Чʸ
1:ݿӴ
<% Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr %>
2:ҳʽ(ṩ24ʽ,ԸԼҪòͬʽpage1.css-page24.css),鿴
3:ҳ
4:ݿѭ
ַ |
˵ |
ʱ |
ʺ |
<%
Set Page = new Cls_Page '
Set Page.Conn = conn 'õݿӶ
With Page
.PageSize = 5 'ÿҳ¼
.MaxRecord= 0
.PageParm = "p" 'ҳ
'.PageIndex = 10 'ǰҳѡһɾ̬ʱҪ
.Database = "ac" 'ݿ,ACΪaccess,MSSQLΪsqlserver2000洢̰,MYSQLΪmysql,PGSQLΪPostGreSql
.Pkey="id" '
.Field="id,url,meno,addtime,y_id" 'ֶ
.Table="url" '
.Condition="" ',Ҫwhere
.OrderBy=" id desc" ',Ҫorder by,Ҫascdesc
.RecordCount = -1 'ܼ¼ⲿֵ0棨ʺ-1Ϊsession-2Ϊcookies-3Ϊapplacation
.NumericJump = 9 'ҳѡĬΪ3Ϊת0Ϊʾ
.Template = "{$RecordCount} {$PageSize}/ҳ {$PageIndex}/{$PageCount} {$FirstPage} {$PreviousPage} {$NumericPage} {$NextPage} {$LastPage} {$InputPage} {$SelectPage}" 'ģ壬ѡĬֵ
.FirstPage = "ҳ" 'ѡĬֵ
.PreviousPage = "һҳ" 'ѡĬֵ
.NextPage = "һҳ" 'ѡĬֵ
.LastPage = "βҳ" 'ѡĬֵ
.NumericPage = " {$PageNum} " 'ַҳģ壬ѡĬֵ
End With
rs = Page.ResultSet() '¼
'rc = Page.RowCount() 'ѡܼ¼
nav = Page.Nav() 'ҳʽ
If IsNull(rs) Then
Response.Write "¼ |
"
Else
For i=0 To Ubound(rs,2)
%>
<%= rs(1,i) %> |
<%= rs(2,i) %> |
<%= rs(3,i) %> |
鿴 |
<%
Next
End If
%>
5:Ҫʾĵطҳ
<%Response.Write nav%>
˷ҳ
ҳЧ:
ͬķҳCSSļҲ
Ҫ ϵɽվ˾