我从一个动画程序中修改成一个图片程序可是在第二分类中那个分页不能用,也不知是哪里出错了请大家帮帮我
这个页面是那个不能分页的页面 http://www.snuy.com/1/poph/inc-poph-fen.asp?classid=21
======================================================================
这个是分页的集合代码
'***********************************************
'过程名：showpage
'作 用：显示“上一页 下一页”等信息
'参 数：sfilename ----链接地址
' totalnumber ----总数量
' maxperpage ----每页数量
' ShowTotal ----是否显示总数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
' strUnit ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= "<table align='center'><tr><td>"
if ShowTotal=true then
strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
strTemp=strTemp & "首页 上一页&nbsp;"
else
strTemp=strTemp & "<a href='" & strUrl & "page=1'>首页</a>&nbsp;"
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage-1) & "'>上一页</a>&nbsp;"
end if

if n-currentpage<1 then
strTemp=strTemp & "下一页 尾页"
else
strTemp=strTemp & "<a href='" & strUrl & "page=" & (CurrentPage+1) & "'>下一页</a>&nbsp;"
strTemp=strTemp & "<a href='" & strUrl & "page=" & n & "'>尾页</a>"
end if
strTemp=strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 "
strTemp=strTemp & "&nbsp;<b>" & maxperpage & "</b>" & strUnit & "/页"
if ShowAllPages=True then
strTemp=strTemp & "&nbsp;转到：<select class='input' name='page' size='1' onchange=""javascript:window.location='" & strUrl & "page=" & "'+this.options[this.selectedIndex].value;"">"
for i = 1 to n
strTemp=strTemp & "<option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">第" & i & "页</option>"
next
strTemp=strTemp & "</select>"
end if
strTemp=strTemp & "</td></tr></table>"
response.write strTemp
end sub
====================================================================
这是那第二类代码
<!--#include file="config.asp"-->

<%
dim classid
classid=request("classid")
smallclassname=request("smallclassname")

if not isinteger(classid) then
call mb("请指定作品一级分类ID!","inc-poph.asp",1)
end if

currentpage=request("inc1")
order=request("inc1")
if not isinteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
end if
maxperpage=10
i=1
totalpage=1
totalrecords=0
strfile="inc-poph-fen.asp?bigclassid="&bigclassid

%>
=====================================================================

[此贴子已经被作者于2006-12-1 23:36:44编辑过]