page_function.asp

联合华邦物流 包括关于我们,新闻咨询,业务范围,订单查询,联系我们..等等功能. 后台 admin admin

<%    
dim i,intPage,page,pre,last,filepath,a,str
a=Request.QueryString
page = trim(Request.QueryString("page"))

if instr(a,"page=") then
   pagestr=replace(a,"page="&page,"")
ELSE
   pagestr="&"&a
end if

pre = true
last = true
    if len(page) = 0 then
       intpage = 1
       pre = false
    else
        if cint(page) =< 1 then
           intpage = 1
           pre = false
        else
           if cint(page) >= rs3.PageCount then
              intpage = rs3.PageCount
              last = false
           else
              intpage = cint(page)
           end if
       end if
     end if
if not rs3.eof then
   rs3.AbsolutePage = intpage
end if
%>