Caros colegas estou com o seguinte problema tenho algumas Sessions[""] para manter o valor de algumas listas para um sistema lista que está é utilizada na inserção o problema é que quando utilizo o json para fazer upload pedida no jquery as variaveis de sessão no Chrome são perdidas. No IE funciona normal, pelo que pude perceber o chrome carrega a pagina duas vezes. Alguem poderia me dar uma ajuda. Desde ja agradeço a colaboração de todos. Pagina de UPLOAD ``` ``` Pagina que é chamada ENVIO.ASP <% 'Seleciona parametros do sistema Nome = Session("Usuario") Set TbCliente = Server.CreateObject("ADODB.Recordset") ``` SQL = "Select * From clientes Where Login = '"&Nome&"'" TbCliente.Open SQL, ConStrP dados = TbCliente("Caminho_Fotos") '------------------------------------------------------------------------ '------------------------------------------------------------------------ 'Gera uma string aleatória com 'n' dígitos 'Usado para criar um nome aleatório para o arquivo function fnGeraChave(n) dim s randomize s = "" while len(s) < n s = chr (int((57 - 48 + 1) * Rnd + 48)) + s wend fnGeraChave = s end function '------------------------------------------------------------------------ Response.Charset="ISO-8859-1" dim objUp 'Instância da classe upload (definida no arquivo clsUpload.asp) dim objJson 'Instância da classe JSON (definida no arquivo JSON_2.0.4.asp) dim diretorio 'Diretório destino dim nomeOriginal 'Nome original do arquivo dim nomeArquivo 'Nome temporário do arquivo '(Alterado para evitar que arquivos com mesmo nome se sobrescrevam) 'Instancia a classe clsUpload set objUp = New clsUpload 'Instancia a classe JSON (para enviar a resposta) Set objJson = jsObject() 'Campos passados pelo Uploadify: ' - Filename Nome original do arquivo enviado ' - folder Este campo é definido pelo parâmetro 'folder' do uploadify - não estamos usando ' - Filedata Os bytes (stream) que compõem o arquivo ' - Upload Só achei o valor 'Submit Query' neste campo if objUp.fields("Filedata").length <> 0 and objUp.fields("Filedata").length & "" <> "" then nomeOriginal = objUp.fields("Filename").value nomeArquivo = fnGeraChave(20) & "_" & nomeOriginal 'O diretório destino é definido aqui, como pasta filha 'uploads' da pasta atual diretorio = "D:\web\localuser\boadicatere\www\fotos_imoveis\temp\" 'Salva o arquivo (Lembre-se de dar direito de escrita para o usuário IUSR!) objUp.fields("Filedata").saveAs(diretorio & nomeArquivo) '<<<<<<<<<<<<<< MANIPULA A IMAGEM >>>>>>>>>>>>>>> 'Declara as variáveis a serem utilizadas no script Dim AspJpeg, imagem 'Instancia o componente na memória SET AspJpeg = Server.CreateObject("Persits.Jpeg") 'Define o caminho da imagem a ser redimensionada imagem = "D:\web\localuser\boadicatere\www\fotos_imoveis\temp\"&nomeArquivo 'Carrega a imagem AspJpeg.Open imagem 'Define o novo tamanho da imagem que neste caso, definimos que ela será 50% menor que o normal. 'AspJpeg.Width = AspJpeg.OriginalWidth / 2 'AspJpeg.Height = AspJpeg.OriginalHeight / 2 ' Especifica o tamanho da imagem AspJpeg.Width = 593 'Jpeg.OriginalWidth / 2 AspJpeg.Height = 445 'Jpeg.OriginalHeight / 2 ' Comprime o arquivo da imagem reduzindo seu tamanho AspJpeg.Quality = 50 'Esse método é opcional, usado para melhorar o visual da imagem. AspJpeg.Sharpen 1, 150 'Marca D'agua AspJpeg.Canvas.DrawPNG 10, 10, "D:\web\localuser\boadicatere\www\fotos_imoveis\"&dados&"\marca.png" 'Cria um Thumbnail e o grava no caminho abaixo. AspJpeg.Save "D:\web\localuser\boadicatere\www\fotos_imoveis\"&dados&"\"&nomeArquivo 'Remove as referências do componente da memória SET AspJpeg = Nothing 'APAGA O ARQUIVO TEMPORÁRIO arquivo = "D:\web\localuser\boadicatere\www\fotos_imoveis\temp\"&nomeArquivo Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.DeleteFile arquivo '************************ '<<<<<<<<<<<<<< FINAL - MANIPULA A IMAGEM >>>>>>>>>>>>>>> 'Processo de Gravação no Banco Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open ConStrP sql2 = "Insert into imoveis_fotos (Id_Imovel, title) values ('"& Session("IdImovel") &"','"& nomeArquivo &"')" Conexao.Execute(sql2) 'Envia os dados do arquivo via JSON (pode ser que você precise deles no outro lado) objJson("result") = "OK" objJson("nomeArquivo") = nomeArquivo objJson("tamArquivo") = objUp.fields("Filedata").length objJson("nomeOriginal") = nomeOriginal else 'Ocorreu um erro no envio objJson("result") = "ERRO" end if 'Envia o JSON para o cliente objJson.flush 'Destroi as instâncias Set objUp = Nothing Set objJson = Nothing ``` %>

locosta

Ordenação

Variaveis de Sessão não funciona no Chrome