SEO优化资讯

 
<% Dim mwnId,mwnTitle,mwnDate Dim TopPageNumber Dim NowPageNumber Dim MaxPageNumber Dim SumRecordNumber Dim iiii NowPageNumber=""&Trim(Request.QueryString("PID")) If Not IsNumeric(NowPageNumber) Then NowPageNumber=1 Else NowPageNumber=CInt(NowPageNumber) End If If NowPageNumber=0 Then NowPageNumber=1 TopPageNumber=15 '每页显示的条数 set rs=server.createobject("adodb.recordset") Sql="select * from TB_Content where classID=90 or classID=89 or classID=88 order by id desc" rs.open sql,conn,3,3 If rs.RecordCount=0 Then Response.Write "内容整理中..." response.end Else SumRecordNumber=rs.RecordCount MaxPageNumber=SumRecordNumber\TopPageNumber If (SumRecordNumber mod TopPageNumber) Then MaxPageNumber=MaxPageNumber+1 If NowPageNumber>MaxPageNumber Then NowPageNumber=MaxPageNumber rs.PageSize = TopPageNumber rs.AbsolutePage = NowPageNumber For iiii=1 To TopPageNumber If rs.Bof or rs.Eof Then Exit For %> <% rs.movenext next end if %>
 
 

  <% IF MaxPageNumber>1 THEN %>

<%=showPageLink(SumRecordNumber,TopPageNumber,NowPageNumber,"PID",10,"上一页","下一页","")%>
<% End If %>