Gerar Anexo

April 2, 2004

Olá

Estou com dificuldades em gerar uma página dinâmica me cri um link de um arquivo meu, enviado para uma pasta em meu servidor através de um comando de Upload. Preciso fazer algo parecido com o "anexar" dos webmails mas só condigo enviar o arquivo ao servidor, mas não criar o link automaticamente para seu respectivo download.

Será que alguém poderia me ajudar ou me dizer onde posso obter ajuda???

Desde já fico agradecido.

dark0 · April 2, 2004

não entendi..

pode ser mais claro?

deixa eu ver..

você faz o upload, certo?

depois, você quer criar um link com o arquivo que você acabou de enviar?

é isso?

April 2, 2004

isso mesmo! faço o Upload do arquivo desejado e preciso depois, criar um link deste mesmo arquivo em uma outra página para download!

Tem como me ajudar?

dark0 · April 2, 2004

Deixa ver..

Eu pensaria num modo assim:

- Quando você faz o upload, você coloca um sql que faz insert numa tabela do banco, e coloca lá o link do arquivo!

- e depois, para pegar fica facil!

posta seu codigo aí.. para podermos lhe ajudar!

E se cadastra o fórum, para nos ajudar a crescer cada vez mais!

Abraços

April 2, 2004

está aqui o código

<%
	Dim entry1
	dim date1
	dim name1
	dim codi1

inputnum = request.querystring("inputnum")
If IsEmpty(inputnum) or inputnum = "" then


%><br>
  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
      <INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>
      <INPUT TYPE=SUBMIT VALUE="Anexar!">
    </FORM >
<form id=form method="POST" action="submit.asp?inputnum=1">
  <br>
  <div align="center">
    <center>
    <table border="1" cellpadding="0" cellspacing="0" width="100%" height="48" bordercolor="#CCCCCC" bgcolor="#C0C0C0">
      <tr>
          <td width="54%" height="56" bgcolor="#96DAFE"> <p><font size="2" face="Verdana">Digite 
              o comunicado aqui.<br>
              <textarea rows="8" name="Entry1" cols="47" style="border-style: solid; border-width: 2"></textarea>
              <br>
              </font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">C&oacute;digo</font><br>
              <input name="codi1" type="text" id="codi1" size="13">
              <br>
              <font face="Verdana" size="2"> Data<strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              &nbsp; </strong></font><br>
              <input type="text" name="date1" value="<% =Date %>" size="13">
              &nbsp;&nbsp;&nbsp;<br>
              <font face="Verdana" size="2">T&iacute;tulo da not&iacute;cia</font><br>
              <input type="text" name="name1" size="66" maxlength="255">
              <br>
              &nbsp;</p>
        </td>
          <td width="46%" height="72" align="left" valign="top" bgcolor="#0099FF"> 
            <p style="margin-left: 10"><font face="Verdana" size="2"> <font color="#FFFFFF"><strong>Propriedades 
              do HTML</strong></font>&nbsp; <br>
              <br>
              <font color="#FFFF00"><strong>&lt;font color=&quot;?&quot; size=&quot;?&quot; 
              face=&quot;?&quot;&gt;&lt;/font&gt;</strong></font> Escolhe fonte 
              , tamanho e cor. <br>
              <b><font color="#FFFF00">&lt;b&gt;&lt;/b&gt;</font></b> <b>Negrito</b><br>
              <b><font color="#FFFF00">&lt;i&gt;&lt;/i&gt;</font></b>&nbsp;&nbsp; 
              <i>Italico</i><br>
              <b><font color="#FFFF00">&lt;u&gt;&lt;/u&gt;</font></b> <u>sublinhado</u><i><br>
              </i><b><font color="#FFFF00">&lt;br&gt;</font>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              </b>Quebra de linha<br>
              <b><font color="#FFFF00">&lt;p&gt;&lt;/p&gt;</font> Par&aacute;grafo&nbsp;<br>
              <br>
              </b>Utilize os c&oacute;digos entre as palavras que quer modificar.Pode 
              tanto copiar e colar quanto digitar no campo ao lado. Depois clique 
              no link abaixo para ver como o texto ficou.</font></p>
        </td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"> <font face="Verdana" size="2"><a onclick="preview1()" name="prev" href="#prev">Clique 
    para ver como ficou.</a><br>
  &nbsp;<br>
  &nbsp;
  </font>
  <div align="center">
    <center>
    <table border="1" cellpadding="3" cellspacing="0" width="98%" bordercolor="#000000" bgcolor="#C0C0C0">
      <tr>
        <td width="100%" align="left" bgcolor="#CCCCCC"><div id="div1" style="width: 715; height: 221">
            &nbsp;</div></td>
      </tr>
    </table>
    </center>
  </div>
  
  <p align="center"> <br>
    <font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Se 
    voc&ecirc; deseja alterar o comunicado antes de envi&aacute;-lo para a p&aacute;gina 
    principal</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><br>
    &nbsp;<a href="#top">Clique aqui</a> <font color="#FF0000">para voltar ao 
    topo desta p&aacute;gina.</font></font>
  <p align="center"><font color="#0066CC" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Caso 
    esteja certo de que escreveu, basta clicar no bot&atilde;o abaixo.</strong> 
    </font><br>
    <input type="submit" value="Enviar" name="B1">
  </form>
<p>&nbsp;</p>

<% else
date1 = Now()
pcodi = request.form("codi1")
pname = request.form("name1")
pdate = request.form("date1")
entry1 = request.form("Entry1")
'Verifca código na tabela


' Yeah I got quotes praise the lord he he he
pcodi = Replace(request.form("codi1"),"'","''")
pname = Replace(request.form("name1"), "'", "''")
pdate = request.form("date1")
entry1 = Replace(Request.Form("Entry1"), "'", "''")


	set conn = server.createobject("adodb.connection")
  DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
    'DSNtemp=dsntemp & "DBQ=e:\home\fsp\dados\sica\comunicados.mdb"
	DSNtemp=dsntemp & "DBQ=c:\inetpub\wwwroot\dados\sica\comunicados.mdb"
    conn.Open DSNtemp

   SQLstmt = "INSERT INTO comunica (pcodi,pname,pdate,pentry)"
	SQLstmt = SQLstmt & " VALUES (" 
	SQLstmt = SQLstmt & "'" & pcodi & "',"
	SQLstmt = SQLstmt & "'" & pname & "',"
	SQLstmt = SQLstmt & "'" & pdate & "',"
	SQLstmt = SQLstmt & "'" & entry1 & "'"
	SQLstmt = SQLstmt & ")"

	Set RS = conn.execute(SQLstmt)
%>
<p>&nbsp;</p>
<p align="center"><font color="#000099" size="4" face="Verdana">Seu comunicado foi adicionado 
  com sucesso!!</font></p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center"><font face="Verdana" size="2"> [<a href="submit.asp">Adinionar 
  mais comunicados</a>]</font></p>

<%end if%>

April 2, 2004

este é o upload.asp

<HTML>
<BODY>
<% Set upl = Server.CreateObject("SoftArtisans.FileUp") %>
<% upl.Path = "c:\Documents and Settings\duzao\desktop" %>
<% upl.Save %>
<div align="center"><strong><font color="#003399" size="2" face="Verdana, Arial, Helvetica, sans-serif">Total 
  de Bytes Enviados:</font></strong> <%=upl.TotalBytes%> 
  <% Set upl = Nothing %>
  <br>
  <br>
  <strong><font color="#FF9900" size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="submit.asp" target="_self">Ok</a></font></strong> 
  <br>
</div>
</BODY>
</HTML>

dark0 · April 2, 2004

Opa.. beleza?

Bom, a principio, você deve criar uma tabela no seu banco, para armazenar o link do arquivo que sera enviado.

depois que criar a tabela, faça um insert no banco, inserindo o link!

O insert, você deve fazer ali na pagina upload.asp

Logo abaixo de "Total de Bytes enviados"

Pois, pelo que vi, essa mensagem, seria uma confirmação de envio.

então.. você coloca numa variavel o nome do arquivo que foi enviado para o servidor pelo upload, e insere o link dele no banco!

Entendeu?

Qualquer coisa, estamos aí!

abraços

fertel · April 7, 2004

Cara o teu problema é de certa forma simples mas estão complicando...

É os seguinte...

Tudo depende do compenente que será usado no upload. E a sua dificuldade não é criar propriamente o link, mas recuperar o nome do arquivo enviado por upload.

Eu particulamente não conheço este componente que você usa, mas pelo que vi, tente recuperar o nome do arquivo enviado com:

<%

ARQUIVO = upl.filename

'******ISTO RETORNARÁ O NOME DO ARQUIVO ENVIADO

LINK = "<a href=www.meusite.com/pasta/" & ARQUIVO & ">LINK DO ARQUIVO</a>"

Response.Write LINK

%>

A partir daí você libera tua imaginação, grava no bd, cria links, exclui arquivos, etc.

ok?

Espero ter entendido e ajudado.

dark0 · April 8, 2004

então fertel, eu não quis complicar a duvida dele.

Ao meu entender, a duvida era: criar um link com o nome do arquivo.

então, sugeri:

após o upload, armazena o nome do arquivo enviado numa variavel e cria o link.

assim:

http://www.site.com.br/pasta/<%=variavel_arquivo%>

assim, o link seria criado. Vale observar, se na variavel que esta armazenando o nome do arquivo, esta junto com a extensao, senao o link não funcionara!

Abraços

Victor · April 8, 2004

Salve Eduardo !!!

Se cadastre na forum para ajudar nossa comunidade a crescer mais ainda...Conto com você!!!

[]'s

Victor

Sign In

Gerar Anexo

Question

Guest - Eduardo -

Link to comment

Share on other sites

9 answers to this question

Recommended Posts

dark0

Link to comment

Share on other sites

Guest - eduardo -

Link to comment

Share on other sites

dark0

Link to comment

Share on other sites

Guest - eduardo -

Link to comment

Share on other sites

Guest - eduardo -

Link to comment

Share on other sites

dark0

Link to comment

Share on other sites

fertel

Link to comment

Share on other sites

dark0

Link to comment

Share on other sites

Victor

Link to comment

Share on other sites

Join the conversation

Forum Statistics

Browse

Activity