Inserir numa pasta acima

[Carlos Moreira 0]

Galera é o seguinte esse sistema de upload abaixo ta funcionando td certinho mas ha um porem.

 

Eu não consigo por exemplo gravar as imagens numa pasta acima.

 

EX: quando faço o sistema administrativo eu sempre coloco www.dominio.com.br/controle

 

mas com esse sistema abaixo nao consigo pq quando mando recuperar as imagens num select ele não le as imagens pq as imagens estão no mesmo diretorio.

 

entao nessa casa teve de ficar td no mesmo diretorio, não consigo colocar no dominio/controle

 

Entenderam??

 

se não me avisem pra eu poder explicar melhor

 

 

<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------categoria = UploadRequest.Item("categoria").Item("Value")medida = UploadRequest.Item("medida").Item("Value")referencia = UploadRequest.Item("referencia").Item("Value")preco = UploadRequest.Item("preco").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType") 'arquivo 1tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType") 'arquivo 2' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName") ' caminho 1 caminho_foto2 = UploadRequest.Item("foto2").Item("FileName") ' caminho 2' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))nome_foto = Right(nome_foto, len(nome_foto)-Instr(nome_foto,".")+1)Novo_nome = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_1"  'novo nome do arquivo (foto)nome_foto = novo_nome&nome_fotonome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))nome_foto2 = Right(nome_foto2, len(nome_foto2)-Instr(nome_foto2,".")+1)Novo_nome2 = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_2"  'novo nome do arquivo (foto2)nome_foto2 = novo_nome2&nome_foto2' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")foto2 = UploadRequest.Item("foto2").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/quadros")nome_foto = "/"&nome_fotonome_foto2 = "/"&nome_foto2' pasta + nome dos arquivoscfoto = "imagens/quadros" + nome_fotocfoto2 = "imagens/quadros" + nome_foto2' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet 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)))NextMyFile.Closeend ifif foto2 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)For i = 1 to LenB(foto2)MyFile.Write chr(AscB(MidB(foto2,i,1)))NextMyFile.Closeend if' cadastra os dados no banco de dadossql = "Insert into quadros (categoria,medida,referencia,preco,foto,foto2) values ('"& categoria &"', '"& medida &"', '"& referencia &"', '"& preco &"', '"& cfoto &"', '"& cfoto2 &"')"Conn.Execute(sql)%>

Por favor, utilize as tags code para inserir seu codigo na pagina... fica melhor para ler.Obrigado LucasBr

[Pachevisk 3]

cara não deu pra entende muito não.....qual o diretorio queis salva as fotos??e como ta salvando no bd??explica melhor....

[Carlos Moreira 0]

Olha é o seguinte:Ele ta salavando assim:imagens/quadros/foto1.jpg_________________________________é este o problema ele salvando como esta acima eu sou obrigado a colocar o adminna raiz do site e não como tinha dito no www.dominio.com.br/controleentendeu???

[Pachevisk 3]

tem sim fais assim ó ' pasta onde as imagens serao guardadaspasta = Server.MapPath("controle/")nome_foto = "/"&nome_fotonome_foto2 = "/"&nome_foto2' pasta + nome dos arquivoscfoto = "controle" + nome_fotocfoto2 = "controle" + nome_foto2ai ele vai salva a foto na pasta controle e salva no bd como controle/tuafoto.jpgé assim que você que?