Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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">](http://www.w3.org/1999/xhtml)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body> 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
Carregando comentários...