求助,分页功能出错!

[fdx2304]

我把一个整站系统Access数据库转为SQL,我只改了数据库连接部分代码,原来Access表里面自动添加ID的字段,我也改为标识种子递增为1.可是所有有分页部分的代码都出错了,地点在代码call showpages
call list部分,类型如下:
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'showpages'
/1/News.asp, 第 174 行
showpages函数如下:
sub showpages()
dim n
if (totalPut mod MaxPerPage)=0 then
n= totalPut \ MaxPerPage
else
n= totalPut \ MaxPerPage + 1
end if
if n=1 then
response.write "留言簿管理界面"

exit sub
end if
dim k
response.write "<p align='left'>>> 留言分页 "
for k=1 to n
if k=currentPage then
response.write "[<b>"+Cstr(k)+"</b>] "
else
response.write "[<b>"+"<a href='Manage_Book.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] "
end if
next
end sub
我看了半天,不知道哪里跟数据库有关,分页功能是要先读数据表里面有几条记录赋值给totalPut是吗?
类型不匹配是什么意思呢?还有有通用的比较好的分页代码吗?

[ryuginka]

第 174 行是哪一行?

[fdx2304]

问题自己解决了!嘿嘿,多谢楼上的沙发!分都给你啦!

[zhangguangxue_xx]

if (totalPut mod MaxPerPage)=0 then 应该if (totalPut mod MaxPerPage)==0 then
看行不行!

[fdx2304]

30,0
贴子回复次数大于跟给分次数 ???????
为什么给不了分????

[jekexys2004]

你看看这个分页代码，我觉得不错
<%
Sub ShowOnePage( rs, Page )
Response.Write "<CENTER><table border=4 bordercolor=orange>"
Response.Write "<TR bgcolor=orange>"
Response.WRITE "<TD><font color=white><b>编号</b></font></TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD><font color=white><b>" & rs.Fields(i).Name & "</b></font></TD>"
Next
Response.Write "</TR>"
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
Response.Write "<TR align=middle>"
RecNo = (Page - 1) * rs.PageSize + iPage
Response.Write "<TD>" & RecNo & "</TD>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Value & "</TD>"
Next
Response.Write "</TR>"
rs.MoveNext
If rs.EOF Then Exit For
Next
Response.Write "</TABLE></CENTER>"
End Sub
%>