Ir para conteúdo

POWERED BY:

Arquivado

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

Alex-jpa

enctype="multipart/form-data"

Por , em ASP Clássico

Recommended Posts

Alex-jpa    0

Alex-jpa
Postado

Senhores

 

Me ajudem por favor, preciso muito!!!

 

Estou usando um código para UPLOAD, que por sinal está funcionando numa boa, só que as String que pego do formulário, ao gravar no BD, estão aparecendo dessa forma:

 

nottÃcias Informações

 

 

Segue Código

 

form_edit.asp

********************************************************************************
********

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="rdn/includes/global.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<%
intID=request.QueryString("ID") 

	set rs = Conexao.execute ("select * from noticias where id=" & intID & "")
	txtPrevia=rs("previa")

%>
<form method="post" id="form" enctype="multipart/form-data" action="form_cadastra.asp?id=<% =intID %>" >

 <textarea name="previa" class="campo" cols="20" rows="2"><%=txtPrevia%></textarea> <br>
<input name="foto" type="file" class="form" size="14" />
<input type="submit" value="ENVIA" />
</form>
</body>
</html>

****************************************************************************

form_cadastra.asp

 

****************************************************************************
<!--#include virtual="rdn/includes/global.asp"-->

intID=request.QueryString("ID") 


byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
txtPrevia = UploadRequest.Item("previa").Item("Value")



foto = UploadRequest.Item("foto").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens/lojas")
nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagens/lojas" + nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if


conexao.execute ("update noticias set previa='" & txtprevia & "', foto='" & cfoto& "' where id =" & intID & "")


Set Conexao=nothing

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Antes do update, coloque:

Response.Write "update noticias set previa='" & txtprevia & "', foto='" & cfoto& "' where id =" & intID
Response.End

Poste o resultado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

kreator    0

kreator
Postado

v c tem q adequar os caracteres para qualquer tipo de acentuação usando str_replace,acho q na sua pasta de destino não contem essa função abaixo!!

 

 

if ($_GET['funcao'] == "gravar" && $enviar_arquivo == "sim" && is_file($_FILES['arquivo'] ['tmp_name'])){
	
	$foto = $_FILES['arquivo'] ['name'];
	
	$foto = str_replace(" ", "_", $foto);
	$foto = str_replace("ã", "a", $foto);
	$foto = str_replace("Ã", "A", $foto);
	$foto = str_replace("â", "a", $foto);
	$foto = str_replace("Â", "A", $foto);
	$foto = str_replace("á", "a", $foto);
	$foto = str_replace("Á", "A", $foto);
	$foto = str_replace("à", "a", $foto);
	$foto = str_replace("À", "A", $foto);
	$foto = str_replace("é", "e", $foto);
	$foto = str_replace("É", "E", $foto);
	$foto = str_replace("ê", "e", $foto);
	$foto = str_replace("Ê", "E", $foto);
	$foto = str_replace("è", "e", $foto);
	$foto = str_replace("È", "E", $foto);
	$foto = str_replace("í", "i", $foto);
	$foto = str_replace("Í", "I", $foto);
	$foto = str_replace("ì", "i", $foto);
	$foto = str_replace("Ì", "I", $foto);
	$foto = str_replace("ó", "o", $foto);
	$foto = str_replace("Ó", "O", $foto);
	$foto = str_replace("ò", "o", $foto);
	$foto = str_replace("Ò", "O", $foto);
	$foto = str_replace("õ", "o", $foto);
	$foto = str_replace("Õ", "O", $foto);
	$foto = str_replace("ú", "u", $foto);
	$foto = str_replace("Ú", "U", $foto);
	$foto = str_replace("ù", "u", $foto);
	$foto = str_replace("Ù", "U", $foto);
	$foto = str_replace("ç", "c", $foto);
	$foto = str_replace("Ç", "C", $foto);
	
	$foto = strtolower($foto);

Compartilhar este post

Link para o post
Compartilhar em outros sites

kreator    0

kreator
Postado

ou no html você pega essa linha

 

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

e cola no seu outro arquivo no topo se só os caracteres do banco de dados estiverem assim !!!

 

espero ter ajudado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex-jpa    0

Alex-jpa
Postado

Antes do update, coloque:

Response.Write "update noticias set previa='" & txtprevia & "', foto='" & cfoto& "' where id =" & intID
Response.End

Poste o resultado.

 

Irmão..

Segue

 

 

update noticias set previa='informações', foto='foto1.jpg' where id =5

 

 

grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex-jpa    0

Alex-jpa
Postado

ou no html você pega essa linha

 

<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

e cola no seu outro arquivo no topo se só os caracteres do banco de dados estirem assim !!!

 

espero ter ajudado

 

Irmão

 

Eu coloquei mais não adiantou

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex-jpa    0

Alex-jpa
Postado

Antes do update, coloque:

Response.Write "update noticias set previa='" & txtprevia & "', foto='" & cfoto& "' where id =" & intID
Response.End

Poste o resultado.

 

Desculpa errado. segue

 

Irmão..

Segue

 

 

update noticias set previa='informações', foto='foto1.jpg' where id =5

 

 

grato

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

certamente há incompatibilidade de tipo de arquivo, deve ter um ou mais em UTF-8 ou em ISO-8859-1, é o mesmo problema que o pessoal encontra no ajax e basta abrir os arquivos com um notepad da vida e mudar a codificação

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