[原创]自写的一个简单的分页函数

Bu怕Bu怕

代码很简单，很容易看懂。而且可以直接调用。

调用时，把url（你所要插入代码的页面名）,imgurl（图片地址），改成自己所要的，就行了。
<%function showpage(url,imgurl)
page=request("page")
PageSize = 20
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
response.Write"<form method=Post action='"&url&"' name='go'>"
response.Write" <td align='left'> 共有<font color='#0033CC'>"&rs.recordcount&"</font>条记录"
response.Write"["&page&"/<b>"&rs.pagecount&"</b>页] [共"&totalfilm&"个] "
if page=1 then
response.Write"[首页] [上一页]"
else
response.Write"[<a href='"&url&"?page=1'>首页</a>]"
response.Write"[<a href='"&url&"?page="&page-1&"'>上一页</a>]"
end if
if rs.pagecount-page<1 then
response.Write"[下一页] [尾页]"
else
response.Write"[<a href='"&url&"?page="&page+1&"'>下一页</a>] "
response.Write"[<a href='"&url&"?page="&rs.pagecount&"'>尾页</a>]"
end if
response.Write" </span><input type='text' name='page' size=2 maxlength=10 style='font-size:9pt;color:#FFFFFF;background-color:#B9D9CE;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000' value='"&page&"' align=center>"
response.Write"<img src='"&imgurl&"' border='0' alt='GO'onClick='javascript:document.go.submit()' style='cursor:hand '> "
response.Write"</td>"
response.Write" </form>"
end function%>

魅力ぉ小猪ぎ

url（你所要插入代码的页面名）,imgurl（图片地址）．．．这里不太明白．．

能说具体些吗？？　　举个例．．．．谢谢

在不断学习中．．

可爱的人

他这个哪是个完整的分页嘛，里面还有rs对象，很明显上面一定有个set rs创建对象的
要好的你最好看看动网论坛源代码、看新云、看动易等这写好站的。我不好说了。。。。

ヤforget♀戀

我觉得楼上说的有道理 。

这份代码不够“通用”，如果能写成一个“独立的函数”或者“独立的类”，

就非常好了。

不过，如果，作者是个初学者，那么这份代码就很有价值了，

可以把里面隐含的那些全局变量进行私有化改造，这样才能算是“通用的东西”。

希望我们可以多多交流啊 。。

三颗残牙

晕，这本来，就是一个独立的函数，rs,只是你的数据库链接参数。这个，没必要在这里写，直接调用就行了。

在调用页(比如：test.asp)输入：

&lt;%url="test.asp"
  imgurl="图片路径"
%&gt;
&lt;%=page(url,imgurl)%&gt;

最ヅ后愛上你

看来，我这是多此一JI，以后，不发了，