作者：袖梨 2022-07-02

'***********************************************
'过程名：showpage
'作用：显示“上一页下一页”等信息
'参数：sfilename ----链接地址
'       totalnumber ----总数量
'       maxperpage ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       strUnit     ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)

dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
    n= totalnumber maxperpage
else
    n= totalnumber maxperpage+1
end if
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 n-currentpage<1 then
      strTemp=strTemp & "下一页尾页"
else
      strTemp=strTemp & "下一页 "
      strTemp=strTemp & "尾页"
end if
   strTemp=strTemp & " 页次：" & CurrentPage & "/" & n & "页 "
    strTemp=strTemp & " " & maxperpage & "" & strUnit & "/页"
if ShowAllPages=True then
  strTemp=strTemp & " 转到："
    for i = 1 to n
      strTemp=strTemp & "    if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
   strTemp=strTemp & ">第" & i & "页"
     next
  strTemp=strTemp & ""
end if
strTemp=strTemp & "

"
response.write strTemp
end sub

'***********************************************
'过程名：enshowpage
'作用：显示“上一页下一页”等信息
'参数：sfilename ----链接地址
'       totalnumber ----总数量
'       maxperpage ----每页数量
'       ShowTotal   ----是否显示总数量
'       ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
'       strUnit     ----计数单位
'***********************************************
sub enshowpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
    n= totalnumber maxperpage
else
    n= totalnumber maxperpage+1
end if
strTemp= "

"
if ShowTotal=true then
  strTemp=strTemp & "Total " & totalnumber & " " & strUnit & "  "
end if
strUrl=JoinChar(sfilename)
if CurrentPage<2 then
      strTemp=strTemp & "First Previous "
else
      strTemp=strTemp & "First "
      strTemp=strTemp & "Previous "
end if

if n-currentpage<1 then
      strTemp=strTemp & "Next Last"
else
      strTemp=strTemp & "Next "
      strTemp=strTemp & "Last"
end if
   strTemp=strTemp & " Page No.:" & CurrentPage & "/" & n & "page "
    strTemp=strTemp & " " & maxperpage & "" & strUnit & "/page"
if ShowAllPages=True then
  strTemp=strTemp & " Turn to:"
    for i = 1 to n
      strTemp=strTemp & "    if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
   strTemp=strTemp & ">No." & i & "page"
     next
  strTemp=strTemp & ""
end if
strTemp=strTemp & "