asp 分页显示
在分页显示的时候hornor.asp 可以正常显示
可是为什么hornor.asp?page=1 或者2的时候,就出现无法找到网页呢 ?
是不是感觉是参数传值有错误呀?但我找不到原因?
f request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
sqltext="select * from honor order by id desc"
rs.open sqltext,conn,1,1
dim MaPerPage
MaPerPage=6
dim text,checkpage
text="***********"
Rs.PageSize=MaPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
参考答案:你写的这程序凌乱不堪,是典型的垃圾程序,废话连篇,效率低下
你出的错误就是因为你的算法无头绪,所以逻辑也无头绪,错误,懒得看,看的人头都大了
只能说你犯的是逻辑错误,也就是说你算法不对
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
你认为它的逻辑是正确的吗