Ir para conteúdo

POWERED BY:

Arquivado

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

razs

acentos

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

pelo dw quando cria uma página ele já coloca assim:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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" />

 

tenta usar assim

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

aqui vai:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>

<!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" />

</head>
<body>
<form name="board1" action="a1a.asp" method="Post" enctype="multipart/form-data">
<div class="field"><input type="text" name="nome" id="textboxes" value=""></div>
<br>
<input type="image" class="image" id="Board1" name="Board1" src="images/ok.jpg">
</form>

</body>
</html>

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>

<!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>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

</head>
<body>

<%

'aqw=UploadRequest.Item("nome").Item("Value")
dim user
user= Request.Form("nome")

 response.write user


%>

</body>

</html>

 

isto funciona se eu tirar o enctype="multipart/form-data" do form mas de modo a enviar a imagem para upload ele nao funciona

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

isto é muito estranho, este script sempre funcionou :s

 

Entao mas para fazer o upload de um ficheiro eu nao tenho de usar o enctype="multipart/form-data"?

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

pois mas ele com o enctype parece nao funcionar...

 

Vou postar a pagina toda pode ser que vejam alguma coisa que eu nao consigo ver.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>

<!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"></html>

<!--#include file = "upload_funcoes.asp" -->

<% 

   Const ForReading = 1, ForWriting = 2, ForAppending = 8 

Dim conn	
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Driver={MYSQL ODBC 5.1 DRIVER};Server=localhost;Port=3306;Database=eo;Uid=root;Pwd=2012;"
conn.Open()

' Chama Funes que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recupera os Dados ----------------------
session("stat") = UploadRequest.Item("stat").Item("Value")
stat = UploadRequest.Item("stat").Item("Value")
session("nome") = UploadRequest.Item("nome").Item("Value")
session("trab") = UploadRequest.Item("trab").Item("Value")
session("morada") = UploadRequest.Item("morada").Item("Value")
session("telef") = UploadRequest.Item("tel").Item("Value")
session("fax") = UploadRequest.Item("fax").Item("Value")
session("email") = UploadRequest.Item("email").Item("Value")
session("ficheiro")=UploadRequest.Item("ficheirosss").Item("FileName")


if session("stat")="" or session("nome")="" or session("trab")="" or session("morada")="" or session("telef")="" or session("fax")="" or session("ficheiro")="" or session("email")="" then
response.Write("<script>alert('All fields are needed to update Board Member!');location.href='javascript:history.go(-1)'</script>")	
else

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

' Caminho completo dos arquivos enviados
caminho_ficheiro = UploadRequest.Item("ficheirosss").Item("FileName")

nome_ficheiro = Right(caminho_ficheiro,Len(caminho_ficheiro)-InstrRev(caminho_ficheiro,"\"))
ter=".jpg"
nome_ficheiro =session("stat")+ ter

ficheiro = UploadRequest.Item("ficheirosss").Item("Value")

pasta = Server.MapPath("images\fotos")
nome_ficheiro = "\"&nome_ficheiro
paa="images\fotos"

cficheiro = nome_ficheiro
session("cficheiro")=nome_ficheiro
fileExtension = lcase(right(nome_ficheiro,4))

intMaxFileSize = 120000000
byteMAX = intMaxFileSize

 If bytes > byteMAX Then
   response.Write("<script>alert('File too big, Please upload image up to 100kb!');location.href='javascript:history.go(-1)'</script>")
 Else

Dim extensao
extensao = fileExtension

Select Case extensao
Case ".gif"
Case ".jpg"
Case ".png"
Case "jpeg"
Case ".bmp"
Case Else
	Response.Write("<script>alert('That file is not allowed, Please upload only image files (jpg, gif, png, jpeg, bmp)!');location.href='javascript:history.go(-1)'</script>")
End Select


' Faz o Upload do arquivo selecionado
if ficheiro <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_ficheiro)
For i = 1 to LenB(ficheiro)

nn=chr(AscB(MidB(ficheiro,i,1)))
MyFile.Write nn

Next
MyFile.Close
end if

cficheiros=session("cficheiro")

sqlax=("UPDATE eo SET ficheirosss='"&cficheiros&"',status='"&session("stat")&"', nome='"&session("nome")&"',trab='"&session("trab")&"',morada='"&session("morada")&"',telef='"&session("telef")&"',fax='"&session("fax")&"',email='"&session("email")&"',type='12' where type ='12' and status = '"&session("stat")&"'")
Set rsax = conn.Execute(sqlax)

session("stat") =""
stat =""
session("nome") = ""
session("trab") = ""
session("morada") = ""
session("telef") = ""
session("fax") = ""
session("email") = ""
session("ficheiro")=""
session("cficheiro")=""	

response.Write("<script>alert('Board altered!');location.href='javascript:history.go(-1)'</script>")	

End If
end if

%>
<!--#include file = "banco_erro.asp"-->

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

guarde as 2 classes com os nomes que eu dei lá, depois para adaptar é só fazer isso:

 

pagina_teste.asp



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>
<!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>Teste</title>
</head>
<body>

   <form name="formulario" enctype="multipart/form-data" method="post" action="pagina_upload.asp">
   	<input type="text" name="nome" /><br />
       <input type="file" name="ficheiro" />  
       <input type="submit" value="Enviar" />  
   </form>

</body>
</html>

 

pagina_upload.asp



<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>
<!--#include virtual="clsUpload.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>Teste</title>
</head>
<body>

<%
   server.ScriptTimeout = 240

   Set ObjUpload = new clsupload

       nome = ObjUpload.Fields("nome").value
       ficheiro = ObjUpload.Fields("documento").filename

	response.write nome&" - "&ficheiro

       'ObjUpload("ficheiro").saveas server.MapPath("upload/"&ficheiro)

   Set ObjUpload = nothing
   %>

</body>
</html>

 

 

guarde os ficheiro em codificação utf-8 sem "BOM"

Compartilhar este post

Link para o post
Compartilhar em outros sites

razs    0

razs
Postado

no script anterior desactivando o insert e fazendo um print do mesmo devolve isto

 

UPDATE eo SET ficheir='\4.jpg',status='4', nome='Jos��',trab='BILI ',morada='Celas 3000-548 Coimbra, Portugal ',telef='00351 231 481 105',fax='00351 231 481 187',email='jose@bili.pt',type='12' where type ='12' and status = '4'

 

Que raio!!!!!!!

 

Funcionava tudo tao bem e de um dia para o outro comecou com estas tretas.

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