1. 论坛系统升级为Xenforo,欢迎大家测试!
    Dismiss Notice

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

Discussion in '前端开发' started by 小狼, Apr 15, 2006.

  1. 小狼

    小狼 New Member

    Joined:
    Mar 15, 2006
    Messages:
    163
    Likes Received:
    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

    Joined:
    Sep 4, 2005
    Messages:
    17,941
    Likes Received:
    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

    Joined:
    Sep 10, 2005
    Messages:
    344
    Likes Received:
    1
    顶顶顶顶顶顶顶顶顶顶