Jump to content
Fórum Script Brasil
  • 0

ASSOCIAR ULOAD DE VÁRIAS IMAGENS NO TEXTO

Aldan Nunes

Asked by Aldan Nunes,

 Share

Question

Aldan Nunes

Aldan Nunes

Posted
Posted

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 to comment
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing


  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...