FileField dreamweaver

FileField dreamweaver FileField sem Developertoolbox

#1 thdesigner

Group: Membros
Posts: 7
Joined: 31-October 10

Posted 04 February 2011 - 04:50 PM

Galera estou querendo criar um formulário que tem upload, mas não quero usar o developertoolbox porque ele cria muitas páginas...
Vocês sabem algum jeito fácil de fazer isso sem o developer?

#2 xanburzum

Group: Administrador
Posts: 2077
Joined: 04-November 08

Posted 05 February 2011 - 12:27 PM

qual a linguagem você vai usar, se for ASP , tem varios componentes para UPLOAD, existem bastante códigos no repositório de códigos, até mesmo sem usar componente, com FSO, mas para arquivos muito grandes não recomendo. abaixo um exemplo com componente SmartUpload.

formulário

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload</H1>
<HR>

<FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data">
   <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE5" SIZE="50"><BR>
   <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

</BODY>
</HTML>

upload.asp

<%
'  Variáveis
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   Dim varevento
   Dim pasta
   intCount=0
   varevento = 1
        
'  Cria objeto
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload
   
   pasta = mySmartUpload.Save("upload")

   'Conecta o BD
'  *****************
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("Sample.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"


'  Abre o recordset
'  ****************
   strSQL = "SELECT FILENAME,FILE, COD_EVENTO FROM TFILES"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Seleciona o arquivo
'  ****************
   For each file In mySmartUpload.Files
   '  Verifica a existência do arquivo
   '  **********************
      If not file.IsMissing Then

      '  Adiciona os dados no BD
      '  **********************************
         oRs.AddNew
         file.FileToField oRs.Fields("FILE")
                 oRs("FILENAME") = "upload/" & file.FileName
                 oRs("COD_EVENTO") = varevento
         oRs.Update
         intCount = intCount + 1
      End If
   Next

'  Indica o número de arquivos transferidos
'  ************************************
   Response.Write(intCount & " arquivo(s) transferidos.<BR>")

'  Quebra variáveis
'  ***********
   oRs.Close
   oConn.Close
   Set oRs = Nothing 
   Set oConn = Nothing 
%>

#3 thdesigner

Group: Membros
Posts: 7
Joined: 31-October 10

Posted 05 February 2011 - 09:13 PM

xanburzum, on 05 February 2011 - 12:27 PM, said:

<HTML>
<BODY BGCOLOR="white">

<H1>aspSmartUpload</H1>
<HR>

<FORM METHOD="POST" ACTION="upload.asp" ENCTYPE="multipart/form-data">
   <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
   <INPUT TYPE="FILE" NAME="FILE5" SIZE="50"><BR>
   <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>

</BODY>
</HTML>

upload.asp

<%
'  Variáveis
'  *********
   Dim mySmartUpload
   Dim file
   Dim oConn
   Dim oRs
   Dim intCount
   Dim varevento
   Dim pasta
   intCount=0
   varevento = 1
        
'  Cria objeto
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload
   
   pasta = mySmartUpload.Save("upload")

   'Conecta o BD
'  *****************
   Set oConn = Server.CreateObject("ADODB.Connection")
   curDir = Server.MapPath("Sample.mdb")
   oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"


'  Abre o recordset
'  ****************
   strSQL = "SELECT FILENAME,FILE, COD_EVENTO FROM TFILES"

   Set oRs = Server.CreateObject("ADODB.recordset")
   Set oRs.ActiveConnection = oConn
   oRs.Source = strSQL
   oRs.LockType = 3
   oRs.Open

'  Seleciona o arquivo
'  ****************
   For each file In mySmartUpload.Files
   '  Verifica a existência do arquivo
   '  **********************
      If not file.IsMissing Then

      '  Adiciona os dados no BD
      '  **********************************
         oRs.AddNew
         file.FileToField oRs.Fields("FILE")
                 oRs("FILENAME") = "upload/" & file.FileName
                 oRs("COD_EVENTO") = varevento
         oRs.Update
         intCount = intCount + 1
      End If
   Next

'  Indica o número de arquivos transferidos
'  ************************************
   Response.Write(intCount & " arquivo(s) transferidos.<BR>")

'  Quebra variáveis
'  ***********
   oRs.Close
   oConn.Close
   Set oRs = Nothing 
   Set oConn = Nothing 
%>

Obrigado pela resposta amigo. Mas vou programar em PHP.
Alguma sugestão?

#4 xanburzum

Group: Administrador
Posts: 2077
Joined: 04-November 08

Posted 08 February 2011 - 10:58 AM

posta no fórum de php

#5 thdesigner

Group: Membros
Posts: 7
Joined: 31-October 10

Posted 10 February 2011 - 08:33 PM

mas eu quero fazer pelo dreamweaver po se eu for no forum php o povo vai me dizer um monte de codigos kk

#6 xanburzum

Group: Administrador
Posts: 2077
Joined: 04-November 08

Posted 11 February 2011 - 10:14 PM

mas você não falou que quer programar em php, e para fazer isso no Dreamweaver, vai precisar usar alguma linguagem, tipo ASP, php, cold fusion

#7 Marcelo_2

Group: Membros
Posts: 60
Joined: 07-July 07

Posted 18 February 2011 - 10:04 PM

ahe.. só o form??

aciona a barra forms - arrasta um botão "file field" - serão introduzidos 1 cx d texto junto c/ botão "browse" - Não tente traduzir o palavra "browse" - isso vai rolar automaticamente no browser..
agora arrasta 1 botão "submit" (p/ enviar).. c quiser insere outro p/ "reset" o form..

Configuração do form: metodo post, action = arquivo q vai fazer o upload.
se liga ahe:
1 - o NOME da cx d texto tem q ser o MESMO utilizado no script d upload, senão da zebra;
2 - em Enctype (propriedads do form) deverá estar "multipart/form-data".

Agora.. d boa.. form p/ isso tem 1 kctada na net, kra.. só copiar e colar..

Share this topic:

Page 1 of 1

You cannot start a new topic
You cannot reply to this topic

Topic	Forum	Started By	Stats	Last Post Info
Estratégia de buzz sem gastar nada! vídeo famoso do you tube é invadido	Publicidade e Propaganda	marinacelta	0 Replies 1166 Views	22 September 2006 - 05:39 PM By: marinacelta
Universidade dos EUA exige que alunos usem iPhone ou iPod	Notícias	Notícias	0 Replies 207 Views	11 May 2009 - 07:48 PM By: Notícias
Windows instala arquivos sem permissão dos usuário	Notícias	Notícias	0 Replies 376 Views	17 September 2007 - 12:57 PM By: Notícias
Maior loja da Apple na América Latina será inaugurada na semana que vem em SP	Notícias	Notícias	0 Replies 67 Views	20 October 2010 - 04:24 PM By: Notícias
iTunes vende álbuns de John Lennon sem proteção anticópia	Notícias	Notícias	0 Replies 190 Views	14 August 2007 - 04:44 PM By: Notícias
Brasília terá acesso gratuito à Internet sem fio WNews	Notícias	TiTi Celestino	0 Replies 775 Views	17 August 2006 - 08:34 PM By: TiTi Celestino
Top 10: As notícias mais lidas da semana	Notícias	Notícias	0 Replies 80 Views	14 August 2010 - 09:30 AM By: Notícias
Aplicativo ajuda desempregados a procurar trabalho	Notícias	Notícias	0 Replies 46 Views	12 December 2011 - 11:23 AM By: Notícias

..:: MX Studio Fóruns ::..: FileField dreamweaver - ..:: MX Studio Fóruns ::..

Publicidade

ATENÇÃO