Ir para conteúdo

POWERED BY:

Arquivado

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

gilbertojr

inserção e volta de dados

Por , em ASP Clássico

Recommended Posts

gilbertojr    0

gilbertojr
Postado

Bom seguinte pessoal estou precisando de uma ajudinha. tenho um site e estou fazendo o seguinte,,tudo está funcionando exceto o finalzinho a coisa mais idiota e eu naum consigo fazer..... vou dar upload de uma foto e depois a tela volta para o link anterior mostrando a foto que eu dei upload, isso funciona se eu der upload e depois clicar em um link pra voltar tipo(clique aqui para voltar) ai ele volta e carrega a foto. mas eu queria fazer ele dar upload e voltar automaticamente já tentei o meta refresh ja tentei response.redirect ,, mas nada funciona até consegue jogar a foto no servidor mas naum volta.... o codigo é esse:: só um detalhe o unico problema está lá em baixo, de um javascript em diante,, po se alguem souber me judar por favor!<!--#include file="cn.inc"--><% Dim ImvCodigo ImvCodigo = Request.QueryString("ImvCodigo") Dim mySmartUpload, file, intCount intCount = 1 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.Upload '''''Set rsFotos = Server.createobject("Adodb.Recordset") Dim arrDesc(4), i, arrIndex(5) i = 1 DIM eNumeros For each file In mySmartUpload.Files If not file.IsMissing Then '''Salva o arquivo em banco de dados e no diretório desejado Set rsContaIndex = Server.createobject("Adodb.Recordset") rsContaIndex.open "SELECT Top 1 FtCodigo AS Cod FROM Fotos ORDER BY FtCodigo Desc", cn, 3, 3 if rsContaIndex.eof then contacod = 1 else ContaCod = rsContaIndex.Fields("Cod") + 1 end if NomeArq = "ft" & Right(file.Name,1) & "Cod" & ImvCodigo & "." & File.FileExt arrIndex(i) = Right(file.Name,1) file.SaveAs("../Fotos/" & NomeArq) cn.Execute "INSERT INTO Fotos(FtCodigo, IndexNumFoto, ImvCodigo, Descricao, Extensao) VALUES ("& ContaCod &","& Right(file.Name,1) & ", '"& ImvCodigo & "', '"& mySmartUpload.Form.Item("Desc" & Right(file.Name,1)).values &"' ,'"& file.FileExt &"')" rsContaIndex.Close End If Next DIM img '''Imagem que será deletada após abrirmos o RecordSet eNumero = 0 For each item In mySmartUpload.Form For each value In mySmartUpload.Form(item) IF Value = "on" THEN i = 1 DO WHILE IsNumeric(Right(item, i)) i = i + 1 LOOP '''Ubound(arrContMaiorNum) response.write (Right(item, i-1)) Set rsDeletaArq = Server.createobject("Adodb.Recordset") rsDeletaArq.open "SELECT * FROM Fotos WHERE FtCodigo =" & (Right(item, i-1)), cn, 3, 3 img = "ft" & rsDeletaArq("IndexNumFoto") & "Cod" & ImvCodigo & "." & rsDeletaArq("Extensao") rsDeletaArq.Close cn.Execute "DELETE * FROM Fotos WHERE FtCodigo=" & (Right(item, i-1)) Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") IF objFSO.FileExists(Server.Mappath("/Fotos/"&img)) Then objFSO.DeleteFile (Server.Mappath("/Fotos/"&img)) END IF ' '''' END IF ''' Set objFSO = Nothing END IF Next Next Set objFSO = Nothing%><html><head> <title>Resposta Upload</title> <meta http-equiv="Cache-Control" content="no-cache, must-revalidate"> <meta http-equiv="Pragma" content="no-cache"></head><script language="javascript">function atualizar(){ location.href = "Upload.asp?ImvCodigo=ImvCodigo="&ImvCodigo %>"; }</script><% Dim jae jae = true If jae = true then %><script>atualizar();</Script><% end if %><%'''''Response.write "<BR> Ok. Arquivos atualizados com sucesso. <BR> "&"<a href=""Upload.asp?ImvCodigo="&ImvCodigo&""">Clique aqui para voltar</a>" %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

Err..

 

Seu problema eh só em dar um redirect após o envio da foto?

 

Esse redirect tem q ficar no lugar do "Clique aqui para Voltar" ?

 

Tenta assim:

 

Server.Transfer "Upload.asp?ImvCodigo="&ImvCodigo

Compartilhar este post

Link para o post
Compartilhar em outros sites

gilbertojr    0

gilbertojr
Postado

Err..Seu problema eh só em dar um redirect após o envio da foto?Esse redirect tem q ficar no lugar do "Clique aqui para Voltar" ?Tenta assim:

Server.Transfer "Upload.asp?ImvCodigo="&ImvCodigo
certo vou testar valeu meu caro

Compartilhar este post

Link para o post
Compartilhar em outros sites

gilbertojr    0

gilbertojr
Postado

naum deu certo... deu essa mensagem aiObjeto Server erro 'ASP 0235 : 80004005' Erro de Server.Transfer /admin/RespUpload.asp, line 84 Um formulário de URL inválido ou URL absoluto totalmente qualificado foi usado. Use URLs relativos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao tenho certeza mas nao lembro do server.tranfer permitir passagem de parametro pela URL

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

com javascript ..

 

 

<!--#include file="cn.inc"-->

<%

Dim ImvCodigo

ImvCodigo = Request.QueryString("ImvCodigo")

Dim mySmartUpload, file, intCount

intCount = 1

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.Upload

 

'''''Set rsFotos = Server.createobject("Adodb.Recordset")

Dim arrDesc(4), i, arrIndex(5)

i = 1

DIM eNumeros

For each file In mySmartUpload.Files

If not file.IsMissing Then

'''Salva o arquivo em banco de dados e no diretório desejado

Set rsContaIndex = Server.createobject("Adodb.Recordset")

rsContaIndex.open "SELECT Top 1 FtCodigo AS Cod FROM Fotos ORDER BY FtCodigo Desc", cn, 3, 3

if rsContaIndex.eof then

contacod = 1

else

ContaCod = rsContaIndex.Fields("Cod") + 1

end if

NomeArq = "ft" & Right(file.Name,1) & "Cod" & ImvCodigo & "." & File.FileExt

arrIndex(i) = Right(file.Name,1)

file.SaveAs("../Fotos/" & NomeArq)

cn.Execute "INSERT INTO Fotos(FtCodigo, IndexNumFoto, ImvCodigo, Descricao, Extensao) VALUES ("& ContaCod &","& Right(file.Name,1) & ", '"& ImvCodigo & "', '"& mySmartUpload.Form.Item("Desc" & Right(file.Name,1)).values &"' ,'"& file.FileExt &"')"

rsContaIndex.Close

End If

Next

 

DIM img '''Imagem que será deletada após abrirmos o RecordSet

eNumero = 0

 

For each item In mySmartUpload.Form

For each value In mySmartUpload.Form(item)

IF Value = "on" THEN

i = 1

DO WHILE IsNumeric(Right(item, i))

i = i + 1

LOOP

'''Ubound(arrContMaiorNum)

response.write (Right(item, i-1))

 

Set rsDeletaArq = Server.createobject("Adodb.Recordset")

rsDeletaArq.open "SELECT * FROM Fotos WHERE FtCodigo =" & (Right(item, i-1)), cn, 3, 3

img = "ft" & rsDeletaArq("IndexNumFoto") & "Cod" & ImvCodigo & "." & rsDeletaArq("Extensao")

rsDeletaArq.Close

cn.Execute "DELETE * FROM Fotos WHERE FtCodigo=" & (Right(item, i-1))

Dim objFSO

 

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

IF objFSO.FileExists(Server.Mappath("/Fotos/"&img)) Then

objFSO.DeleteFile (Server.Mappath("/Fotos/"&img))

END IF

' '''' END IF

''' Set objFSO = Nothing

END IF

Next

Next

Set objFSO = Nothing

%>

<html>

<head>

<title>Resposta Upload</title>

<meta http-equiv="Cache-Control" content="no-cache, must-revalidate">

<meta http-equiv="Pragma" content="no-cache">

</head>

 

 

 

<script language="javascript">

function atualizar(){

location.href = "Upload.asp?ImvCodigo=ImvCodigo="&ImvCodigo %>";

}

</script>

<%

Dim jae

jae = true

If jae = true then

%><script>atualizar();</Script><%

end if

%>

 

<script>

window.location='Upload.asp?ImvCodigo=<%=ImvCodigo%>';

</script>

<%'''''Response.write "<BR> Ok. Arquivos atualizados com sucesso. <BR> "&"<a href=""Upload.asp?ImvCodigo="&ImvCodigo&""">Clique aqui para voltar</a>" %>

nao testei..

Compartilhar este post

Link para o post
Compartilhar em outros sites

gilbertojr    0

gilbertojr
Postado

valeu pessoal consegui fazer uma parada aqui que deu certo:<body> <script>var url="Upload.asp?ImvCodigo=<%=ImvCodigo%>";var tempo=4;var x=0;var v=1000;function redi(){if(x>=tempo){x=tempo;}elsex+=1;if(x==tempo){document.location.href=url;}if(x==tempo){v=999999;}setTimeout("redi()",v);}redi();</script><center><font size=1 color=black face=verdana>Espere...</font></center>

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