[此贴子已经被作者于2005-6-17 17:11:28编辑过]

强烈反对你的观点,这砖不得不拍. 谁说动网在走向没落?动网人气下降是因为动网用户更多的由菜鸟走向大侠. 动网不断的在超越自我,动网是中国的骄傲(虽然ASP很不NB的说) 动网的人确实很多高水平的,但那里的人要清高的多, 在那里问太菜的问题不光得不到回答,还可能被集体数落或版主删帖.

初学者跑那去，没人理嘛

在这里成长，以后这里就成了高手云集了啊！^_^

cime63 [QUOTE] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 页次:8/16页 共16条记录 1条/每页 11[/QUOTE] 最后那个 “11”是怎么回事？ 每点一个页面就 那个地方的数值都不一样！

支持顶一下!!

这个11输出得没理由啊? 你是用我给你的那个类得到这个效果的吗?

动网不断的在超越自我,可是ASP本身却有不少的缺陷 其实ASP还是能做出许多好东西的,可是国内的氛围却是一切向新技术看齐 以致ASP刚学没几天就转到ASP.NET,JSP等等去了

ASP技术在国内的确开始没落了

<% function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")<len(strUrl) then if InStr(strUrl,"?")>1 then if InStr(strUrl,"&")<len(strUrl) then JoinChar=strUrl & "&" else JoinChar=strUrl end if else JoinChar=strUrl & "?" end if else JoinChar=strUrl end if end function

sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit) if totalnumber>0 then dim n, i,strTemp,strUrl if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp=strTemp & "共 <font color=blue><b>" & totalnumber & "</b></font> " & strUnit & "&nbsp;&nbsp;&nbsp;" strUrl=JoinChar(sfilename) if PageNo<2 then strTemp=strTemp & "首页 上一页&nbsp;" else strTemp=strTemp & "<a href='" & strUrl & "PageNo=1'>首页</a>&nbsp;" strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & (PageNo-1) & "'>上一页</a>&nbsp;" end if

if n-PageNo<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & (PageNo+1) & "'>下一页</a>&nbsp;" strTemp=strTemp & "<a href='" & strUrl & "PageNo=" & n & "'>尾页</a>" end if strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & PageNo & "</font>/" & n & "</strong>页 " strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & "&nbsp;转到：<select name='page' size='1' onchange=""javascript:window.location='" & strUrl & "PageNo=" & "'+this.options[this.selectedIndex].value;"">" for i = 1 to n strTemp=strTemp & "<option value='" & i & "'" if cint(PageNo)=cint(i) then strTemp=strTemp & " selected " strTemp=strTemp & ">第" & i & "页</option>" next strTemp=strTemp & "</select>" end if response.write strTemp end if end sub %> <% call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题") %>

盗别人的分页，直接拿来用了

[此贴子已经被作者于2005-6-18 0:42:03编辑过]

把一下的文件保存为asp页以后用调用就可以了 这是一个专业的asp分页程序 <%

'*********************************************** '函数名：PasteURL '作 用：向地址中加入 ? 或 & '参 数：strUrl ----网址 '返回值：加了 ? 或 & 的网址 '*********************************************** function PasteURL(strUrl) if strUrl="" then PasteURL="" exit function end if '如果传入的URL末尾不是"?"，有两种情况： '1.无“？”，此时需加入一个“？” '2. 有“？”再判断有无“&” if InStr(strUrl,"?")<len(strUrl) then if InStr(strUrl,"?")>1 then if InStr(strUrl,"&")<len(strUrl) then PasteURL=strUrl & "&" else PasteURL=strUrl end if else PasteURL=strUrl & "?" end if else PasteURL=strUrl end if end function

'*********************************************** '过程名：ShowPage '作 用：显示“上一页 下一页”等信息 '参 数：sDesURL ----链接地址，可以是一个文件名，也可以是一个有一些参数所URL ' nTotalNumber ----总数量 ' nMaxPerPage ----每页数量 ' nCurrentPage ----当前页 ' bShowTotal ----是否显示总数量 ' bShowCombo ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。 ' sUnit ----计数单位 '*********************************************** sub ShowPage(sDesURL, nTotalNumber, nMaxPerPage, nCurrentPage, bShowTotal, bShowCombo, sUnit) dim n, i,strTemp,strUrl '计算页数 if nTotalNumber mod nMaxPerPage=0 then n= nTotalNumber \ nMaxPerPage else n= nTotalNumber \ nMaxPerPage+1 end if '判断nCurrentPage if nCurrentPage < 1 then nCurrentPage = 1 elseif nCurrentPage > n then nCurrentPage = n end if Response.Write "<table align='center' ID='Table1'><form name='ShowPages' method='Post' action='" & sDesURL & "' ID='Form1'><tr><td>" if bShowTotal=true then Response.Write "共 <b>" & nTotalNumber & "</b> " & sUnit & "&nbsp;&nbsp;" end if '根据输入的sDesURL向它加入?或& strUrl=PasteURL(sDesURL) if nCurrentPage<2 then Response.Write "首页 上一页&nbsp;" else Response.Write "<a href='" & strUrl & "page=1'>首页</a>&nbsp;" Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage-1) & "'>上一页</a>&nbsp;" end if

if n-nCurrentPage<1 then Response.Write "下一页 尾页" else Response.Write "<a href='" & strUrl & "page=" & (nCurrentPage+1) & "'>下一页</a>&nbsp;" Response.Write "<a href='" & strUrl & "page=" & n & "'>尾页</a>" end if Response.Write "&nbsp;页次：<strong><font color=red>" & nCurrentPage & "</font>/" & n & "</strong>页 " Response.Write "&nbsp;<b>" & nMaxPerPage & "</b>" & sUnit & "/页" if bShowCombo=True then Response.Write "&nbsp;转到：<SELECT name='page' size='1' onchange='javascript:submit()' ID='Select1'>" for i = 1 to n Response.Write "<option value='" & i & "'" if cint(nCurrentPage)=cint(i) then Response.Write " selected " Response.Write ">第" & i & "页</option>" next Response.Write "</SELECT>" end if Response.Write "</td></tr></form></table>" end sub %>

&lt;%
dim page_no
'第一步：确定在第几页
'第二步：用循环显示内容
'下面的代码执行的是第一步：
'如果第一次打开，page_no为1，否则由传回的参数决定  request.querystring()
if request.querystring("page_no")="" then
  page_no=1
else
  page_no=Cint(request.querystring("page_no"))
  'Cint()函数，将字符串转换为整数
end if
'-------------------------
'第一步执行结束
'-------------------------
%&gt;
&lt;h2 align="center"&gt;分页测试&lt;/h2&gt;
&lt;center&gt;
&lt;table border="1" width="90%"&gt;
  &lt;tr bgcolor="#b7b7b7" align="center"&gt;
    &lt;td width=20%&gt;姓名&lt;/td&gt;
    &lt;td width=30%&gt;电话&lt;/td&gt;
 &lt;td width=30%&gt;email&lt;/td&gt;
  &lt;/tr&gt;
&lt;%
'下面的代码执行第二步：
dim strsql,rs
'建立recordset记录集
set rs=server.createobject("adodb.recordset")
strsql="select * from users order by submit_date desc"
rs.open strsql,db,1,2
'用循环显示记录
if not rs.bof and not rs.eof then
   '设置一页显示5条
   rs.pagesize=5
   '设置当前页面
   rs.absolutepage=page_no
   '循环显示当前面的所有记录
   '------------------
   dim i
   i=rs.pagesize
   do while not rs.eof and i&gt;0
     i=i-1
 '每显示一条，i减1，当变成0时，表示本页结束
    %&gt;
   &lt;tr bgcolor="f2f2f2" align="center"&gt;
      &lt;td&gt;&lt;%=rs("name")%&gt;&lt;/td&gt;
   &lt;td&gt;&lt;%=rs("tel")%&gt;&lt;/td&gt;
   &lt;td&gt;&lt;%=rs("email")%&gt;&lt;/td&gt;
   &lt;/tr&gt;
   &lt;%
     rs.movenext  '记录指针向下移一条
  loop   
   %&gt;
&lt;%   
else
  response.write("没有记录")
end if
%&gt;
&lt;/table&gt;
&lt;%
'输出页面信息
' rs.pagecount表示总页数
response.write("&lt;p&gt;一共有"&amp;rs.pagecount&amp;"页,")
response.write("当前是第"&amp;page_no&amp;"页,")
'输出第一页，上一页，下一页，最后一页的链接
'定义两个变量，分别显示上一页和下一页的页码
dim numpre,numnext
numpre=page_no-1
'当前页减1，是上一页
numnext=page_no+1
'当前页加1，是下一页
'先输出第一页的链接
response.write("&lt;a href='index.asp?page_no=1'&gt;第一页&lt;/a&gt;")
'输出上一页的链接，如果numpre=0,表示当前已经是第一页了，不加链接
if numpre=0 then
  response.write("&amp;nbsp;&amp;nbsp;上一页&amp;nbsp;&amp;nbsp;")
else
  response.write("&amp;nbsp;&amp;nbsp;&lt;a href='index.asp?page_no="&amp;numpre&amp;"'&gt;上一页&lt;/a&gt;&amp;nbsp;&amp;nbsp;")
end if
'输出下一页链接，如果numnext&gt;rs.pagecount,表示已经是最后一页了，不能加链接
if numnext&gt;rs.pagecount then
  response.write("&amp;nbsp;&amp;nbsp;下一页&amp;nbsp;&amp;nbsp;")
else
  response.write("&lt;a href='index.asp?page_no="&amp;numnext&amp;"'&gt;下一页&lt;/a&gt;")
end if
'输出最后一页的链接
  response.write("&amp;nbsp;&amp;nbsp;&lt;a href='index.asp?page_no="&amp;rs.pagecount&amp;"'&gt;最后页&lt;/a&gt;")
%&gt;
&lt;br&gt;
&lt;br&gt;
&lt;%
'用数字显示分页
response.write("&lt;p&gt;一共有"&amp;rs.pagecount&amp;"页,")
response.write("当前是第"&amp;page_no&amp;"页,")
response.write("请选择数据页：")
'用循环显示
for i=1 to rs.pagecount
%&gt;
&lt;a href="index.asp?page_no=&lt;%=i%&gt;"&gt;&lt;%=i%&gt;&lt;/a&gt;
&lt;%
  next
%&gt;