Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ThiarthuR

Upload de imagens e Lightbox

Por , em ASP Clássico

Recommended Posts

ThiarthuR    0

ThiarthuR
Postado

Gente

Eu num tenho muitas idéias e nem muito conhecimento de ASP

mais tentei modificar um sistema de uploade consegui !

Ela faz upload e tbm salva o caminho no bando de dados

mais ela pega o nome do arquivo e salva

eu queria q fizesse upload com nomes foto1,2,3,4,5,6,7

Sabe?

Porque qm vai adiministrar o site deve ter muitas fotos com nomes iguais

Dai vem o problema.

Codigo de Upload:

<%
	if session("logou")=true then
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META NAME="author" CONTENT="Yukatan">
<META NAME="description" CONTENT="Yukan - Sonorização e eventos, Seriedade e Qualidade">
<META NAME="keywords" CONTENT="Sonorização, Eventos, Yukatan, Som, Luz, Iluminação, Fotos">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>:: Yukatan :: - Sonorização e Eventos</title>
</head>
<style type="text/css">
<!--
@import url("style.css");
-->
</style>
<body>
<div id="tudo"> 
<div id="topo"> </div>    
<div id="menuvert">
<ul>
<li><a href="index.html">Home</a></li>   
<li><a href="empresa.asp">Empresa</a></li>
<li><a href="fotos.asp">Galeria de Fotos</a></li>
<li><a href="equipamentos.html">Equipamentos</a></li>
<li><a href="servicos.asp">Serviços</a></li>
<li><a href="contato.asp">Contato</a></li>
<li><a href="email.asp">Orçamentos</a></li>
<li><a href="parceiros.asp">Parceiros</a></li>
</ul>
</div> 

<div id="menu"> 
<ul> 
<b>Equipamentos</b>
<li><a href="sonorizacao.asp">Sonorização</a></li> 
<li><a href="iluminacao.asp">Iluminação</a></li> 
<li><a href="video.asp">Projeção de Video</a></li>
<b>Eventos</b>
<li><a href="fotos.asp">Fotos</a></li>
<li><a href="servicos.asp">Serviços</a></li>  
<b>Contato</b>
<li><a href="contato.asp">Fale Conosco</a></li> 
<li><a href="email.asp">Formulário de <br />E-mail</a></li>  
</ul> 
</div> 
<%@ Language=VBScript %>
<%
set cnn=server.createobject("adodb.connection")
cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("bd") & "\dados.mdb"
 set rs=server.createobject("adodb.recordset")
rs.open "fotos", cnn, 3, 3

Dim Contador, Tamanho
Dim ConteudoBinario, ConteudoTexto
Dim Delimitador, Posicao1, Posicao2
Dim ArquivoNome, ArquivoConteudo, PastaDestino
Dim objFSO, objArquivo

PastaDestino = Server.MapPath("fotos/galeria")
localnome = "fotos/galeria"

'Determina o tamanho do conteúdo
Tamanho = Request.TotalBytes

'Obtém o conteúdo no formato binário
ConteudoBinario = Request.BinaryRead(Tamanho)

'Transforma o conteúdo binário em string
For Contador = 1 To Tamanho
  ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
Next 

'Determina o delimitador de campos
Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)

'Percorre a String procurando os campos
'identifica os arquivo e grava no disco
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitar)

do while True
  ArquivoNome = ""
  Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=")
  if Posicao1 = 0 then
    exit do
  else
   'Determina o nome do arquivo
   Posicao1 = Posicao1 + 10
   Posicao2 = InStr(Posicao1, ConteudoTexto, """")
   For contador = (Posicao2 - 1) to Posicao1 step -1
    if Mid(ConteudoTexto, Contador, 1) <> "\" then '"
      ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome
    else
      exit for
    end if
   next
	
   'Determina o conteúdo do arquivo
   Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4
   Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2
   ArquivoConteudo = Mid(ConteudoTexto, Posicao1, (Posicao2 - Posicao1 + 1))
		
   'Grava o arquivo
   if ArquivoNome <> "" then
     Set objArquivo = objFSO.CreateTextFile(PastaDestino & "/" & ArquivoNome, true)
     objArquivo.WriteLine ArquivoConteudo
     objArquivo.Close	
	 rs.addnew
	 rs("caminho")= localnome & "/" & ArquivoNome
	 rs.update
	 rs.close
     Response.write "Arquivo  gravado com sucesso!<br><br><a href='uploadfotos.asp'>Enviar Mais</a>"
     Set objArquivo = nothing
   end if
end if
Loop
Set objFSO = nothing
%>
<div id="publicidade"> 
             
</div> 

<div id="rodape">® Todos os direitos reservados | <a href="http://www.yukatan.com.br">Yukatan Sonorização e Eventos </a></div> 
</div>
</body>
</html>
<%
else 
response.Redirect("formlogin.asp")
end if
%>
e Tambem tenho um problema !

Coloquei o Lightbox nas exebição das imagens e aparecem os erros:

 

Mensagem: 'Builder' não está definido

Linha: 132

Caractere: 3

Código: 0

URI: http://localhost/js/lightbox.js

 

 

Mensagem: 'null' é nulo ou não é um objeto

Linha: 209

Caractere: 9

Código: 0

URI: http://localhost/js/lightbox.js

 

 

Mensagem: 'null' é nulo ou não é um objeto

Linha: 209

Caractere: 9

Código: 0

URI: http://localhost/js/lightbox.js

 

 

Mensagem: 'null' é nulo ou não é um objeto

Linha: 209

Caractere: 9

Código: 0

URI: http://localhost/js/lightbox.js

 

 

Mensagem: 'null' é nulo ou não é um objeto

Linha: 209

Caractere: 9

Código: 0

URI: http://localhost/js/lightbox.js

 

me ajudem por favor!

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

antes de salvar você pode usar uma funcaun para gravar o nome desejado...

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito