set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from film where typeid='"&typeid&"' order by time desc" rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.Write("当前还没有内容...")
else
dim currentpage
maxperpage=Sitebooknum
rs.pagesize=8
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n
totalput=rs.recordcount
if totalput mod maxperpage=0 then (错误在这句: 错误类型：
Microsoft VBScript 运行时错误 (0x800A000B)
被零除
/list.asp, 第 354 行
)
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
w=1
do while i< maxperpage and not rs.eof
%>作者: 清风 时间: 2010-1-8 22:56
你的maxperpage变量没有初始值吧，前面要自己先赋值，不然默认值是0作者: 加非猫 时间: 2010-1-8 22:56
确实是啊，你的maxperpage没有赋初值，我以前也出现过这样的情况！