自已写的一个分页函数;贴出来，大家给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

没事好试试,

在这边再做一下修改，就可以支持带参数的分页了， 去掉分页里的? 如果window.location='"&url&"?page='+x;改为window.location='"&url&"page='+x; 调用是 call showpage("表名",每页的显示的条数,page,"index.asp?action=look&id="&id&"&") 这样就可以了， 或者 const table="表名" const size="每页的条数" call showpage(table,size,page,"index.asp?")

还是删了吧，要不在这也是浪费资源呀，
没有人光顾呀，

又改了一下， 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%>

鼓励原创

[QUOTE]cot=int(cnt/size)
ca=cnt mod size
if ca&lt;&gt;0 then
cot=cot+1
else
cot=cot
end if[/QUOTE]

这是算实际总页数吧，其实一行就够了

totalpage=-(int(-totalrecord/pagesize))   

'不使用Rs.AbsolutePage方法的分页函数 '可参考我的Blog中：ASP构造大数据量的分页SQL语句。 Function GetPageSQL(tblName,fldName,fldList,PageSize,PageIndex,OrderType,strWhere) Dim strTemp,strSQL,strOrder

'根据排序方式生成相关代码(缺省降序） if OrderType=1 then strTemp=">(select max([" & fldName & "])" strOrder=" order by [" & fldName & "] asc" else strTemp="<(select min([" & fldName & "])" strOrder=" order by [" & fldName & "] desc" end if '若是第1页则无须复杂的语句 if PageIndex=1 then strTemp="" if strWhere<>"" then strTmp = " where " + strWhere end if strSQL = "select top " & PageSize & fldList & " from [" & tblName & "]" & strTmp & strOrder else '若不是第1页，构造SQL语句 strSQL="select top " & PageSize & fldList & " from [" & tblName & "] where [" & fldName & "]" & strTemp & _ " from (select top " & (PageIndex-1)*PageSize & " [" & fldName & "] from [" & tblName & "]" if strWhere<>"" then strSQL=strSQL & " where " & strWhere end if strSQL=strSQL & strOrder & ") as tblTemp)" if strWhere<>"" then strSQL=strSQL & " And " & strWhere end if strSQL=strSQL & strOrder end if GetPageSQL=strSQL '返回SQL语句 End Function

'显示分页 共 X 页 第 X 页 1 2 3 4 5 6 7 8 '效果请见: http://book.4yt.net/bookupdate.asp?type=dj Sub ShowPage(TotalPage,Page,URL) Dim i,strOut If TotalPage>0 then strOut="<table border=0 width=90% align=center><tr><td>共 " & totalpage & " 页 第 " & Page & " 页</td><td align=right>" For i=1 To TotalPage If i<>Page then strOut=strOut & " <a href=""" & URL & "page=" & i & """>" & i & "</a>" else strOut=strOut & " <font color=gray>" & i & "</font>" end if Next strOut=strOut & "</td></tr></table>" end if response.write strOut End Sub

[此贴子已经被作者于2005-4-18 9:12:54编辑过]

'通过客户端脚本生成的分页导航 效果一：

共 8 页 第 1 页

1 2 3 4 5 6 7 8

function ShowPageList() { var strTemp=""; var pagecount=parseInt(document.getElementById("pagecount").innerText); var page=parseInt(document.getElementById("page").innerText); var schtype=document.getElementById("schtype").value; for(var i=1;i<=pagecount;i++){ if(page==i) strTemp+=" <font color='gray'>" + i + "</font>"; else strTemp+=" <a href='/booklist.asp?page=" + i + "&type=" + schtype + "'>" + i + "</a>"; } document.getElementById("PageSkip").innerHTML=strTemp; } 效果二：

共 114 页 第 2 页

上一页 下一页 跳转到 第1页第2页第3页第4页第5页第6页第7页第8页第9页第10页第11页第12页第13页第14页第15页第16页第17页第18页第19页第20页第21页第22页第23页第24页第25页第26页第27页第28页第29页第30页第31页第32页第33页第34页第35页第36页第37页第38页第39页第40页第41页第42页第43页第44页第45页第46页第47页第48页第49页第50页第51页第52页第53页第54页第55页第56页第57页第58页第59页第60页第61页第62页第63页第64页第65页第66页第67页第68页第69页第70页第71页第72页第73页第74页第75页第76页第77页第78页第79页第80页第81页第82页第83页第84页第85页第86页第87页第88页第89页第90页第91页第92页第93页第94页第95页第96页第97页第98页第99页第100页第101页第102页第103页第104页第105页第106页第107页第108页第109页第110页第111页第112页第113页第114页

function ShowPage() { var strTemp=""; var pagecount=parseInt(document.getElementById("pagecount").innerText); var page=parseInt(document.getElementById("page").innerText); var schtype=parseInt(document.getElementById("schtype").value); var keyword=document.getElementById("keyword").value; var chKey=document.getElementById("chKey").value;

var URL="Search.asp?QueryType=" + schtype + "&Keyword=" + keyword + "&page="; if(page>1) strTemp="<a href='" + URL + (page-1) + "'>上一页</a> "; if(page<pagecount) strTemp+="<a href='" + URL + (page+1) + "'>下一页</a> "; strTemp+="跳转到 <select id='pagelist' style='font-size:9pt' onchange='gotoSURL(\"" + URL + "\",this.value)'>" for(var i=1;i<=pagecount;i++){ strTemp+="<option value='" + i + "'>第" + i + "页</option>" } strTemp+="</select>"; document.getElementById("PageSkip").innerHTML=strTemp; document.getElementById("pagelist").value=page;

window.setTimeout("getkeyword()",1000); }

function gotoSURL(URL,page){ window.location.href=URL + page; }

</script>

[此贴子已经被作者于2005-4-18 9:22:08编辑过]

老大。果然是老大，

服了！！！！！