'*************************************************************
'Nome da função: ShowPage
'Função: exiba informações como "página anterior na próxima página"
'Parâmetro: sfilename ---- Endereço de link
'TotalNumber --- número total
'MaxPerpage ---- Número de cada página
'Showtotal ---- o número total é exibido
'ShowAllPages-para exibir todas as páginas com uma lista suspensa para redirecionamento. Algumas páginas não podem ser usadas, caso contrário, ocorrerá um erro JS.
'Strunit ---- Unidades de contagem
'Valor de retorno: código html para informações como "página anterior na próxima página"
'*************************************************************
FunctionShowPage (Sfilename, TotalNumber, MaxPage, Showtotal, ShowallPages, Strunit)
DimtoTalPage, strTemp, Strurl, i
ifTotalNumber = 0orMaxPage = 0orisNull (maxPage) então
Showpage = ""
saída de saída
endif
ifTotalNumberModMaxPage = 0Then
TotalPage = TotalNumber/MaxPage
Outro
TotalPage = TotalNumber/MaxPage+1
endif
ifCurrentPage> TotalPagetEnCurrentPage = TotalPage
strtemp = "<tabelign = 'Center'> <tr> <td>"
ifshowtotal = Truethen
strtemp = strtemp & "共 <b>" & totalNumber & "</b>" & strunit & ""
endif
strurl = junção (sfilename)
ifcurrentPage <2then
strtemp = strtemp e "página anterior da página anterior"
Outro
strTemp = strTemp & "<ahref = '" & strurl & "página = 1'> home </a>"
strTemp = strTemp & "<ahref = '" & strurl & "Page =" & (CurrentPage-1) & "'> página anterior </a>"
endif
ifcurrentPage> = totalpageten
strtemp = strtemp e "Próxima página última página"