<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Cls_Pages.asp"-->
<%
Rem =====================================================================================================
Rem = RCSfile:pageac.asp
Rem = 說明:ASP+Access分頁類調用示範
Rem = Revision:0.02Beta
Rem = 程序:yezi(葉子)
Rem = Date:2004/08/26 09:41:10
Rem = QQ:311673,ICQ:96240724,MSN:[email protected],http://www.showo.com,http://www.54nb.com
Rem = Thanks:54NB-鏈子提供數據庫以及指針用法,Dvbbs火狐和其他幾個人員的口水帳討論^_^
Rem = 承受記錄條數:20W,未索引,最後頁面速度在120ms
Rem = 下版本預計改進:showo_page.js文件取頁數得自定義參數,類取頁數得自定義參數
Rem =====================================================================================================
'-----------------------------------------------------------------------------------------------
On Error Resume Next
DIM startime,endtime
'統計執行時間
startime=timer()
'連接數據庫
DIM Db,Conn,Rs
Db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open Db
'-----------------------------------------------------------------------------------------------
%>
<html>
<head>
<title>Access高效分頁類</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body,table,td,p,li {font-size:12px}
a {font-size:12px;color:#000000;text-decoration: none}
INPUT {
BORDER-TOP-WIDTH: 1px;
PADDING-RIGHT: 1px;
PADDING-LEFT: 1px;
BORDER-LEFT-WIDTH: 1px;
FONT-SIZE: 12px;
BORDER-LEFT-COLOR: #cccccc;
BORDER-BOTTOM-WIDTH: 1px;
BORDER-BOTTOM-COLOR: #cccccc;
PADDING-BOTTOM: 1px;
BORDER-TOP-COLOR: #cccccc;
PADDING-TOP: 1px;
HEIGHT: 18px;
BORDER-RIGHT-WIDTH: 1px;
BORDER-RIGHT-COLOR: #cccccc;
BACKGROUND-COLOR: #F2F8FF
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center" height="30">
<tr>
<td> </td>
</tr>
</table>
<table width="760" border="1" cellspacing="0" cellpadding="4" align="center" bordercolordark="#FFFFFF" bordercolorlight="#CCCCCC">
<tr align="center">
<td width="60">ID</td>
<td width="150">標題</td>
<td width="*">內容(顯示前20個字)</td>
<td width="150">時間</td>
</tr>
<%
Set ors=new Cls_Pages '創建對象
ors.Conn=conn '得到數據庫連接
ors.RecPerPage=30 '每頁記錄條數
ors.CookieName="table1" '存記錄總數的cookiesname
ors.PageUrl="" 'showo_page.js的路徑
ors.Term=0 '條件是否有變化(0無變化,1有變化,2不設置cookies也就是及時統計)
ors.Sql="id,aaaa,bbbb,cccc$table1$$$id" '字段,表,條件(需要where),排序,主ID
iRecCount=ors.RecCount() '記錄總數
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then%>
<tr bgcolor="">
<td >暫無記錄</td>
</tr>
<%
Else
For i=0 To Ubound(iRs,2)
bgColor="#FFFFFF"
if i mod 2=0 then bgColor="#DFEFFF"
%>
<tr bgcolor="<%=bgColor%>">
<td width="60"><%=iRs(0,i)%></td>
<td width="150"><%=iRs(1,i)%></td>
<td width="*"><%=left(iRs(2,i),20)%></td>
<td width="150"><%=iRs(3,i)%></td>
</tr><%
Next
End If
%>
</table>
<table width="760" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td>
<%ors.ShowPage()%>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td align="center">
<%endtime=timer()%>
本頁面執行時間:<%=round((endtime-startime)*1000,3)%> 毫秒</td>
</tr>
</table>
</body>
</html>
<%
iRs=NULL
ors=NULL
Set ors=NoThing
%>