<%
class cls_page
private spageindex
private spagesize
private stblname
private sfldname
private sordertype
private sstrwhere
private sstrurl
private srs
private sconn
private stotal
private stotalpage
public property let pageindex(value)‘當(dāng)前頁數(shù)
spageindex=value
end property
public property let pagesize(value)‘每頁記錄數(shù)
spagesize=value
end property
public property let tablename(value)‘表名
stblname=value
end property
public property let fieldname(value) ‘排序字段名
sfldname=value
end property
public property let ordertype(value)‘排序方式
sordertype=value
end property
public property let strwhere(value)‘sql參數(shù)
sstrwhere=value
end property
public property let strurl(value)‘分頁參數(shù)
sstrurl=value
end property
public property let strconn(value)‘連接字符串
set sconn=value
end property
public property get pagesize
pagesize=spagesize
end property
Private Sub Class_Initialize
spagesize=10
end sub
Private Sub Class_Terminate
end sub
private Function GetPageSql()‘獲得sql
Dim StrTemp,StrSql,StrOrder
If sOrderType = 0 Then
StrTemp = "> (Select Max([" & sFldName & "])"
StrOrder = " Order By [" & sFldName & "] Asc"
Else
StrTemp = "< (Select Min([" & sFldName & "])"
StrOrder = " Order By [" & sFldName & "] Desc"
End If
If sPageIndex = 1 Then
StrTemp = ""
If sStrWhere <> "" Then
Strtmp = " Where " & StrWhere
End If
StrSql = "Select Top " & sPageSize & " * From [" & sTblName & "]" & Strtmp & StrOrder
Else
StrSql = "Select Top " & sPageSize & " * From [" & sTblName & "] Where [" & sFldName & "]" & StrTemp & _
" From (Select Top " & (sPageIndex-1) * sPageSize & " [" & sFldName & "] From [" & sTblName & "]"
If sStrWhere <> "" Then
StrSql = StrSql & " Where " & sStrWhere
End If
StrSql = StrSql & StrOrder & ") As Tbltemp)"
If sStrWhere <> "" Then
StrSql = StrSql & " And " & sStrWhere
End If
StrSql = StrSql & StrOrder
End If
GetPageSql = StrSql
End Function
public property get getrs()‘獲得rs
set srs=server.CreateObject("adodb.recordset")
srs.open GetPageSql,sconn,1,1
set getrs=srs
end property
public sub listbar()‘分頁導(dǎo)航條
sql="select * from "&stblname&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,sconn,1,3
total=rs.recordcount
totalpage=rs.pagecount
rs.close
set rs=nothing
response.Write("共有紀(jì)錄 <font color=red><b>"&total&"</b></font> 條 ")
response.Write("記錄共 <font color=red><b>"&totalpage&"</b></font> 頁 ")
response.Write("當(dāng)前為第 <font color=red><b>"&spageindex&"</b></font>/"&totalpage&" 頁 ")
If totalpage=1 Then
Response.write "·共有1頁·"
End If
If Not spageindex=1 Then
Response.write "<a href=?page=1&"&sstrurl&">首頁</a> "
Response.write "<a href=?page="&Cstr(spageindex-1)&"&"&sstrurl&">前頁</a> "
Else
Response.write "首頁 "
Response.write "前頁 "
End If
If spageindex<>totalpage Then
Response.Write "<a href=?page="&Cstr(spageindex+1)&"&"&sstrurl&">后頁</a> "
Response.Write "<a href=?page="&totalpage&"&"&sstrurl&">尾頁</a>"
Else
Response.Write "后頁 "
Response.Write "尾頁"
End If
response.Write(" 選擇查看<select onChange=window.location=‘?page=‘+this.options[selectedIndex].value+‘&"&sstrurl&"‘; name=select3>")
for ipage=1 to totalpage
response.write "<option value="&ipage
if ipage=cint(spageindex) then response.write " selected"
response.write ">"&ipage&"</option>"
next
response.Write("</select>頁")
end sub
end class
%>
