1. 论坛系统升级为Xenforo,欢迎大家测试!
    排除公告

一个检查页面语句,不知道错在什么地方,请大家看看 

本帖由 小狼2006-04-15 发布。版面名称:前端开发

  1. 小狼

    小狼 New Member

    注册:
    2006-03-15
    帖子:
    163
    赞:
    1
    If checkpage<>0 then
    If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page"))
    else
    If CurrentPage < 1 Then CurrentPage = 1
    else
    If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
    Else
    CurrentPage= 1
    If not Rs.eof Then Rs.AbsolutePage = CurrentPage
    Else
    CurrentPage=1
    end if
    end if

    End if

    %>
     
  2. 小叶

    小叶 New Member

    注册:
    2005-09-04
    帖子:
    17,941
    赞:
    33
    HTML:
    <%
    If checkpage<>0 Then
    
    If NOT IsEmpty(request("page")) Then 
    	CurrentPage=Cint(request("page"))
    elseIf CurrentPage < 1 Then 
    	CurrentPage = 1 
    elseIf CurrentPage > Rs.PageCount Then 
    	CurrentPage = Rs.PageCount 
    Else
    CurrentPage= 1
    End If 
    
    If not Rs.eof Then 
    	Rs.AbsolutePage = CurrentPage 
    Else
    	CurrentPage=1
    end if
    
    
    End If
    %>
    :sweat: :sweat: :sweat:
     
  3. 死鬼

    死鬼 New Member

    注册:
    2005-09-10
    帖子:
    344
    赞:
    1
    顶顶顶顶顶顶顶顶顶顶