Jump to content
Fórum Script Brasil

luciano.soares

Membros
  • Posts

    40
  • Joined

  • Last visited

About luciano.soares

  • Birthday 02/18/1978

Contatos

luciano.soares's Achievements

0

Reputation

  1. CEH, você consegui resolver sua dúvida com as dicas de nossas amigas ??? se sim gostaria de receber seu script pois tenho uma missão parecida com a sua e estou meio enrolado. abraços luciano [email protected]
  2. Delphi Estou testando no servidor web (locaweb) e não funciona, acho que é devido algum tipo de restrição por aceso.
  3. Pessoal peguei o Codigo do Dark para uso de upload sem componentes, somente o codigo, fiz umas modificações para o que eu precisa, porem não esta funcionando, alguém pode me ajudar ? Me sistema deve atualizar registros em banco em access de noticias e artigos com imagens (para isso preciso do upload) referente a cada artigo. Vejam: Formulario modificado por mim: <!-- #include file = "upload_funcoes.asp" --> <body bgcolor="#C5DDC5"> <p><img src="../1024_2_arquivos/00000001_r1_c1.jpg" width="183" height="91"></p> <table> <form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data"> <tr> <td width="32">Foto:</td> <td width="284"><input type="file" name="foto" size="30"></td> </tr> <tr> <td colspan="2"> <input type="submit" name="submit" value="Enviar"> </td> </tr> </form> </table> Upload_funções.asp modificado por mim : <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin ' Recuperando os Dados Digitados ---------------------- 'nome = UploadRequest.Item("nome").Item("Value") 'email = UploadRequest.Item("email").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens/") nome_foto = "/"&nome_foto ' pasta + nome dos arquivos cfoto = "imagens/lojas" + nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados url_conexao = Server.MapPath("e:\home\gan-nutricao\dados\microfinancas.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (microfinancas.mdb)};DBQ="&url_conexao 'on error resume next 'Set conn_tt = Server.CreateObject("ADODB.Connection") 'conn_tt.Open Application("stringconn") ' cadastra os dados no banco de dados sql = "Insert into clipping2 (foto) values ('"& cfoto &"')" conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>" %> Upload_funcoes.asp não foi modificado: <% ' Upload Sem componentes --------------------------------------- Sub BuildUploadRequest(RequestBin) on error resume next PosBeg = 1 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg) BoundaryPos = InStrB(1, RequestBin, boundary) Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--"))) Dim UploadControl Set UploadControl = CreateObject("Scripting.Dictionary") Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition")) Pos = InStrB(Pos, RequestBin, getByteString("name=")) PosBeg = Pos + 6 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename=")) PosBound = InStrB(PosEnd, RequestBin, boundary) If PosFile <> 0 And (PosFile < PosBound) Then PosBeg = PosFile + 10 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34))) FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "FileName", FileName Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:")) PosBeg = Pos + 14 PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13))) ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) UploadControl.Add "ContentType", ContentType PosBeg = PosEnd + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg) Else Pos = InStrB(Pos, RequestBin, getByteString(Chr(13))) PosBeg = Pos + 4 PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2 Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg)) End If UploadControl.Add "Value", Value UploadRequest.Add Name, UploadControl BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary) Loop End Sub Function getByteString(StringStr) For i = 1 To Len(StringStr) Char = Mid(StringStr, i, 1) getByteString = getByteString & ChrB(AscB(Char)) Next End Function Function getString(StringBin) getString = "" For intCount = 1 To LenB(StringBin) getString = getString & Chr(AscB(MidB(StringBin, intCount, 1))) Next End Function ' Fim upload sem Componentes ----------------------------------------- %> Quando testo ele apresenta o ERRO: Microsoft VBScript runtime error '800a0046' Permission denied /sco/upload_form2.asp, line 35 Gostaria de ajuda, pois preciso entregar esse trabalho e isso esta me matando. Obrigado
  4. Amigos Gostaria da ajuda de todos neste código pois ele não esta funcionando. Ele deveria fazer acesso a um banco de dados access que cadastra artigos na tabela clipping e os assuntos destes artigos na tabela assunto. Nesta página gostaria de exibir todos os artigos cadastrados divididos por assunto, veja o exemplo: Assunto 1: Artigo do assunto 1 resumo do artigo Artigo do assunto 2 resumo do artigo Artigo do assunto 3 resumo do artigo .... Assunto 2: Artigo do assunto 1 resumo do artigo Artigo do assunto 2 resumo do artigo Artigo do assunto 3 resumo do artigo .... Assunto 3: Artigo do assunto 1 resumo do artigo Artigo do assunto 2 resumo do artigo Artigo do assunto 3 resumo do artigo .... Estou utilizando o código abaixo, tem algum erro que não consigo resolver, pois quando faço teste ele apresenta todos os artigos ordenados pelo assunto (criterio sql), porém não consigo agrupar e apresentar o nome do assunto, na verdade não estou conseguindo associar o id da tabela clipping com o nome na tabela assunto, quem puder ver o que esta errado e me ajudar, agradecerei eternamente. <!--#include virtual="/sco/comuns.asp" --> <% 'Realiza a conexão com o banco de dados Access Set conn_tt = Server.CreateObject("ADODB.Connection") conn_tt.ConnectionTimeout = 10000 conn_tt.CommandTimeout = 10000 conn_tt.Open Application("stringconn") 'Consulta assunto sql = "select * from assunto" set rs_assunto=conn_tt.execute(sql) 'Consulta os clippings de acordo com o filtros sql = "select * from clipping2 order by assunto" set rs_alunos_turma=conn_tt.execute(sql) %> <% if rs_alunos_turma ("assunto") = rs_alunos_turma("id") then %> <%= rs_assunto("assunto")%> <% end if %> <% if not rs_alunos_turma.eof then data_in = cdate("01/01/2300") end if do while not rs_alunos_turma.eof %> <%=rs_assunto("id")%> ' Instrução que recebe o clique do usuário e o leva ao artigo pretendido <a href="Int_gan_artigos.asp?cod=<%=rs_assunto("id")%>"> <a href="Int_gan_artigos.asp?cod=<%=rs_alunos_turma("id")%>"> ' Exibe o titulo do artigo <%=rs_alunos_turma("titulo")%> ' Exibe o resumo do artigo <%=rs_alunos_turma("resumo")%> <% data_in = rs_alunos_turma("data_inicio") rs_alunos_turma.movenext loop %>
  5. Gostaria que usuário colocasse a imagem no banco, como devo fazer ?
  6. Amigos Gostaria de ajuda para meu sistema em ASP usando ACCESS, para armazenar imagens relacionadas ao artigo e como exibi-los depois. Procurei pelo script no site mais não achei. um abraço
  7. Agora já consegui inserir, editar e excluir no banco, mais não consigo exibir o conteudo do banco em meu site. O que ocorre é que meu site é estatico .htm e preciso saber como fazer-lo ficar dinamico.
  8. Amigos já consegui inserir e editar os dados no Banco de dados, o problema agora e fazer as outras paginas do site que erão estatitcas acessar aos campos no banco de dados, é esse o meu problema agora. Como faço Ok amigos. Já consegui fazer os inserts e ups, já tenho acesso a um sistema que atualiza os dados no banco, porém meu site é todo estatico (.htm), salvei todas as páginas em .asp e tenho que fazer a conectividade com o banco para as paginas possam ler o banco. É ai que estou todo enrolado. alguém pode me ajudar neste ponto.
  9. como fazer a rotina para recuperar dados num banco access usando asp.
  10. Não Andrea, vou acessar via paginas asp mesmo, porém não estou conseguindo fazer com as paginas façam a leitura no banco, editar já consigo, mais ler é que está complicado. Obrigado pela ajuda..
  11. Ai galera preciso de ajuda, tenho banco de dados em access com três tabelas (login + assunto + e materia) e uma aplicação em ASP, estou fazendo minha conexão via o global.asa, porém não sei como ler e editar dados atraves das paginas do site. alguém pode me orientar passo-a-passo ou pelo menos dar umas dicas. Obrigado
  12. Caros amigos Há algum tempo venho quebrando minha cabeça para aprender a manipular dados via ASP usando Access, estou tendo muita dificuldade pois para terminar essa missão. Preciso fechar um trabalho que estou fazendo onde um administrador deverá atualizar o site via uma sistema, ou seja manutenção das informações. Assim ele não precisará conhecer de programação para realizar mudanças simples em informações como a historia da empresa, uma tabela simples de produtos e etc. Porém não estou obtendo sucesso, estou tendo muitas dificuldades por não conhecer bem ASP. Porém estou na batalha. Crei um banco em Access Estabeleci a conexão da página ASP Criei formulários para inserção e atualização Porém o sistema não funciona :( Gostaria da ajuda de alguém que possa me fornecer algum exemplo de uma ferramenta simples com essa que preciso ou orientações mesmo de como fazer. Agradeço a ajuda de todos.
  13. Caros amigos Estou usando um iframe para um site, estou usando um arquivo principal e setando as demais paginas para um iframe neste arquivo, veja o codigo: <td height="30" colspan="12"> <iframe name="central" width="770" height="1000" scrolling="no" border="0" frameborder="0" src="PAGINAS" cellspacing="0"></iframe></td> <td>&nbsp;</td> Gostaria que o iframe se ajusta-se automaticamente ao tamanho de minha páginas. Como faço ? já tentei: width="100%" height="100%" width="auto" height="auto" width="" height="" Nada da certo Me ajudem ............ Luciano ;)
  14. Não estou conseguindo fazer a chamada aos campos no banco de dados. Sou iniciante no ASP
×
×
  • Create New...