Ir para conteúdo
Fórum Script Brasil
  • 0

ASSOCIAR ULOAD DE VÁRIAS IMAGENS NO TEXTO

Aldan Nunes

Perguntado por Aldan Nunes,

 Share

Pergunta

Aldan Nunes

Aldan Nunes

Postado
Postado

Galera é o seguinte hoje tem um sisteminha onde eu tenho q limitar a quantidade de imagens que quero ter no gerenciador com isso se caso um cliente queira aumentar a quantidade de fotos no gerenciador eu terei que editar ele manuamente e aumentar no código cada foto a ser inserida. Exemplo: se eu criar um site onde podera ser exibido apenas 50 fotos no meu gerenciador irei fazer manualmente para 50 fotos apenas se futuramente o cliente precisar de 60 irei ter q mecher na codificação apra que funcione com mais fotos.

Bom eu gostaria de associar um upload de várias imagens e não precisar limitar a quantidade de fotos a serem inseridas. Tipo se fiz o upload de 100 fotos essas fotos entram no gerenciador e são mostrada naquele evento que foram inseridas. hj uso dessa forma aqui que segue abaixo.

<%
If Not IsEmpty(Request.Form) Then
  Set objCon = Server.CreateObject("ADODB.Connection")
  objCon.Open strCon

  campo_duplicado = false
  campo_msg = ""

  If campo_duplicado = false Then
    Set objRS= Server.CreateObject("ADODB.Recordset")
    objRS.CursorLocation = 3
    objRS.CursorType = 0
    objRS.LockType = 3
    strQ = "SELECT * FROM conteudo Where 1 <> 1"
    objRS.Open strQ, objCon, , , &H0001
    objRS.Addnew()
    If objRS.Fields("id").properties("IsAutoIncrement") = False Then
      objRS("id") = Trim(Request.Form("id"))
    End If
    If objRS.Fields("Categoria").properties("IsAutoIncrement") = False Then
      objRS("Categoria") = Trim(Request.Form("Categoria"))
    End If
    If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then
      objRS("Nome") = Trim(Request.Form("Nome"))
    End If
    If objRS.Fields("Descricao").properties("IsAutoIncrement") = False Then
      objRS("Descricao") = Trim(Request.Form("Descricao"))
    End If
for i=1 to 80
    If objRS.Fields("Foto"&i).properties("IsAutoIncrement") = False Then
      objRS("Foto"&i) = Trim(Request.Form("Foto"&i))
    End If
next
    objRS.Update
    objRS.Close
    Set objRS = Nothing
%>

<BR><B>Registro salvo</B><BR>O registro foi cadastrado 
com sucesso.<BR><BR>

<%
  Else
%>

    <BR><B>Atenção!</B><BR><BR>
    O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela.
    <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR>

<%
  End If

  objCon.Close
  Set objCon = Nothing
Else
  Set objCon = Server.CreateObject("ADODB.Connection")
  objCon.Open strCon

  Set objRS= Server.CreateObject("ADODB.Recordset")
  objRS.CursorLocation = 2
  objRS.CursorType = 0
  objRS.LockType = 3
  strQ = "SELECT * FROM conteudo Where 1 <> 1"
  objRS.Open strQ, objCon, , , &H0001
%>

<B>Incluir um novo registro</B><BR>Preencha corretamente 
os dados abaixo:<BR>
<form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return verifica_form(this);">
<TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario>
  <TR class=titulo_campos><TD>id<br>
<%If objRS.Fields("id").properties("IsAutoIncrement") = False Then%>
<INPUT style="width=50" type="text" name="id" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>
<%
Else
  Response.Write "<B>(Automático)</B>"
End If
%>
  </TD></TR>
  <TR class=titulo_campos><TD>Categoria<BR>
    <SELECT style="width=350" name="Categoria" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario>
      <OPTION value=""></OPTION>

<%
  Set objRS2 = Server.CreateObject("ADODB.Recordset")
  objRS2.CursorLocation = 3
  objRS2.CursorType = 3
  objRS2.LockType = 1
  strQ = "SELECT NomeCat FROM categorias ORDER BY NomeCat ASC"
  objRS2.Open strQ, objCon, , , &H0001
  If Not objRS2.EOF Then
    While Not objRS2.EOF
      If Trim(objRS2.Fields.Item("NomeCat").Value) <> "" Then
        Response.Write "      <OPTION value='" & (objRS2.Fields.Item("NomeCat").Value) & "'>" & (objRS2.Fields.Item("NomeCat").Value) & "</OPTION>"
      End If
      objRS2.MoveNext
    Wend
  End If
  Response.Write("ok")
%>

    </SELECT>
  </TD></TR>
  <TR class=titulo_campos><TD>Nome<br>
<%If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then%>
<INPUT style="width=350" type="text" name="Nome" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>
<%
Else
  Response.Write "<B>(Automático)</B>"
End If
%>
  </TD></TR>
  <TR class=titulo_campos><TD>Descricao<br>
<TEXTAREA style="width=350;height=50" name="Descricao"  df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA>
  </TD></TR>
<% for i=1 to 80 %>
       <TR class=titulo_campos><TD>Foto<%=i%> (URL)<br>
    <INPUT type="hidden" name="Foto<%=i%>" value="imagens/noimage.gif" df_verificar="sim">
    <DIV id="Layer1" style="width: 1px; height:1px; visibility: visible; border:1px solid black"><img name="img_Foto<%=i%>" src="imagens/noimage.gif" border="0"></DIV>
    › <a href="df_upload_imagens.asp?campo=<%=Server.URLEncode("Foto<%=i%>")%>&pasta=<%=Server.URLEncode("Eventos")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem</a>
  </TD></TR>
<% next %>
</TABLE>
<input type="submit" name="submit" value="Enviar" class=botao_enviar>
</form>

<%
  objCon.Close
  Set objCon = Nothing
End If
%>

</BODY>
</HTML>

<%
Else
  Response.Write "<B>Acesso negado...</B> somente o administrador do site tem acesso a esta página."
  Response.Write "<BR><a href=""" & pagina_login & """ class=""texto_pagina"">Clique aqui</a> para efetuar login no sitema"
End If
%><%
If Not IsEmpty(Request.Form) Then
  Set objCon = Server.CreateObject("ADODB.Connection")
  objCon.Open strCon

  campo_duplicado = false
  campo_msg = ""

  If campo_duplicado = false Then
    Set objRS= Server.CreateObject("ADODB.Recordset")
    objRS.CursorLocation = 3
    objRS.CursorType = 0
    objRS.LockType = 3
    strQ = "SELECT * FROM conteudo Where 1 <> 1"
    objRS.Open strQ, objCon, , , &H0001
    objRS.Addnew()
    If objRS.Fields("id").properties("IsAutoIncrement") = False Then
      objRS("id") = Trim(Request.Form("id"))
    End If
    If objRS.Fields("Categoria").properties("IsAutoIncrement") = False Then
      objRS("Categoria") = Trim(Request.Form("Categoria"))
    End If
    If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then
      objRS("Nome") = Trim(Request.Form("Nome"))
    End If
    If objRS.Fields("Descricao").properties("IsAutoIncrement") = False Then
      objRS("Descricao") = Trim(Request.Form("Descricao"))
    End If
or i=1 to 80
    If objRS.Fields("Foto"&i).properties("IsAutoIncrement") = False Then
      objRS("Foto"&i) = Trim(Request.Form("Foto"&i))
    End If
next
    objRS.Update
    objRS.Close
    Set objRS = Nothing
%>

<BR><B>Registro salvo</B><BR>O registro foi cadastrado 
com sucesso.<BR><BR>

<%
  Else
%>

    <BR><B>Atenção!</B><BR><BR>
    O campo <%=campo_msg%> <i>"<%=valor_msg%>"</i> não pode ser salvo, pois já está cadastrado na tabela.
    <BR><A href="java script:history.go(-1)">Clique aqui</a> para voltar ao cadastro</A><BR><BR>

<%
  End If

  objCon.Close
  Set objCon = Nothing
Else
  Set objCon = Server.CreateObject("ADODB.Connection")
  objCon.Open strCon

  Set objRS= Server.CreateObject("ADODB.Recordset")
  objRS.CursorLocation = 2
  objRS.CursorType = 0
  objRS.LockType = 3
  strQ = "SELECT * FROM conteudo Where 1 <> 1"
  objRS.Open strQ, objCon, , , &H0001
%>

<B>Incluir um novo registro</B><BR>Preencha corretamente 
os dados abaixo:<BR>
<form name="form_incluir" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>" onSubmit="return verifica_form(this);">
<TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_formulario>
  <TR class=titulo_campos><TD>id<br>
<%If objRS.Fields("id").properties("IsAutoIncrement") = False Then%>
<INPUT style="width=50" type="text" name="id" maxlength="255" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>
<%
Else
  Response.Write "<B>(Automático)</B>"
End If
%>
  </TD></TR>
  <TR class=titulo_campos><TD>Categoria<BR>
    <SELECT style="width=350" name="Categoria" df_verificar="sim" onChange="desabilita_cor(this)" class=campos_formulario>
      <OPTION value=""></OPTION>

<%
  Set objRS2 = Server.CreateObject("ADODB.Recordset")
  objRS2.CursorLocation = 3
  objRS2.CursorType = 3
  objRS2.LockType = 1
  strQ = "SELECT NomeCat FROM categorias ORDER BY NomeCat ASC"
  objRS2.Open strQ, objCon, , , &H0001
  If Not objRS2.EOF Then
    While Not objRS2.EOF
      If Trim(objRS2.Fields.Item("NomeCat").Value) <> "" Then
        Response.Write "      <OPTION value='" & (objRS2.Fields.Item("NomeCat").Value) & "'>" & (objRS2.Fields.Item("NomeCat").Value) & "</OPTION>"
      End If
      objRS2.MoveNext
    Wend
  End If
  Response.Write("ok")
%>

    </SELECT>
  </TD></TR>
  <TR class=titulo_campos><TD>Nome<br>
<%If objRS.Fields("Nome").properties("IsAutoIncrement") = False Then%>
<INPUT style="width=350" type="text" name="Nome" value="" onKeyPress="desabilita_cor(this)"  df_verificar="sim" class=campos_formulario>
<%
Else
  Response.Write "<B>(Automático)</B>"
End If
%>
  </TD></TR>
  <TR class=titulo_campos><TD>Descricao<br>
<TEXTAREA style="width=350;height=50" name="Descricao"  df_verificar="sim" onKeyPress="desabilita_cor(this)" class=campos_formulario></TEXTAREA>
  </TD></TR>
<% for i=1 to 80 %>
       <TR class=titulo_campos><TD>Foto<%=i%> (URL)<br>
    <INPUT type="hidden" name="Foto<%=i%>" value="imagens/noimage.gif" df_verificar="sim">
    <DIV id="Layer1" style="width: 1px; height:1px; visibility: visible; border:1px solid black"><img name="img_Foto<%=i%>" src="imagens/noimage.gif" border="0"></DIV>
    › <a href="df_upload_imagens.asp?campo=<%=Server.URLEncode("Foto<%=i%>")%>&pasta=<%=Server.URLEncode("Eventos")%>" onClick="abre_janela(250, 300, 'alterar_imagem')" target="alterar_imagem" class="texto_pagina">Enviar Imagem</a>
  </TD></TR>
<% next %>
</TABLE>
<input type="submit" name="submit" value="Enviar" class=botao_enviar>
</form>

<%
  objCon.Close
  Set objCon = Nothing
End If
%>

</BODY>
</HTML>

<%
Else
  Response.Write "<B>Acesso negado...</B> somente o administrador do site tem acesso a esta página."
  Response.Write "<BR><a href=""" & pagina_login & """ class=""texto_pagina"">Clique aqui</a> para efetuar login no sitema"
End If
%>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...