Ir para conteúdo
Fórum Script Brasil
  • 0

Paginação

GUTELO

Perguntado por GUTELO,

 Share

Pergunta

GUTELO

GUTELO

Postado
Postado (editado)

ola galera

estou fazendo um pagina simples, que carrega apartir de uma pagina arquivo txt, (upload), serve para impressão de etiquetas, são 18 linhas e 5 colunas geralmente o arquivo é muito grande e dá mais 10 paginas, como faço uma paginação neste upload, esta aqui o script da pagina.

por favor me ajudem!!!

<!--#include file="freeaspupload.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar = Server.MapPath("arquivos")

FUNCTION TestEnvironment()
    Dim fso, fileName, testFile, streamTest
    TestEnvironment = ""
    SET fso = Server.CreateObject("Scripting.FileSystemObject")
    IF NOT fso.FolderExists(uploadsDirVar) THEN
        TestEnvironment = "<B>A Pasta acessada pelo caminho " & uploadsDirVar & " não existe.</B><p>O caminho da variável <b>uploadsDirVar</b> está incorreto."
        EXIT FUNCTION
    END IF
    fileName = uploadsDirVar & "\test.txt"
    on error resume next
    SET testFile = fso.CreateTextFile(fileName, true)
    IF Err.Number<>0 then
        TestEnvironment = "<B>Você não tem permissões para GRAVAR ou ALTERAR dados na pasta " & uploadsDirVar & ".</B><p>Contact o administrador do sistema para alterar suas permissões."
        EXIT FUNCTION
    END IF
    Err.Clear
    testFile.Close
    fso.DeleteFile(fileName)
    IF Err.Number<>0 THEN
        TestEnvironment = "<B>Você não tem permissões para EXCLUIR dados da pasta " & uploadsDirVar & ".</B><p>Contact o administrador do sistema para alterar suas permissões."
        EXIT FUNCTION
    END IF
    Err.Clear
    SET streamTest = Server.CreateObject("ADODB.Stream")
    IF Err.Number<>0 THEN
        TestEnvironment = "<B>O Recurso <I>Stream</I> do objeto ADODB não está habilitado em seu servidor.</B><br>Verifique as configurações necessárias e informações sobre upgrade de sua biblioteca ADODB."
        EXIT FUNCTION
    END IF
    SET streamTest = Nothing
    
END FUNCTION

FUNCTION SaveFiles
    Dim Upload, fileName, fileSize, ks, i, fileKey

    Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

	IF Err.Number<>0 THEN EXIT FUNCTION

  KS = Upload.UploadedFiles.keys
  
  	IF (UBOUND(KS) <> -1) THEN
  	
    	FOR EACH fileKey IN Upload.UploadedFiles.keys
         Arquivo = uploadsDirVar & "\" & Upload.UploadedFiles(fileKey).FileName
         SaveFiles = "" 
         'SaveFiles = "<p>O arquivo <b>" & Upload.UploadedFiles(fileKey).FileName & "</b> com <b>" & Upload.UploadedFiles(fileKey).Length & " Bytes de dados </b> "
    	NEXT
    	
    	SET mFileSystem = server.createobject("Scripting.FileSystemObject")
    	
    	IF mFileSystem.FileExists(Arquivo) = true then
      	SET FSO = Server.CreateObject("Scripting.FileSystemObject") 
      	SET TXT = FSO.OpenTextFile(Arquivo)
  
         Registros = 0
         Carregou = true         
         Linha = txt.readLine 
   %>

<html>
<head>
<title>AAA</title>
<style media="print">

.botao {
display: none;
}

</style>

</head>

<body topmargin="0" leftmargin="0">

<table width="553" height="805">
  <col width="62" style="mso-width-source:userset;mso-width-alt:2267;width:47pt">
  <col width="62" style="mso-width-source:userset;mso-width-alt:2267;width:47pt">
  <col width="63" span="5" style="mso-width-source:userset;mso-width-alt:2304;
 width:47pt">
<%  primeiro = 0

	DO WHILE primeiro = 0

  IF TRIM(MID(Linha,5,1)) <> "*" AND TRIM(MID(Linha,10,1)) = "-" THEN 
  
  	AF = TRIM(MID(Linha,5,8))
  ELSE
  	AF = ""

  END IF
  
  	DO WHILE AF <> "" AND NOT txt.AtEndOfStream
        
    	Linha = txt.ReadLine
          
    	ET = TRIM(MID(Linha,5,8))
    
    	IF  ET = "" OR txt.AtEndOfStream THEN exit do%>

	<tr height="10" style="height:12.0pt"> 
  <td height="34" class="xl24" width="71" valign="top"><font face="Courier New" size="2"><%=AF%><br>
  	<%=ET%></font></td>
  <td class="xl14" width="76" height="34" valign="top"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
  <td class="xl24" width="84" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%><br>
  	<%=ET%></font></p></td>
  <td class="xl14" width="41" height="34" valign="top"> </td>
  <td class="xl24" width="88" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%> <br>
  	<%=ET%></font></p></td>
  <td class="xl14" width="31" height="34" valign="top"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
  <td class="xl24" width="73" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%> <br>
  	<%=ET%></font></p></td>
  <td class="xl14" width="49" height="34" valign="top"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
  <td class="xl24" width="98" valign="top" height="34"> <p><font face="Courier New" size="2"><%=AF%><br>
  	<%=ET%></font></p></td>
  	</tr><%
  	
  	primeiro = 1
  	
  	LOOP
  	
  	IF NOT txt.AtEndOfStream THEN Linha = txt.ReadLine
        	
	LOOP

	cont = 1

    DO WHILE NOT TXT.AtEndofStream AND cont < 18
  
  IF TRIM(MID(Linha,5,1)) <> "*" AND TRIM(MID(Linha,10,1)) = "-" THEN 
  
  	AF = TRIM(MID(Linha,5,8))
  	
  ELSE
      AF = ""
  	
  END IF
      
    DO WHILE AF <> "" AND NOT txt.AtEndOfStream
        
    	Linha = txt.ReadLine
          
    	ET = TRIM(MID(Linha,5,8))
    
    	IF  ET = "" OR txt.AtEndOfStream THEN exit do

%>


<tr>
    <td height="63" class="xl24" width="71" valign="middle"><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></td>
    <td class="xl14" width="76" height="63" valign="middle"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
    <td class="xl24" width="84" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td>
    <td class="xl14" width="41" height="63" valign="middle"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
    <td class="xl24" width="88" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td>
    <td class="xl14" width="31" height="63" valign="middle"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
    <td class="xl24" width="73" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td>
    <td class="xl14" width="49" height="63" valign="middle"> <p><font face="Courier New" size="2">&nbsp;</font></p></td>
    <td class="xl24" width="98" valign="middle" height="63"> <p><font face="Courier New" size="2"><%=AF%><br><%=ET%></font></p></td>
  </tr>

	<%          
        	
        	cont = cont + 1
        	
        	LOOP
        	
        	IF NOT txt.AtEndOfStream THEN Linha = txt.ReadLine
        	

      	LOOP
%>
</table>

<%    
      	TXT.close 
      	SET TXT = Nothing  
      	Set FSO = Nothing
%>

<%

	END IF

SET mFileSystem = nothing

SET rsSIGEP = nothing

  IF Carregou THEN
     SaveFiles = ""
  'SaveFiles = SaveFiles & "e contendo <b>" & registros & "</b> registros referentes a data <b>" & Data & "</b> foi carregado com sucesso para a base de dados.</p>"
  ELSE
     SaveFiles = SaveFiles & "referentes a data <b>" & Data & "</b> já havia sido carregado <b>anteriormente</b> para a base de dados.</p>"
  END IF
ELSE
   SaveFiles = "<p>O <b>Nome do Arquivo</b> especificado no Upload não é um nome de arquivo existente no local especificado de seu sistema.</p>"
END IF

END FUNCTION

%>

<script>
function onSubmitForm() {

    if (document.frmUpload.txt.value == "")
        alert("Selecione o arquivo de Amostra")
    else
        return true;
    return false;
}
</script>
<%
Dim diagnostics
if Request.ServerVariables("REQUEST_METHOD") <> "POST" then
    diagnostics = TestEnvironment()
    if diagnostics<>"" then
        response.write "<font face='Verdana' size='2' color='#000080'>"
        response.write diagnostics
        response.write "<p>Após corrigir seu problema atualize esta página."
        response.write "</font>"
    else

%>
<form method="POST" name="frmUpload" action="upload.asp" enctype="multipart/form-data" onSubmit="return onSubmitForm();">
  <div align="center">
    <table width="98%" border="0" cellpadding="0" cellspacing="0" bgcolor="#6A98B3">
<tr>
        <td><div align="center"><strong><font color="#FFFFFF" size="3" face="Arial, Helvetica, sans-serif">ETIQUETAS</font></strong></div></td>
      </tr>
    </table>
    <br>
    <table border="1" cellpadding="0" cellspacing="0" width="55%"
  height="1">
<tr>
      <td width="25%" bgcolor="#9DB9C8" align="left" height="3" valign="middle">
        <p align="left"><strong><font color="#FFFFFF" face="Verdana" size="2">Arquivo:</font></strong></p>
      </td>
      <td width="80%" align="left" height="3" valign="middle" nowrap>
        <p align="left"><b><font face="Verdana" size="2" color="#000080"><input type="file" name="txt" size="30" style="	FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff"></font></b></p>
      </td>
    </tr>        
  </table>

      </div>
      <p align="center">

    <font face="Verdana">
    <br>
    </font>

      <div align="center">
        <center>

      <table border="0" cellpadding="0" cellspacing="0" width="30%">
        <tr>
          <td width="50%" align="center">
    <p align="center">
    <font
      color="#FFFFFF" face="Arial" size="2"><b><input type="submit" value="Carregar" style="	FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnUpload" 
      >
    </b></font>
    </p>
          </td>
          <td width="50%" align="center">
            <p align="center"><font face="Verdana"><font
      color="#FFFFFF" face="Arial" size="2"><strong><input
      type="reset" value="  Limpar "
      style="	FONT-WEIGHT: bold; FONT-SIZE: 10px; COLOR: #000080; BACKGROUND-COLOR: #ffffff" name="btnLimpar"></strong></font>
    </font>
            </p>
          </td>
        </tr>
      </table>

        </center>
      </div>

</form>


<%
    end if
else
        response.write "<font face='Verdana' size='2' color='#000080'>"
        response.write SaveFiles()
        response.write "</font>"
end if
%>
</body>
</html>

Editado por cyberalexxx
Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...