<%
function pagination(pagecount,pagesize,page,resultcount)
Dim query, a, x, temp
pagesize=10
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("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+this.page.value;return false;"">")
if page<=1 then
Response.Write ("[第一页] [上一页] ")
else
Response.Write("[<a href=" & action & "?" & temp & "Page=1>第一页</a>] ")
Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a>] ")
end if

if page>=pagecount then
Response.Write ("[下一页] [尾页]")
else
Response.Write("[<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a>] ")
Response.Write("[<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a>]")
end if
Response.Write("[页次:<font color=red>" & page & "</font>/" &pageCount)
Response.Write("] [共<font color=red>" & resultcount & "</font>条记录]<font color=red>"& pagesize & "</font>条/页]")
Response.Write(" 转到" & "<input name=page size=4 value=" & page & ">" & "页<input type=submit value=go>")
End function
%>

显示为:

[第一页] [上一页] [下一页] [尾页][页次:/2] [共15条记录]10条/页] 转到页

[页次:<<这里有问题>>>/2],而且并没有10条/页分开,还是全部显示了,,,,

函数我的我感觉不怎么好,呵呵， 个人感觉....

请指点一下

代码都贴出来

&lt;!--#Include file="Inc/conn.asp"--&gt;
&lt;%response.expires=0
if request.cookies("loginok")="" then
  response.redirect "login.asp"
end if
%&gt;
&lt;%
function pagination(pagecount,pagesize,page,resultcount)
    Dim query, a, x, temp
    pagesize=10
    action = "http://" &amp; Request.ServerVariables("HTTP_HOST") &amp; Request.ServerVariables("SCRIPT_NAME")
    query = Split(Request.ServerVariables("QUERY_STRING"), "&amp;")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) &lt;&gt; 0 Then
            temp = temp &amp; a(0) &amp; "=" &amp; a(1) &amp; "&amp;"
        End If
    Next   
    Response.Write("&lt;form method=get onsubmit=""document.location = '" &amp; action &amp; "?" &amp; temp &amp; "Page='+this.page.value;return false;""&gt;")        
    if page&lt;=1 then
        Response.Write ("[第一页] [上一页] ")
    else        
        Response.Write("[&lt;a href=" &amp; action &amp; "?" &amp; temp &amp; "Page=1&gt;第一页&lt;/a&gt;] ")
        Response.Write("[&lt;a href=" &amp; action &amp; "?" &amp; temp &amp; "Page=" &amp; (Page-1) &amp; "&gt;上一页&lt;/a&gt;] ")
    end if

    if page&gt;=pagecount then
        Response.Write ("[下一页] [尾页]")        
    else
        Response.Write("[&lt;a href=" &amp; action &amp; "?" &amp; temp &amp; "Page=" &amp; (Page+1) &amp; "&gt;下一页&lt;/a&gt;] ")
        Response.Write("[&lt;a href=" &amp; action &amp; "?" &amp; temp &amp; "Page=" &amp; pagecount &amp; "&gt;尾页&lt;/a&gt;]")            
    end if
    Response.Write("[页次:&lt;font color=red&gt;" &amp; page &amp; "&lt;/font&gt;/" &amp; pageCount)   
    Response.Write("] [共&lt;font color=red&gt;" &amp; resultcount &amp; "&lt;/font&gt;条记录]")' &lt;font color=red&gt;"&amp; pagesize &amp; "&lt;/font&gt;条/页]
    Response.Write(" 转到" &amp; "&lt;input name=page size=4 value=" &amp; page &amp; "&gt;" &amp; "页&lt;input type=submit value=go&gt;")
End function
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=gb2312" /&gt;
&lt;link href="img/makov1.css" type="text/css" rel="stylesheet"&gt;
&lt;title&gt;mako测试站点-后台编辑&lt;/title&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;!--#include file="Inc/top.asp"--&gt;
      
&lt;table width=768px bgcolor="#FFFFFF" align="center" border="0"&gt;
&lt;tr bgcolor="#CCCCCC" height="30"&gt;&lt;td valign="middle" align="center" width="100%"&gt;&lt;b&gt;&lt;a href=ArticleAdd.asp&gt;【添加新文章】&lt;/a&gt;&amp;nbsp;&amp;nbsp;&lt;a href=add.asp&gt;【添加文章类别】&lt;/a&gt;&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;tr&gt;&lt;td valign="top"&gt;
&lt;table width=768px height="400" align="center" border="0"&gt;

&lt;tr&gt;&lt;td width="60%"&gt;&lt;b&gt;文章标题&lt;/b&gt;&lt;/td&gt;&lt;td width="20%"&gt;&lt;b&gt;文章类别&lt;/b&gt;&lt;/td&gt;&lt;td width="10%"&gt;&lt;b&gt;编辑操作&lt;/b&gt;&lt;/td&gt;&lt;/tr&gt;
&lt;% set rs=server.createobject("adodb.recordset")
   sql="select * from web order by time "
   rs.open sql,conn,1,3
    do while not (rs.eof or rs.bof)%&gt;

&lt;tr&gt;&lt;td&gt;&lt;A href=show.asp?id=&lt;%=rs("id")%&gt;&amp;parent=&lt;%=rs("parent")%&gt;&gt;&lt;%=rs("title")%&gt;&lt;/A&gt;&lt;/td&gt;&lt;td&gt;&lt;%=rs("parent")%&gt;&lt;/td&gt;&lt;td width="70"&gt;&lt;a href=Articlemodify.asp?id=&lt;%=rs("id")%&gt;&gt;修改&lt;/a&gt;&amp;nbsp;&amp;nbsp;&lt;a href="Article_del.asp?id=&lt;%=rs("id")%&gt;"  onclick="return confirm('是否确定删除本留言？');"&gt;删除&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;



&lt;% rs.movenext
  loop
  %&gt;
&lt;/table&gt;
&lt;%call pagination(rs.PageCount,rs.pagesize,page,rs.RecordCount) %&gt;

&lt;/td&gt;&lt;/tr&gt;

&lt;/table&gt;

&lt;/body&gt;
&lt;/html&gt;
&lt;%
rs.close
set rs=nothing
conn.close
set conn=nothing
%&gt;

do while not (rs.eof or rs.bof)你这样的代码当然是不可能分页的了，根本就没有分页，只是一个劲的读数据库，读完为止，现在有很多分页的很好的代码，建议你去学学，有位大师曾经说过：创新来源于模仿。

谢谢,就此代码怎么修改?

修改？说句你不爱听的话，我觉得最好是不要修改的好，重写吧。

分面，首先你要弄清楚以下几个东东：
rs.pagesize      '这就是你每页要显示的记录条数
rs.recordcount   '这是你表里的记录总数
rs.pagecount     '这当然是你的总页数，rs.pagecount=rs.recordcount/rs.pagesize
rs.absolutepage  '这个是指你目前的页数，数据库指针将移动到第rs.absolutepage*rs.pagesize+1条记录。
希望对你有所帮助。

谢谢,重头来,用sub