Em grandes projetos ASP, muitas páginas envolvem função de giro de página. Se cada página gravar um programa de virar a página, esse trabalho reduzirá a eficiência do trabalho, não será propício à modularização do projeto e não poderá reutilizar o código. Portanto, é necessário modularizar funções como girar a página.
Método de design:
1. Ao chamar este módulo, você só precisa passar no conjunto de registros e o número de registros exibidos em cada página;
2. Você pode clicar no link para girar a página ou inserir diretamente o número da página e girar a página após pressionar;
3. Não considere o nome do arquivo, o programa pode estar na página atual toda vez que girar.
Depois de pensar nas três perguntas acima, nosso módulo de torneamento de página pública pode começar.
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆ Nome do módulo: Módulo de turnê de página pública
'◆ Nome do arquivo: turnpage.asp
'◆ Parâmetros de entrada: rs_tmp (conjunto de registros), PageSize (número de registros exibidos por página)
'◆ Saída: Função de exibição de giro da página do registro
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
Substurnpage (BYREFRS_TMP, PAGESIZE) 'RS_TMP RECORD Set; PageSize o número de registros exibidos por página;
Páginas DimtotalPage'Total
Dimpageno 'Qual página está atualmente exibida
DimRecordCount'Total Número de registros
Rs_tmp.pagesize = PageSize
RecordCount = rs_tmp.recordCount
TotalPage = int (RecordCount/Pagesize*-1)*-1
Pageno = request.QueryString ("Pageno")
'Vire diretamente digite o número de páginas para pular;
Ifrequest.form ("pageno") <> "" thenpageno = request.form ("pageno")
'Se a página não for selecionada, a primeira página será exibida por padrão;
Ifpageno = "" Thenpageno = 1
IfRecordCount <> 0then
Rs_tmp.absolutePage = pageno
Endif
'Obtenha o nome atual do arquivo para que cada giro de página seja executado na página atual;
Dimfilename, posição
FileName = request.Servervariables ("script_name")
postion = Instrrev (nome do arquivo, "/")+1
'Obtenha o nome do arquivo atual para que o link da página de página aponte para o arquivo atual;
nome do arquivo = mid (nome do arquivo, posição)
%>
<Tableborder = 0Width = '100%'>
<tr>
<tdalign = esquerda> contagem total de páginas: <fontcolor =#ff3333> <%= totalpage%> </font> página
Página atual <fontcolor =#ff3333> <%= pageno%> </font>
<tdalign = "direita">
<%IfRecordCount = 0ortotalPage = 1Then
Response.Write "Home | Página anterior | Próxima página | Última página"
Else%>
<href = "<%= nome do arquivo%>? Pageno = 1"> home | </a>