ASP分页代码一

【2006年01月01日 12:26:37】　【阅读：次】　【字体：大中小默认】　【背景： #换背景

】

<%
Page=request("page")
     pagecount=page
Dim pageurl,page
pageurl="115000.asp"
set rsprod=server.CreateObject("adodb.recordset")
    rsprod.open "select * from info",conn,1,1
if rsprod.bof and rsprod.eof then
response.write "<table><tr><td height=100 align=center>您好！目前信息</td></tr></TABLE>"
else
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rsprod.pagesize=6
rsprod.AbsolutePage=pagecount
n=0
Do While Not rsprod.eof
response.Write " <a href="&pageurl&" target=_blank><FONT color=#0066CC>"&rsprod("title")&"</font></a>"
    n=n+1
rsprod.movenext
if n>=rsprod.pagesize then exit do
loop

%>
    <table width=100% border="0" cellspacing="1" cellpadding="2" align="center" bgcolor=#cfcfcf>
<form action="<%=pageurl%>" method="post" >
        <tr>
          <td height="22">
              <div align="center">页次: <b><font color=red><%=pagecount%></font>/<%=rsprod.pagecount%></b>
                <% if pagecount=1 and rsprod.pagecount<>pagecount and rsprod.pagecount<>0 then%>
                <a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>">
                下一页</a>
                <% end if %>
                <% if rsprod.pagecount>1 and rsprod.pagecount=pagecount then %>
                <a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>">
                上一页</a>
                <%end if%>
                <% if pagecount<>1 and rsprod.pagecount<>pagecount then%>
                <a href="<%=pageurl%>?page=<%=cstr(pagecount-1)%>">
                上一页</a> <a href="<%=pageurl%>?page=<%=cstr(pagecount+1)%>">
                下一页</a>
                <% end if%>
                  转到第
                <select name="page">
                <%for i=1 to rsprod.pagecount%>
                <option value="<%=i%>"><%=i%></option>
                <%next%>
              </select>
              页
              <input type="submit" name="go" value="Go">
            </div>
          </td>
        </tr>
    </form>
</table>

<%
end if
rsprod.close
set rsprod=nothing
%>

     </p></td>
                  </tr>
              </table></td>
              <td bgcolor=#cecece width=1><img height=1
            src="images/1ptrans.gif" width=1></td>
            </tr>
          </tbody>
        </table>

(『印像空间』　【本文来源：『学习笔记』】　【作者：未知】　【录入：留印】)

点击查看

已有条评论

关键字：

搜索条件：