%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
%
//定義數(shù)據(jù)庫(kù)連接語(yǔ)句
var connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
+Server.MapPath("database/vote.mdb");
//建立一個(gè)rs數(shù)據(jù)庫(kù)查詢
var rs = Server.CreateObject("ADODB.Recordset")
//rs連接方式
rs.ActiveConnection = connstring
//rs查詢語(yǔ)句（按照用戶提交時(shí)間倒序查詢）
rs.Source = "select * from users order by usetime DESC"
//定義數(shù)據(jù)庫(kù)查詢模式
rs.CursorType = 3
rs.CursorLocation = 3
rs.LockType = 1
//定義每頁(yè)顯示數(shù)據(jù)數(shù)量
rs.PageSize = 10
//打開(kāi)數(shù)據(jù)庫(kù)連接
rs.Open()
//定義數(shù)據(jù)庫(kù)紀(jì)錄總數(shù)，分頁(yè)總數(shù)，URL路徑
var counts,pagecos,thisUrl
counts = rs.RecordCount
pagecos = rs.PageCount
thisUrl = Request.ServerVariables("URL")
//如果游標(biāo)在表中就執(zhí)行
if(!rs.EOF || !rs.BOF){
//如果url的page參數(shù)不為空就執(zhí)行
if(Request("page").Count != 0){
//定義默認(rèn)鏈接字符串，第一頁(yè)，尾頁(yè)，上頁(yè)，下頁(yè)
//URL的page值（指定的當(dāng)前頁(yè)），當(dāng)前頁(yè)，當(dāng)前每頁(yè)顯示數(shù)據(jù)數(shù)量
var defaltStr,firstpage,lastpage,prepage,nextpage,pages,nowPage,nowSize
defaltStr = 'a href="'+thisUrl+'?page='
firstpage = defaltStr+'1">首頁(yè)/a>'
lastpage = defaltStr+pagecos+'">尾頁(yè)/a>'
pages = Request("page")
//如果處于第一頁(yè)
//首頁(yè)，上一頁(yè)不為鏈接
if(pages = 1){
rs.AbsolutePage = 1;
firstpage = '首頁(yè)'
prepage = '上一頁(yè)'
nextpage = defaltStr+'2">下一頁(yè)/a>'
//如果處于最后一頁(yè)
//尾頁(yè)，下一頁(yè)不為鏈接
}else if(pages >= pagecos){
rs.AbsolutePage = pagecos;
prepage = defaltStr+(pagecos-1)+'">上一頁(yè)/a>'
lastpage = '尾頁(yè)'
nextpage = '下一頁(yè)'
}else{
rs.AbsolutePage = pages
prepage = defaltStr+(Number(pages)-1)+'">上一頁(yè)/a>'
nextpage = defaltStr+(Number(pages)+1)+'">下一頁(yè)/a>'
}
}
nowPage = rs.AbsolutePage
nowSize = rs.PageSize
//如果處于最后一頁(yè)，并且數(shù)據(jù)顯示數(shù)量與每頁(yè)顯示數(shù)據(jù)數(shù)量不相等時(shí)
//因?yàn)樽詈笠豁?yè)不可能每次都剛好與每頁(yè)顯示數(shù)據(jù)數(shù)量相等
//所以需要定義一個(gè)不相等的方法
if(nowPage >= pagecos (pagecos*rs.PageSize)%counts != 0){
nowSize = counts%rs.PageSize
}
%>
table width="100%" border="0" cellspacing="0" cellpadding="0" class="userinfo">
tr>
td align="center">
!--顯示首頁(yè)，上一頁(yè) -->
%=firstpage%>　%=prepage%>　
跳轉(zhuǎn)到第 select onchange="location.href='%=thisUrl%>?page='+this.value">
%
//分頁(yè)依靠循環(huán)顯示
for(var num=1; num=pagecos; num++){
if(nowPage == num){
%>
option value="%=num%>" selected="selected">%=num%>/option>
%
}else{
%>
option value="%=num%>">%=num%>/option>
%
}
}
%>
/select> 頁(yè)
!--顯示下一頁(yè)，尾頁(yè) -->
　%=nextpage%>　%=lastpage%>
!--顯示當(dāng)前頁(yè)數(shù)，總頁(yè)數(shù)，總記錄數(shù)，每頁(yè)顯示數(shù)據(jù)數(shù)量 -->
　共 %=nowPage%> / %=pagecos%> 頁(yè) %=counts%> / %=rs.PageSize%> 條記錄
/td>
/tr>
%
//內(nèi)容依靠循環(huán)顯示
for(var i=1;i=nowSize;i++){
%>
tr>
td>span>用戶IP：/span>%=rs("usip")%>/td>
/tr>
tr>
td>span>建議：/span>%=rs("us1")%>/td>
/tr>
tr>
td>span>提交時(shí)間：/span>%=rs("usetime")%>/td>
/tr>
%
//數(shù)據(jù)庫(kù)游標(biāo)向移向下一條記錄
rs.MoveNext();
}
%>
/table>
%
//如果數(shù)據(jù)庫(kù)游標(biāo)不在數(shù)據(jù)庫(kù)列中
}else{
Response.Write("沒(méi)有用戶信息!")
}
//關(guān)閉數(shù)據(jù)庫(kù)連接
rs.Close()
%>