[Resolvido] da pasta pro banco (imagens)

[a.crow 0]

Esse código pega todas as imagens da pasta que você indica e grava no banco de dados, antes ele verifica se o arquivo já não existe no banco.

 

 

Arquivo 1: Selecao.asp

<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">AQUI VOCÊ SÓ DIGITA O CAMINHO PARA A PASTA DAS IMAGENS EXEMPLO, SE O ARQUIVO ESTÁ NA PASTA ".\IMAGENS" E QUER PEGAR DE ".\IMAGENS\FOTOS\TODAS" VOCÊ DIGITA "IMAGENS\FOTOS\TODAS\" , OU SEJA, VOCÊ DIGITA TODO O CAMINHO DA RAIZ ATÉ O DIRETÓRIO ONDE ESTÃO AS IMAGENS.</font></strong> <form name="form1" method="post" action="grava.asp"><input name="pasta" type="text"><br><input name="envia" type="submit"></form>

Arquivo 2: grava.asp

<%'SUA CONEXÃOSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'VÊ QUE PASTA Épasta = "/"&request("pasta")'CRIA O OBJETOSet fs = Server.CreateObject("Scripting.FileSystemObject")Set Lista = fs.GetFolder(server.MapPath(pasta))'PARA CADA ARQUIVI...For each file in Lista.Files'RECEBE E LIMPA O NOME	nome_todo = file.name	exte = mid(nome_todo, instr(nome_todo,".")+1, len(nome_todo))	nome = mid(nome_todo, 1, instr(nome_todo,".")-1)	if exte = "jpg" or exte = "gif" or exte = "png" Then'VERIFICA SE O ARQUIVO JÁ EXISTE  StrSql = "select * from fotos where nome = '"&nome_todo&"'"  Set Objrs = ObjConn.Execute(strsql) 	 IF Objrs.Eof Then'SE NÃO EXISTE, GRAVA NO BANCO    StrSql = "Insert Into fotos (nome, pasta) values ( '"&nome_todo&"', '"&pasta&"')"    ObjConn.Execute(strsql) 	 End if	End ifNext'DESTRÓI A CONEXÃOObjConn.CloseSet objConn =  Nothing%>

Arquivo 3: ver.asp

<%'SUA CONEXÃOSet objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"'SELECIONA OS ARQUIVOSStrsql = "select * from fotos"set Objrs = ObjConn.Execute(strsql)Do while not Objrs.Eof'LISTA AS IMAGENS%>	<img src="<%=Objrs("pasta")%>\<%=Objrs("nome")%>"><br><%Objrs.MoveNextLoopObjConn.CloseSet objConn =  Nothing%>

LEMBRAR de sempre corrigir o caminho pro banco de dados e o nome das tabelas, também dá pra mudar isso para arquivos de outras extensões, é só mudar no if.