<%@LANGUAGE=
"
VBSCRIPT
"
CODEPAGE=
"
65001
"
%>
<%Response.CodePage=
65001
%>
<%Response.Charset=
"
utf-8
"
%>
<!-- 設置編碼很重要，否則程序會出現異常或中文亂碼問題。 -->
<
%
'
conn
'
準備工作
dim
conn
dim
connstr
dim
path
path
= server.mappath(
"
\OneFCMS_Data\OneFCMS$%#$#Data$%#2012#$11$$#7.mdb
"
)
'
response.Write(path & "<br/>")
'
on error resume next
connstr=
"
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
"
&
path
set
conn=server.createobject(
"
ADODB.CONNECTION
"
)
conn.open connstr
If
Err
Then
err.Clear
Set
Conn =
Nothing
Response.Write
"
數據庫連接出錯，請檢查數據庫連接文件中的數據庫參數設置。
"
Response.End
End
If
%
>
<
%
'
獲取當前頁碼
page=Request.QueryString(
"
pid
"
)
set
rs=server.createobject(
"
adodb.recordset
"
)
exec
=
"
select * from News where ssfl = 1 order by zhiding desc,data desc
"
rs.open exec,conn,
1
,
1
rs.PageSize
=
10
'
設置每頁顯示多少條記錄
iCount=rs.RecordCount
'
總的記錄數
iPageSize=
rs.PageSize
maxpage
=rs.PageCount
'
頁數
'
對page頁碼的判斷
if
Not
IsNumeric
(page)
or
page=
""
then
page
=
1
else
page
=
cint
(page)
end
if
if
page<
1
then
page
=
1
elseif
page>maxpage
then
page
=
maxpage
end
if
rs.AbsolutePage
=Page
'
設置當前頁碼
if
page=maxpage
then
x
=iCount-(maxpage-
1
)*iPageSize
'
最后一頁記錄數不足PageSize情況。否則會報“在對應所需名稱或序數的集合中，未找到項目。”錯誤信息~!
else
x
=
iPageSize
end
if
For
i=
1
To
x
'
循環顯示
response.Write(rs(
"
data
"
) &
"
---
"
&rs(
"
title
"
)&
"
---
"
)
response.Write(
formatdatetime
(rs(
"
data
"
),
2
) &
"
<br/>
"
)
'
只顯示日期,不顯示時間函數處理。
rs.movenext
next
%
>
<%
'
以下顯示分頁
call
PageControl2(iCount,maxpage,page,
"
border=0 align=center
"
,
"
<p align=center>
"
)
rs.close
set
rs=
nothing
%
>
<
%
'
分頁子程序
Sub
PageControl2(iCount,pagecount,page,table_style,font_style)
'
生成上一頁下一頁鏈接
Dim
query, a, x, temp
action
=
"
http://
"
& Request.ServerVariables(
"
HTTP_HOST
"
) & Request.ServerVariables(
"
SCRIPT_NAME
"
)
query
=
Split
(Request.ServerVariables(
"
QUERY_STRING
"
),
"
&
"
)
action
=
a
Response.Write(
"
<table width=100% border=0 cellpadding=0 cellspacing=0 >
"
&
vbCrLf )
Response.Write(
"
<form method=get onsubmit=""document.location = '?pid='+ this.page.value;return false;""><TR >
"
&
vbCrLf )
Response.Write(
"
<TD align=left class=hui>
"
&
vbCrLf )
Response.Write(font_style
&
vbCrLf )
'
response.Write "<A href=javascript:history.back()>【返回前頁】</a> "
if
page<=
1
then
Response.Write (
"
首頁
"
&
vbCrLf)
Response.Write (
"
上一頁
"
&
vbCrLf)
else
Response.Write(
"
<A HREF=?
"
& ad &
"
pid=
"
&
"
1>首頁</A>
"
&
vbCrLf)
Response.Write(
"
<A HREF=?
"
& ad &
"
pid=
"
& (Page-
1
) &
"
>上一頁</A>
"
&
vbCrLf)
end
if
if
page>=pagecount
then
Response.Write (
"
下一頁
"
&
vbCrLf)
Response.Write (
"
尾頁
"
&
vbCrLf)
else
Response.Write(
"
<A HREF=?
"
& ad &
"
pid=
"
& (Page+
1
) &
"
>下一頁</A>
"
&
vbCrLf)
Response.Write(
"
<A HREF=?
"
& ad &
"
pid=
"
& pagecount &
"
>尾頁</A>
"
&
vbCrLf)
end
if
Response.Write(
"
頁次：
"
& page &
"
/
"
& pageCount &
"
頁
"
&
vbCrLf)
Response.Write(
"
共
"
& iCount &
"
條記錄
"
&
vbCrLf)
Response.Write(
"
轉
"
&
"
<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=
"
& page &
"
>
"
&
"
頁
"
& vbCrLf &
"
<INPUT CLASS=go-wenbenkuang type=submit value=GO>
"
)
Response.Write(
"
</TD>
"
&
vbCrLf )
Response.Write(
"
</TR></form>
"
&
vbCrLf )
Response.Write(
"
</table>
"
&
vbCrLf )
End Sub
%
>
?
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
