ShowPage 显示“上一页 下一页”等信息的封装代码

答案：'************************************************** 
'函数名：ShowPage 
'作  用：显示“上一页 下一页”等信息 
'参  数：sFileName  ----链接地址 
'       TotalNumber ----总数量 
'       MaxPerPage  ----每页数量 
'       ShowTotal   ----是否显示总数量 
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。 
'       strUnit     ----计数单位 
'返回值：“上一页 下一页”等信息的HTML代码 
'************************************************** 
function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit) 
    dim TotalPage,strTemp,strUrl,i 
    if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then 
        ShowPage="" 
        exit function 
    end if 
    if totalnumber mod maxperpage=0 then 
        TotalPage= totalnumber \ maxperpage 
      Else 
        TotalPage= totalnumber \ maxperpage+1 
      end if 
    if CurrentPage>TotalPage then CurrentPage=TotalPage 
      strTemp= "<table align='center'><tr><td>" 
    if ShowTotal=true then  
        strTemp=strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "  " 
    end if 
    strUrl=JoinChar(sfilename) 
      if CurrentPage<2 then 
        strTemp=strTemp & "首页 上一页 " 
      Else 
        strTemp=strTemp & "<a href=>        strTemp=strTemp & "<a href=>      end if 
      if CurrentPage>=TotalPage then 
        strTemp=strTemp & "下一页 尾页" 
      Else 
        strTemp=strTemp & "<a href=>        strTemp=strTemp & "<a href=>      end if 
       strTemp=strTemp & " 页次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 " 
        strTemp=strTemp & " <b>" & maxperpage & "</b>" & strUnit & "/页" 
    if ShowAllPages=True then 
        strTemp=strTemp & "  转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) window.location='" & strUrl & "page=" & "'+this.value;""'>页" 
         'strTemp  = strTemp &" <Input type=""button""  onClick=""window.location.href=>    end if 
    strTemp=strTemp & "</td></tr></table>" 
    ShowPage=strTemp 
end function

上一个：JoinChar 向地址中加入 ? 或 & 用于实现传参
下一个：asp实现检查目录是否存在与建立目录的函数