自已写的一个分页函数;贴出来，大家给PP function showpage(table,size,page,url) set rst=server.CreateObject("adodb.recordset") sql="select count(*) from "&table&" " rst.open sql,conn,3,2 cot=int(rst(0)/size) ca=rst(0) mod size if ca<>0 then cot=cot+1 else cot=cot end if response.Write"共"&rst(0)&"条&nbsp;每页"&size&"条&nbsp;页次:"&page&"/"&cot&"&nbsp;" if page=1 then response.Write "[首页]&nbsp;[上页]&nbsp;" else response.Write"[<a href="&url&"?page=1>首页</a>]&nbsp;[<a href="&url&"?page="&page-1&">上页</a>]&nbsp;" end if if page=cot then response.Write "[下页]&nbsp;[尾页]&nbsp;" else response.Write"[<a href="&url&"?page="&page+1&">下页</a>]&nbsp;[<a href="&url&"?page="&cot&">尾页</a>]&nbsp;" end if response.Write"<select name='page' onchange='selected()'>" for i=1 to cot response.Write"<option value='"&i&"'" if i=page then response.Write "selected" response.Write">"&i&"</option>" next response.Write"</select>"

response.Write"<script>" response.Write"function selected(){" response.Write"var x=document.all.page.options[document.all.page.selectedIndex].value;" response.Write"window.location='"&url&"?page='+x;" response.Write"}</script>" rst.close set rst=nothing end function

又改了一下， function showpage(cnt,size,page,url)

cot=int(cnt/size) ca=cnt mod size if ca<>0 then cot=cot+1 else cot=cot end if response.Write"共"&cnt&"条&nbsp;每页"&size&"条&nbsp;页次:"&page&"/"&cot&"&nbsp;" if page=1 then response.Write "[首页]&nbsp;[上页]&nbsp;" else response.Write"[<a href="&url&"page=1>首页</a>]&nbsp;[<a href="&url&"page="&page-1&">上页</a>]&nbsp;" end if if page=cot then response.Write "[下页]&nbsp;[尾页]&nbsp;" else response.Write"[<a href="&url&"page="&page+1&">下页</a>]&nbsp;[<a href="&url&"page="&cot&">尾页</a>]&nbsp;" end if response.Write"<select name='page' onchange='selected()'>" for i=1 to cot response.Write"<option value='"&i&"'" if i=page then response.Write "selected" response.Write">"&i&"</option>" next response.Write"</select>"

response.Write"<script>" response.Write"function selected(){" response.Write"var x=document.all.page.options[document.all.page.selectedIndex].value;" response.Write"window.location='"&url&"page='+x;" response.Write"}</script>"

end function 以下是调用: page=request.QueryString("page") if page="" then page=1 if len(page)>6 then page=1 if not isnumeric(page) then page=1 page=clng(page) set rs=server.CreateObject("adodb.recordset") sql="select * from smxx" rs.pagesize=50 rs.open sql,conn,3,2 if rs.eof then response.Write "当前没有记录！" else i=0 if page>rs.pagecount then page=rs.pagecount rs.absolutepage=page do while not rs.eof and i<rs.pagesize response.Write rs(1)&"<br>" i=i+1 rs.movenext loop%> <div align="center"><% call showpage(rs.recordcount,rs.pagesize,page,"untitled0.asp?") %></div> <%end if%>

[此贴子已经被作者于2005-4-18 10:41:43编辑过]