<p>asp分页函数,自己写的,有时间好好看一下...看能不能改好点.<br/>代码:<br/><br/></p><pre class="brush:as3;toolbar:false">&lt;% setrs=server.createobject(&quot;adodb.recordset&quot;) exce=&quot;sql&quot;&#39;sql查询语句 rs.openexce,conn,1,1 %&gt; 然后是分页属性的设置 &lt;% rs.PageSize=3&#39;设置页码 pagecount=rs.PageCount&#39;获取总页码 page=int(request(&quot;page&quot;))&#39;接收页码 ifpage&lt;=0thenpage=1&#39;判断 ifrequest(&quot;page&quot;)=&quot;&quot;thenpage=1 rs.AbsolutePage=page&#39;设置本页页码 %&gt; 最后是body里的分页显示 &lt;% ifrs.bofandrs.eofthen response.write(&quot;NULL&quot;) else fori=1tors.PageSize response.writers(&quot;name&quot;) response.write(&quot;&lt;hr&gt;&quot;) rs.movenext next endif %&gt; &lt;p&gt; &lt;%ifpage=1andnotpage=pagecountthen%&gt; 首页|前一页 &lt;ahref=&quot;log1.asp?page=&lt;%=page+1%&gt;&quot;&gt;后一页&lt;/a&gt;| &lt;ahref=&quot;log1.asp?page=&lt;%=pagecount%&gt;&quot;&gt;末页&lt;/a&gt; &lt;%elseifpage&lt;&gt;1andnotpage=pagcountthen%&gt; &lt;ahref=&quot;log1.asp?page=1&quot;&gt;首页&lt;/a&gt;| &lt;ahref=&quot;log1.asp?page=&lt;%=page-1%&gt;&quot;&gt;前一页&lt;/a&gt;| &lt;ahref=&quot;log1.asp?page=&lt;%=page+1%&gt;&quot;&gt;后一页&lt;/a&gt;| &lt;ahref=&quot;log1.asp?page=&lt;%=pagecount%&gt;&quot;&gt;末页&lt;/a&gt; &lt;%elseifpage=pagecountthen%&gt; &lt;ahref=&quot;log1.asp?page=1&quot;&gt;首页&lt;/a&gt;| &lt;ahref=&quot;log1.asp?page=&lt;%=page-1%&gt;&quot;&gt;前一页&lt;/a&gt;| 下一页| 末页 &lt;%endif%&gt;</pre>