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