ASP分页

来源：互联网发布：小说大纲制作软件编辑：程序博客网时间：2024/04/28 05:11

<html>
<head><title>Cosplay</title></head>

<%
subjectid=request.QueryString("typeid")
sql="select * from subjectsbizi where subjectid="&subjectid&" order by biziid desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
     rs.PageSize =4 '每页记录条数
   iCount=rs.RecordCount '记录总数
   iPageSize=rs.PageSize
      maxpage=rs.PageCount
      page=request("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
else
  x=iPageSize
end if

   For i=1 To x
  %>
<link href="../images/cosplay.css" rel="stylesheet" type="text/css">
<link href="../include/css.css" rel="stylesheet" type="text/css">

              <table width="100%" class="table-xia" border="0" cellspacing="0" cellpadding="10" align="center">
                <tr>
                  <td width="20%" rowspan="4" class="table-you" align="center"><TABLE onmouseover="this.style.backgroundColor='#FF6600'" onmouseout="this.style.backgroundColor=''" width=100 height=100 cellSpacing=1 cellPadding=2 bgColor=#e1e1e1 border=0>
                      <TBODY>
                        <TR>
                          <TD width=100 height=100 bgColor=#ffffff align=center><a href="../admin/subject/<%=rs.fields("biziurl").value%>"><img src="../admin/subject/<%=rs.fields("biziurl").value%>" width=100 border=0 height=100></a>

                          </td></tr>
                      </tbody>
                  </table></td>
                  <td width="20%" rowspan="4" class="table-zuo" valign="bottom"><%=rs("bizidemo")%></td>
                </tr>
                <tr>
                  <td valign="bottom"><%=rs("bizidate")%></td>
                </tr>
              </table>
              <%rs.movenext
  next
  call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
  rs.close
  set rs=nothing
Sub PageControl(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"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR >" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )

    if page<=1 then
        Response.Write ("首页 " & vbCrLf)
        Response.Write ("上一页 " & vbCrLf)
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & 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
%>
          </td>
        </tr>
      </table>
    </div></td>
    <td width="1" background="image/bgbg.gif"></td>
</tr>
</table>

</html>