【下载文档:  ShowPage_显示“上一页_下一页”等信息的封装代码.txt 】

---

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= "

" if ShowTotal=true then strTemp=strTemp & "共 " & totalnumber & " " & strUnit & " " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " Else strTemp=strTemp & "首页 " strTemp=strTemp & "上一页 " end if if CurrentPage>=TotalPage then strTemp=strTemp & "下一页 尾页" Else strTemp=strTemp & "下一页 " strTemp=strTemp & "尾页" end if strTemp=strTemp & " 页次：" & CurrentPage & "/" & TotalPage & "页 " strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页" if ShowAllPages=True then strTemp=strTemp & " 转到第页" 'strTemp = strTemp &" " end if strTemp=strTemp & "

" ShowPage=strTemp end function