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

Mudando Componentes


Aneurex

Pergunta

Senhores, finalmente com a ajuda dos amigos aki o site esta quase 100%. Para fechar com chave de ouro só preciso arrumar este pqno codigo abaixo. Atualmente o site aki usa AspUpload mas na Locaweb eles utilizam o SafileUpload. Eu fiz a alteração de uma parte do codigo mas não funfionou. No exemplo deles é bem simples e não me resolveu tb não.

Voces me auxiliariam a fazer funcionar este codigo abaixo mostrado no novo componente?

function ReaderForm()
  if (Request("ty2") = "Form" or Request("ty2") = "Save") then

  	'strPath = Mid(Server.MapPath("Destaque.asp"),1,Len(Server.MapPath("Destaque.asp"))-19)
  	'strPath = "C:\home\dom711\homepage\html\"
  	strPath = "D:\Inetpub\wwwroot\galeria\"

  	
  	Set Upload = Server.CreateObject("Persits.Upload")
  	Upload.OverwriteFiles = False
  	Count = Upload.Save(strPath & "Temp\")

  	gTitulo    = Replace(Replace(Upload.Form("txtTitulo"), "'", "`"), """", """)
  	gTipoo     = Replace(Replace(Upload.Form("txtTipo"), "'", "`"), """", """)
  	''gTexto     = Replace(Replace(Upload.Form("DESCRIPTION"), "'", "`"), """", """)
  	gTexto     = Replace(Upload.Form("DESCRIPTION"), "'", "`")
  	gLogin     = Request.Cookies("AdmUsr")("Login")
  	gIdNoticia = Upload.Form("IdNoticias")
  	gImagem    = Upload.Form("txtImagem")
  	gCodigo    = Upload.Form("txtCodigo")
  	gAlinhamento = Upload.Form("txtAlinhamento")

  	if (CInt(Count) = 1) then
    if (gTipo = "Insert") then
    	gCodigo = CreateDateKey()
    else
    	if (Upload.Form("txtCodigo") = "0") then
      gCodigo = CreateDateKey()
    	end if
    end if
    Set File1 = Upload.Files("THEFILE")
    File1.Copy strPath & "Galeria\Noticias\Thu_" & gCodigo & ".gif"
    File1.Delete
  	end if
  end if

  if (gImagem = "1") then
  	gCodigo = "0"
  end if
	end function

O meu muito obrigado mais 1 vez!

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0

o componente que eles tem é o SafileUpload

o meu codigo é este, no ASPUPLOAD:

function ReaderForm()
 if (Request("ty2") = "Form" or Request("ty2") = "Save") then

   strPath = "D:\Inetpub\wwwroot\galeria\"

  
  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.OverwriteFiles = False
  Count = Upload.Save(strPath & "Temp\")

  gTitulo    = Replace(Replace(Upload.Form("txtTitulo"), "'", "`"), """", """)
  gTipoo     = Replace(Replace(Upload.Form("txtTipo"), "'", "`"), """", """)
  ''gTexto     = Replace(Replace(Upload.Form("DESCRIPTION"), "'", "`"), """", """)
  gTexto     = Replace(Upload.Form("DESCRIPTION"), "'", "`")
  gLogin     = Request.Cookies("AdmUsr")("Login")
  gIdNoticia = Upload.Form("IdNoticias")
  gImagem    = Upload.Form("txtImagem")
  gCodigo    = Upload.Form("txtCodigo")
  gAlinhamento = Upload.Form("txtAlinhamento")

  if (CInt(Count) = 1) then
   if (gTipo = "Insert") then
    gCodigo = CreateDateKey()
   else
    if (Upload.Form("txtCodigo") = "0") then
     gCodigo = CreateDateKey()
    end if
   end if
   Set File1 = Upload.Files("THEFILE")
   File1.Copy strPath & "Galeria\Noticias\Thu_" & gCodigo & ".gif"
   File1.Delete
  end if
 end if

 if (gImagem = "1") then
  gCodigo = "0"
 end if
end function

preciso deste mesmo codigo só que no componente SafileUpload

tks

Link para o comentário
Compartilhar em outros sites

  • 0

fala bareta, funcionou sim esse exemplo seu mas para o meu codigo não deu certo porque este upload recebe 1 id q é o mesmo id da news. então se eu mandar a imagem aparece a imagem junto a news, se não mandar não aparece, esse exemplo q você deu envia a mensagem mas não me completa o codigo entende

grato + 1 vez

Link para o comentário
Compartilhar em outros sites

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...