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

程序员文章站 2022-07-01 23:44:43

'************************************************** '函数名：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='" & strurl & "page=1'>首页</a> "
        strtemp=strtemp & "<a href='" & strurl & "page=" & (currentpage-1) & "'>上一页</a> "
      end if

      if currentpage>=totalpage then
        strtemp=strtemp & "下一页尾页"
      else
        strtemp=strtemp & "<a href='" & strurl & "page=" & (currentpage+1) & "'>下一页</a> "
        strtemp=strtemp & "<a href='" & strurl & "page=" & totalpage & "'>尾页</a>"
      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='" & strurl & "page='+document.all.page.value;""  name=button1  value=go >"
    end if
    strtemp=strtemp & "</td></tr></table>"
    showpage=strtemp
end function

上一篇： asp.net使用SpeechSynthesizer类生成语音文件部署到iis遇到的几个坑

下一篇：发一个ASP的ADODB类代码

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