ASP Samrt Upload - Funcionando

[williamds 0]

Ola a todos.

Este codigo que eu estou passando esta funcionando legal e faz as seguintes coisas

Grava uma imagem em uma pasta especifica

Renomeia ela para que não fique com o mesmo nome de outra imagem

e Grava tudo no Banco de dados.

 

Sofri mas consegui terminar

 

Pagina do Formulario

 

'------------------------------------------------------------------------------------------------

<form action="cadastrar.asp" method="post" enctype="multipart/form-data">

<table width="519" border="0" cellspacing="0" cellpadding="0">

<tr>

<td colspan="2" align="center"><span class="style1">Cadastro de Fotos</span></td>

</tr>

<tr>

<td width="198" height="22" align="right">Tema para a foto: </td>

<td width="321" align="left"><input name="Nome" type="text" size="50" maxlength="50"></td>

</tr>

<tr>

<td height="22" align="right">Foto Grande:</td>

<td align="left"><input name="FotoG" type="file" ></td>

</tr>

<tr>

<td height="22" align="right">Foto Pequena:</td>

<td align="left"><input name="FotoP" type="file"td>

</tr>

<tr>

<td height="25" colspan="2" align="center"><input type="submit" value="Cadastrar">

 

<input type="reset" value="Limpar"></td>

</tr>

</table>

</form>

'------------------------------------------------------------------------------------------------

 

cadastrar.asp

'------------------------------------------------------------------------------------------------

<%

dim user, renome, RenomeArquivoG, RenomeArquivoP, ProdData, erro, UploadImagem

 

' Elabora um nome para a imagem usando o ID do usuario, a data e a hora

' e usando um replace eu tiro os caracteres especiais que não podem ser salvos no BD

user=Session("Usuario")

renome=user&"_"&date&"_"&time

renome=replace(renome, ".", "")

renome=replace(renome, ":", "")

renome=replace(renome, "/", "")

renome=replace(renome, "*", "")

renome=replace(renome, "?", "")

renome=replace(renome, "\", "")

renome=replace(renome, ",", "")

renome=replace(renome, " ", "")

 

RenomeArquivoG = renome &"G.jpg"

RenomeArquivoP = renome &"P.jpg"

 

'Upload Usando o ASP SMART UPLOAD -------------------------------------------

 

On Error Resume Next

Set UploadImagem = Server.CreateObject("aspSmartUpload.SmartUpload") ' Cria-se o objeto

UploadImagem.MaxFileSize = 30000 ' Tamanho maximo de cada arquivo, pode-se almentar

UploadImagem.AllowedFilesList = "jpg" ' Eu quero somente imagens jpg

 

' Caso de algum erro ----------------------------

if err.number <> 0 then

erro = "Falha no Upload<br><br>"

erro = erro & "Número do Erro: " & Err.number & "<br>" & Err.Description & "<br>" & Err.Source

response.Write erro

End if

 

' Local onde as imagens ficarão

local = Server.MapPath("\Fotos\")

UploadImagem.Upload

 

' Gravas as figuras na pasta indicada acima e renomeia conforme o script do começo

UploadImagem.files.item(1).saveas (local &"\"& RenomeArquivoG)

UploadImagem.files.item(2).saveas (local &"\"& RenomeArquivoP)

 

 

' Conecta ao Banco de Dados

 

Set oConn = Server.CreateObject("ADODB.Connection")

curDir = Server.MapPath("../BancoDados/fotos.mdb")

oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

 

' Abre o RECORDSET

'************************************************************************

strSQL = "SELECT * FROM TbFotos"

 

Set oRs = Server.CreateObject("ADODB.recordset")

Set oRs.ActiveConnection = oConn

oRs.Source = strSQL

oRs.LockType = 3

oRs.Open

 

' Grava tudo no Banco de dados

oRs.AddNew

oRs("Nome") = UploadImagem.form("Nome")

oRs("Usuario") = user

oRs("ProdFotoG") = RenomeArquivoG

oRs("ProdFotoP") = RenomeArquivoP

oRs.Update

 

Set UploadImagem = Nothing

response.Redirect("sucesso.asp")

%>

'------------------------------------------------------------------------------------------------

 

É isso ai pessoal, aqui esta funcionado beleza

qualquer duvida não me procure

brincadeira

qualquer duvida é so falar

[valdo 0]

Ola a todos.

Este codigo que eu estou passando esta funcionando legal e faz as seguintes coisas

Grava uma imagem em uma pasta especifica

Renomeia ela para que não fique com o mesmo nome de outra imagem

e Grava tudo no Banco de dados.

 

Sofri mas consegui terminar

 

Pagina do Formulario

 

'------------------------------------------------------------------------------------------------

<form action="cadastrar.asp" method="post" enctype="multipart/form-data">

<table width="519" border="0" cellspacing="0" cellpadding="0">

<tr>

<td colspan="2" align="center"><span class="style1">Cadastro de Fotos</span></td>

</tr>

<tr>

<td width="198" height="22" align="right">Tema para a foto: </td>

<td width="321" align="left"><input name="Nome" type="text" size="50" maxlength="50"></td>

</tr>

<tr>

<td height="22" align="right">Foto Grande:</td>

<td align="left"><input name="FotoG" type="file" ></td>

</tr>

<tr>

<td height="22" align="right">Foto Pequena:</td>

<td align="left"><input name="FotoP" type="file"td>

</tr>

<tr>

<td height="25" colspan="2" align="center"><input type="submit" value="Cadastrar">

 

<input type="reset" value="Limpar"></td>

</tr>

</table>

</form>

'------------------------------------------------------------------------------------------------

 

cadastrar.asp

'------------------------------------------------------------------------------------------------

<%

dim user, renome, RenomeArquivoG, RenomeArquivoP, ProdData, erro, UploadImagem

 

' Elabora um nome para a imagem usando o ID do usuario, a data e a hora

' e usando um replace eu tiro os caracteres especiais que não podem ser salvos no BD

user=Session("Usuario")

renome=user&"_"&date&"_"&time

renome=replace(renome, ".", "")

renome=replace(renome, ":", "")

renome=replace(renome, "/", "")

renome=replace(renome, "*", "")

renome=replace(renome, "?", "")

renome=replace(renome, "\", "")

renome=replace(renome, ",", "")

renome=replace(renome, " ", "")

 

RenomeArquivoG = renome &"G.jpg"

RenomeArquivoP = renome &"P.jpg"

 

'Upload Usando o ASP SMART UPLOAD -------------------------------------------

 

On Error Resume Next

Set UploadImagem = Server.CreateObject("aspSmartUpload.SmartUpload") ' Cria-se o objeto

UploadImagem.MaxFileSize = 30000 ' Tamanho maximo de cada arquivo, pode-se almentar

UploadImagem.AllowedFilesList = "jpg" ' Eu quero somente imagens jpg

 

' Caso de algum erro ----------------------------

if err.number <> 0 then

erro = "Falha no Upload<br><br>"

erro = erro & "Número do Erro: " & Err.number & "<br>" & Err.Description & "<br>" & Err.Source

response.Write erro

End if

 

' Local onde as imagens ficarão

local = Server.MapPath("\Fotos\")

UploadImagem.Upload

 

' Gravas as figuras na pasta indicada acima e renomeia conforme o script do começo

UploadImagem.files.item(1).saveas (local &"\"& RenomeArquivoG)

UploadImagem.files.item(2).saveas (local &"\"& RenomeArquivoP)

 

 

' Conecta ao Banco de Dados

 

Set oConn = Server.CreateObject("ADODB.Connection")

curDir = Server.MapPath("../BancoDados/fotos.mdb")

oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

 

' Abre o RECORDSET

'************************************************************************

strSQL = "SELECT * FROM TbFotos"

 

Set oRs = Server.CreateObject("ADODB.recordset")

Set oRs.ActiveConnection = oConn

oRs.Source = strSQL

oRs.LockType = 3

oRs.Open

 

' Grava tudo no Banco de dados

oRs.AddNew

oRs("Nome") = UploadImagem.form("Nome")

oRs("Usuario") = user

oRs("ProdFotoG") = RenomeArquivoG

oRs("ProdFotoP") = RenomeArquivoP

oRs.Update

 

Set UploadImagem = Nothing

response.Redirect("sucesso.asp")

%>

'------------------------------------------------------------------------------------------------

 

É isso ai pessoal, aqui esta funcionado beleza

qualquer duvida não me procure

brincadeira

qualquer duvida é so falar

 

Ola a todos.

Este codigo que eu estou passando esta funcionando legal e faz as seguintes coisas

Grava uma imagem em uma pasta especifica

Renomeia ela para que não fique com o mesmo nome de outra imagem

e Grava tudo no Banco de dados.

 

Sofri mas consegui terminar

 

Pagina do Formulario

 

'------------------------------------------------------------------------------------------------

<form action="cadastrar.asp" method="post" enctype="multipart/form-data">

<table width="519" border="0" cellspacing="0" cellpadding="0">

<tr>

<td colspan="2" align="center"><span class="style1">Cadastro de Fotos</span></td>

</tr>

<tr>

<td width="198" height="22" align="right">Tema para a foto: </td>

<td width="321" align="left"><input name="Nome" type="text" size="50" maxlength="50"></td>

</tr>

<tr>

<td height="22" align="right">Foto Grande:</td>

<td align="left"><input name="FotoG" type="file" ></td>

</tr>

<tr>

<td height="22" align="right">Foto Pequena:</td>

<td align="left"><input name="FotoP" type="file"td>

</tr>

<tr>

<td height="25" colspan="2" align="center"><input type="submit" value="Cadastrar">

 

<input type="reset" value="Limpar"></td>

</tr>

</table>

</form>

'------------------------------------------------------------------------------------------------

 

cadastrar.asp

'------------------------------------------------------------------------------------------------

<%

dim user, renome, RenomeArquivoG, RenomeArquivoP, ProdData, erro, UploadImagem

 

' Elabora um nome para a imagem usando o ID do usuario, a data e a hora

' e usando um replace eu tiro os caracteres especiais que não podem ser salvos no BD

user=Session("Usuario")

renome=user&"_"&date&"_"&time

renome=replace(renome, ".", "")

renome=replace(renome, ":", "")

renome=replace(renome, "/", "")

renome=replace(renome, "*", "")

renome=replace(renome, "?", "")

renome=replace(renome, "\", "")

renome=replace(renome, ",", "")

renome=replace(renome, " ", "")

 

RenomeArquivoG = renome &"G.jpg"

RenomeArquivoP = renome &"P.jpg"

 

'Upload Usando o ASP SMART UPLOAD -------------------------------------------

 

On Error Resume Next

Set UploadImagem = Server.CreateObject("aspSmartUpload.SmartUpload") ' Cria-se o objeto

UploadImagem.MaxFileSize = 30000 ' Tamanho maximo de cada arquivo, pode-se almentar

UploadImagem.AllowedFilesList = "jpg" ' Eu quero somente imagens jpg

 

' Caso de algum erro ----------------------------

if err.number <> 0 then

erro = "Falha no Upload<br><br>"

erro = erro & "Número do Erro: " & Err.number & "<br>" & Err.Description & "<br>" & Err.Source

response.Write erro

End if

 

' Local onde as imagens ficarão

local = Server.MapPath("\Fotos\")

UploadImagem.Upload

 

' Gravas as figuras na pasta indicada acima e renomeia conforme o script do começo

UploadImagem.files.item(1).saveas (local &"\"& RenomeArquivoG)

UploadImagem.files.item(2).saveas (local &"\"& RenomeArquivoP)

 

 

' Conecta ao Banco de Dados

 

Set oConn = Server.CreateObject("ADODB.Connection")

curDir = Server.MapPath("../BancoDados/fotos.mdb")

oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

 

' Abre o RECORDSET

'************************************************************************

strSQL = "SELECT * FROM TbFotos"

 

Set oRs = Server.CreateObject("ADODB.recordset")

Set oRs.ActiveConnection = oConn

oRs.Source = strSQL

oRs.LockType = 3

oRs.Open

 

' Grava tudo no Banco de dados

oRs.AddNew

oRs("Nome") = UploadImagem.form("Nome")

oRs("Usuario") = user

oRs("ProdFotoG") = RenomeArquivoG

oRs("ProdFotoP") = RenomeArquivoP

oRs.Update

 

Set UploadImagem = Nothing

response.Redirect("sucesso.asp")

%>

'------------------------------------------------------------------------------------------------

 

É isso ai pessoal, aqui esta funcionado beleza

qualquer duvida não me procure

brincadeira

qualquer duvida é so falar