|
|
 |
| |
 |
|
 |
| Title |
Date |
<%
SQL = "SELECT id,name,time FROM art_body where typeid="&typeid&" and ischeck=1 ORDER BY time DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof Then
response.write "暂时没有任何记录！！ "
else
RS.PageSize=frontPageSize'设置每页记录数
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
RS.AbsolutePage=CurPage
rs.CacheSize = RS.PageSize'设置最大记录数
Dim Totalcount
Totalcount =INT(RS.recordcount)
StartPageNum=1
do while StartPageNum+10<=CurPage
StartPageNum=StartPageNum+10
Loop
EndPageNum=StartPageNum+9
If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount
I=0
p=RS.PageSize*(Curpage-1)
do while (Not RS.Eof) and (I "&rs("name")&" | "
response.write""&rs("time")&" | "
I=I+1
RS.MoveNext
Loop
response.write"| "
' 沃慧 专用页码简化版,取得显示页码
Response.write viewpage(Totalcount, RS.PageSize,10,CurPage,"typeid="&typeid,"当前总数:","newslist.asp")
'总记录,显示记录数,显示页数,当前页,传替参数,总数说明,当前页面名称
end if
rs.close
set rs=nothing
%>
|
|
|
|
|
 |
|
