upload

[donato 0]

Galera, Preciso de um sitema de upload simplessó para enviar imagens para alteração no site,Achei uns ak, mais muito complexo, naum preciso disso tudopreciso bem simples, só puxar do meu pc e trocar a que tem no banco de dados ObrigadoMarcelo

[asp.net 0]

fomulario para cadastro:::::::::::::::::::::::::::::::::::::::::::<%id_carro_foto=Trim(request.QueryString("id_carro"))'response.Write(id_carro_foto)'response.End()%><form action="cad_foto.asp" method="post" enctype="multipart/form-data"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font color="#FF0000" size="2" face="Tahoma, Verdana, Arial Unicode MS"><strong>Caso possua uma foto do veículo e deseje colocá-la no anúncio favor clicar em procurar para selecionar a imagem referente a este veículo.</strong></font></td> <td> </td> </tr> <tr> <td><input name="foto" type="file"> </td> <td> </td> </tr> <tr> <td></td> <td><input type="hidden" name="idcarrofoto" value="<%=id_carro_foto%>"></td> </tr> <tr> <td><input type="submit" name="Submit" value="Cadastrar Foto">      <font color="#000000" size="2" face="Tahoma, Verdana, Arial Unicode MS"><a href="indexloja.asp">Não cadastrar foto.</a></font><font color="#000000" size="2"><a href="indexloja.asp"></a></font></td> <td> </td> </tr> </table> </form>upload do arquivo:::::::::::::::::::::::::::::::::::::::::::::::::<%Server.ScriptTimeOut=100000%><!--#include file="conexao.asp"--> <%Set MeuUpload=Server.CreateObject("aspSmartUpload.SmartUpload")MeuUpload.AllowedFilesList="jpg,gif"MeuUpload.DeniedFilesList = "bmp,tif,cdr,png"MeuUpload.MaxFileSize = 100000MeuUpload.TotalMaxFileSize =1000000'nomefoto=MeuUpload.Files.Foto.NameMeuUpload.Uploadnomecarro=MeuUpload.form("idcarrofoto")'IntCount = MeuUpload.Save("d:\imagens\")IntCount = MeuUpload.Save("d:\web\valeuboi\htdocs\classificados\fotos\")IF Err Then response.Write("<B>Ocorreu um erro</>::" &Err.Description)else For Each file In MeuUpload.Files nomefoto=File.FileName next response.redirect("cadfotobanco.asp?idcarro="&nomecarro&"&idfoto="&nomefoto&"")end if%>cadastramento no banco de dados:::::::::::::::::::::::::::::::::::::::::::<!--#include file="conexao.asp"--><%idcarrofoto=Request.QueryString("idcarro")idfotocarro=Request.QueryString("idfoto")'response.Write(idcarrofoto)&"<BR>"'response.Write(idfotocarro)'response.End() sql_buscacarrofoto="Select id, foto from veiculo where id="&idcarrofoto ObjConCarros.Open sql_buscacarrofoto ObjconCarros("foto")="fotos\"&idfotocarro ObjConCarros.Update ObjConCarros.Closeresponse.redirect("indexloja.asp")%>Este script eu utilizo a bastante tempo justamente para enviar fotografias para o servidor e armazenar no banco de dados. Qualquer dúvida pvt.

[donato 0]

Valeu...

[donato 0]

Cara você tem algum exemplo que use banco de dados access?Sou meio leigo ainda!!fiquei perdido quanto a troca dos textosValeu

[br1 0]

presiso integrar esse sistema rodar um um sistama de agenda que quando eu fazer upload ela grava no id do cadastro

 

http://www.portalcatalao.com.br/sites/catalao/1

 

 

algem pode me ajudar

[Neco 0]

Donato...

 

pelo menos nesse exemplo que o asp.net passou é indiferente ser sql ou access.

 

br1...não sei se é isso que você quer, mas abaixo vou por um codigo que usei pra um sistema de veiculos.

 

a linha mais importante pra alteração vou deixar em negrito...

ele faz apenas o select onde for o ID selecionado e depois faz a alteração...

 

<!-- #include file="../includes/conexao.asp"-->

 

<%

Dim mySmartUpload

Dim intCount

Dim sql3

Dim oRs

 

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

 

' Only allow txt or htm files

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

mySmartUpload.AllowedFilesList = "jpg,jpeg,gif"

 

 

' DeniedFilesList can also be used :

' Allow all files except exe, bat and asp

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

mySmartUpload.DeniedFilesList = "exe,bat,asp,htm,php.txt"

 

intCount = mySmartUpload.Save("../images")

 

cod = mySmartUpload.form("cod")

codigo = mySmartUpload.form("codigo")

 

sql3 = "select * from LAP005TB_VEICULOS where PKNI_005CODVEICULO='" & codigo & "'"

oRs.open sql3,objconn,3,3

 

oRs.AddNew

 

'Campos de Upload

 

For each item In mySmartUpload.Files

 

oRs("ATSV_005FOTO1") = mySmartUpload.Files.item(1).FileName

oRs("ATSV_005FOTO2") = mySmartUpload.Files.item(2).FileName

oRs("ATSV_005FOTO3") = mySmartUpload.Files.item(3).FileName

oRs("ATSV_005FOTO4") = mySmartUpload.Files.item(4).FileName

oRs("ATSV_005FOTO5") = mySmartUpload.Files.item(5).FileName

oRs("ATSV_005FOTO6") = mySmartUpload.Files.item(6).FileName

oRs("ATSV_005FOTO7") = mySmartUpload.Files.item(7).FileName

 

 

intCount = intCount + 1

Next

 

'Campos normais

 

For each item In mySmartUpload.Form

For each value In mySmartUpload.Form(item)

oRs("FKNI_005AGENCIA") = mySmartUpload.form("agencia")

oRs("FKNI_005MARCA") = "" & variavel & ""

oRs("FKNI_005MODELO") = mySmartUpload.form("modelo")

oRs("ATSV_005VALOR") = mySmartUpload.form("valor")

oRs("ATSF_005STATUS") = mySmartUpload.form("classificacao")

oRs("ATSV_005COR") = mySmartUpload.form("cor")

oRs("ATNI_005ANO") = mySmartUpload.form("ano")

oRs("ATSV_005OPCIONAIS") = mySmartUpload.form("opcionais")

oRs("ATSV_005OBS") = mySmartUpload.form("obs")

oRs("ATSV_005KM") = mySmartUpload.form("km")

oRs("ATSV_005COMBS") = mySmartUpload.form("combustivel")

Next

Next

 

oRs.Update

 

response.Redirect("veiculos.asp?cod=" & cod & "")

%>

 

acho que ficou meio confuso, mas tente ai

 

Abraços

[br1 0]

o segundo codigo eu renomeio p/ cad_foto.asp e o terceiro para que serve?? que nome eu do a ele...

 

 

Obrigado Aguardo respostas.

 

 

Att

Bruno

[Neco 0]

Nao entendi a pergunta :huh: