GUTELO
-
Total de itens
38 -
Registro em
-
Última visita
Posts postados por GUTELO
-
-
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>
-
caro colegas
preciso e uma ajudinha basica
tenho uma planilha no excel que vai servir pra imprimir etiquetas e ela esta configurado desta forma.
| 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536|
linha1
|| 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536|
linha2
| 123252 | coluna1 |1255262| coluna 2 |1252365| coluna3 |1252536|
linha3
só que eu preciso dar o comando para reduzir em uma linha em outra linha automaticamente ela reduza conforme o comando assim seja para a coluna
existe uma forma de fazer tal procedimento!!!
por favor me ajudem!
-
no bd que estou desenvolvendo tenho um formulario princpial que é carregado apartir de um relatorio, existem certos campos do formulario que já vem altomaticamente preenchido, como fazer para não digitarem ou altereem nestes campos?
essa é minha primeira duvida!!!
obrigado!!!!
-
no bd que estou desenvolvendo tenho um formulario princpial que é carregado apartir de um relatorio, existem certos campos do formulario que já vem altomaticamente preenchido, como fazer para não digitarem ou altereem nestes campos?
essa é minha primeira duvida!!!
obrigado!!!!
-
ola galera!!!
preciso muito da ajuda de vc, estou montando um banco de dados para controle de processo, onde eu carrego o banco com um arquivo txt, com funções em vb,
tudo esta pronto, apenas preciso de algumas funçoes como:
1- depois de carregar o banco eu tenho um formulario de envio dos dados, (botão clik), gostaria de antes de enviar para o formulario principal o arquivo me aparecesse em segundo formulario com alguns campos para confirmação de salvamento do dados.
essa é minha primeira duvida!!
obrigado pela ajuda
-
-
-
explicando melhor!!
Tenho uma placa mãe vx-pro chipset n° pc82c371usb, com um processador 166 pentium instalado. Esta placa possui tanto slots para memória dimm , quanto memória simm. Estava instalada nela 16 mega de memória SIMM (72 vias), acontece que eu resolvi fazer um upgrade e comprei um pente de 128 MB de memória DIMM, para minha surpresa ao ligar o micro a bios reconheceu apenas 32 MB de memória.
será que como resolver?????
aguardo!!!!!
-
-
descupe mais não conhecia esta fução, mais era o que eu precisava.
obrigado!!!!
-
COMO IMPORTAR OS ITENS ?
SEJA MAIS CLARO!!!
-
ola pessal!
captuei um banco de dado, so que ao abri-lo abre direto no formulário, como faço para anlisar as tabelas do banco até para modificações do banco, parece que esta protegido.
pesso uma ajuda por favor.
-
TENHO UMA PASTA OND EXISTEM VARIAS PLANILHAS (MENU), A, B, C , D, TRABALHO COM OS BOTÕES SALVAR IMPRIMIR TUDO EM MACRO, SO QUE AGORA ESTA DANDO ERRO NO SALVAMENTO DE UMA PLANILHA, AO CLICAR O BOTÃO SALVAR.
1º PRECISO SALVAR A PLANILHA E TODO SEU CONTEÚDO QUEBRANDO OS VINCULOS DA PLANILHA PRINCIPAL.
2º ESTA DANDO ERRO NESTA REFERENCIA VEJA SE ESTA CERTO O QUE ESTA
OU ME DEI OUTA IDEIA DE COMO SALVAR A PLANILHA.
Sub salvarIMP_ORDAMP()
Sheets("IMP_ORDAMP").Select
Sheets("IMP_ORDAMP").Copy Before:=Sheets(1)
Referencia = Mid(Range("AK4").FormulaLocal, 2)
Range("AK4").Value = Range(Referencia).Value
Referencia = Mid(Range("AX10").FormulaLocal, 2)
Range("AX10").Value = Range(Referencia).Value
Range("B15").Value = extenso(Range("AX10").Value)
Referencia = Mid(Range("G10").FormulaLocal, 2)
Range("G10").Value = Range(Referencia).Value
ME AJUDE!!!
-
ola pessaol!!
eu pegunto, existe um site que fale somente sobre excel.
obrigado.
-
obrigado!
já conseguir fazer só com estas dicas!!
até a proxima.
-
veja bem tenho um relatorio que esta em tabela, e este relatorio vai dar 33 paginas só que o final da tabela fica quebrada, exibe na tela e na propria impresão preciso quebra-la, para encaixar na pagina.
-
Ola!!
preciso saber como faço para quebra pagina no asp.
-
ALO GALERA!!
COMO PROTEGER A PLANILHA, E DEIXAR APENAS AS CELULAS QUE VAI SER DIGITADAS LIBERADAS?
-
ola pessoal!!
estou carregando uma pagina apartir dos dados fornecidos pelo banco, so que eu não consigo fazer com que os dados se encaixem na tabela, a tabela sempre fica grande em relação ao dados, como fazer pra que o dados ou a tabela fique se encaixem normalmente.
exustem alguma função que faça isso?
me ajude!!
-
NOME|CAT|TP_CONT|SALDO|PIS|ADMISSAO |OPCAO|AFASTAMENTO|COD_SAQ|
XX XX XXXXXX XXXX XXXXXX 00 01/2002 04/2002 06/2005 0000
XX XX XXXXXX XXXX XXXXXX 00 01/2002 05/2002 06/2005 0000
XX XX XXXXXX XXXX XXXXXX 00 01/2002 06/2002 06/2005 0000
XX XX XXXXXX XXXX XXXXXX 00 01/2002 03/2002 06/2005 0000
XX XX XXXXXX XXXX XXXXXX 00 01/2002 03/2003 06/2005 0000
XX XX XXXXXX XXXX XXXXXX 00 01/2002 03/2003 06/2005 0000
SERA QUE AGORA EU EUTA CLARO QUE PESQUISAR APENAS O PERIODO DE 04/2002 A 03/2003 ISSO TUDO NO ACCESS. POR FAVOR ME AJUDE PRECISO DESTA FUNÇÃO.
OBS.
CLARO QUE EXISTEM OUTROS PERIODOS INCLUIDOS!!
-
ola pessoal!
Sou novato no assunto ASP, mais sei que só tem safo neste forum, e gostaria de saber uma função que fassa uma bUsca no banco e capture o periodo solicitado
minha tabela banco esta esta neste sentido.
NOME|CAT|TP_CONT|SALDO|PIS|ADMISSAO|OPCAO|AFASTAMENTO|COD_SAQ|
XX XX XXXXXX XXXX 00 01/2002 032002 062005 0000
XX XX XXXXXX XXXX 00 01/2002 032003 062005 0000
XX XX XXXXXX XXXX 00 01/2002 032004 062005 0000
XX XX XXXXXX XXXX 00 01/2002 032002 062005 0000
gostaria de captura o periodo de 032002 a 032004 que poderia me fornece esta função.
-
tenho uma tabela em access que tem os seguintes campos
nome,valor,periodo 02,2002
nome,valor,periodo 03,2002
nome,valor,periodo 02,2002
nome,valor,periodo 04,2002
nome,valor,periodo 02,2002
nome,valor,periodo mês,ano
e são mais de 3365 registros com esses campos estou precisando fazer uma macro no access que capture todos os registro com os periodos de
02,2002 a ""
por favor me ajude!!
-
estou com muitas duvidas !!
tenho um pagina principal a mesma vai possuir muitas informações tipos linK, eu pergunto sera preciso construir um banco de dados para armazenar tais informações e acrecenta-la como fazer por favor? preciso me aperfeiçoar nisto vale o meu emprego me ajude.
-
olha, a memoria não queimou, até por que já testei em outro computador e rodou normalmente, já a memoria atual que são 8mb, estas devem estar queimadas até porque nem rodar o computado elas rodam agora até a outra memoria já não roda na maquina, sera que queimou a placa mãe?
Paginação
em ASP
Postado
o link informado:
http://scriptbrasil.com.br/forum/index.php...e=pagina%E7%E3o
não acessa.