Erro ao capturar dados de form em html5

[luiscarlos5046 3]

Olá Galera!

 

Fiz um form em html5 com os novos tipos, porém os dados digitados nos campos não estão vindos.

 

 

<form action="./assine/assine-send" id="formAssine" name="formAssine"  method="post">
<input type="tel" name="fone" id="fone" placeholder="Telefone [ 17 + 0000-0000 ]" required maxlength="14" max="14" data-mask="(00) 0000-0000" >
<input type="tel" name="celular" id="celular" placeholder="Celular [ 17 + 00000-0000 ]" required maxlength="15" max="15" data-mask="(00) 00000-0000" >
<input type="email" name="email" id="email" placeholder="Email" required title="nome@servidor.com.br" >
</form>

 

Estou usando o método padrão para pegar os dados:

 

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
fone = request.Form("fone")
celular = request.Form("celular")
email = request.Form("email")
end if

 

Alguém sabe se realmente é possível utilizar este novo padrão do HTML5 com o ASP Clássico???

 

[wilnet 92]

Olá luis, blza!

 

Sim, normal.

 

Já tentou inserir a informação no "value="<%=fone %>" de cada campo?

<input type="tel" name="fone" id="fone" placeholder="Telefone [ 17 + 0000-0000 ]" required maxlength="14" max="14" data-mask="(00) 0000-0000" value="<%=fone %>" >

E assim para os demais campos.

 

Espero ter ajudado,

 

vlw

[luiscarlos5046 3]

Olá Wilnet!!

 

Já descobri que o problema não é com os forms... e sim com essa função que uso pra criptografar alguns dados.

É a mesma que uso sempre, e agora aparece uns caracteres assim "�����������"

?????????????????????.. Não sei se algum Javascript está causando isto... vou ver num arquivo limpo separado pra ver se o problema persiste?

 

Alguém tem alguma função diferente desta pra criptografar dados?

 

 

Function cript(texto)
  Dim cripta
  cripta = ""
  For i = 1 To Len(texto)
    If cripta = "" Or i > Len("0123456789") Then x = 1 Else x = x + 1
    cripta = cripta & Chr(255 - (Asc(Mid(texto, i, 1))) + Int(Mid("0123456789",x,1))  )
  Next
  cript = cripta
End Function

[wilnet 92]

Já tentou o MD5?

[luiscarlos5046 3]

Sim, já estou vendo outras opções... achei essa com MD5 e uma outra. A MD5 é uma função bem grandinha... Ah.. descobri que o meu problema é na codificação do arquivo...

 

 

' Criptografia de 64bits (BASE64):
 
' as contantes abaixo server para criptografar...vc pode modificalas.. assim soh vc sabera descriptografar...

Const EncC1 = 100
Const EncC2 = 105
Const EncKey = 115

'==============================================================
'########################
'Criptografa informações
'########################
Function Encripta(Texto)
TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(TempChar) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

Encripta = TempResult
End Function

'==============================================================
'########################
'Descriptografa informações
'########################

Function Decripta(Texto)
TempStr = Texto
TempResult = ""
TempKey = ((EncKey * EncC1) + EncC2) Mod 65536

For i = 1 To Len(TempStr)
TempNum = (Asc(Mid(TempStr, i, 1)) Xor (AuxShr(TempKey, 8))) Mod 256
TempChar = Chr(TempNum)
TempKey = (((Asc(Mid(TempStr, i, 1)) + TempKey) * EncC1) + EncC2) Mod 65536
TempResult = TempResult & TempChar
Next

Decripta = TempResult
End Function

Private Function AuxShr(Numero, BShr)
AuxShr = Int(Numero / (2 ^ BShr))
End Function

Caramba Galera!

 

Eu tô com aquele terrível problema de codificação dos arquivos.. eu criei um arquivo separado e testei certinho... mas no site com todos os arquivos não vai certo não a criptografia fica distorcida...

 

Tem alguma ferramenta pra converter isso tudo de uma só vez??

 

Esse problema é típico daquele caso de usar arquivos antigos de outros sites...

[xanburzum 169]

descriptografe o arquivo e crie um novo

[luiscarlos5046 3]

Não entendi esse "descriptografe o arquivo".... é um arquivo utf-8 normal criado com Sublime, Brackets ou DW... Já criei todos os arquivos novamente com Notead++ usando o "Encoding UTF-8 without BOM"...

No Brackets tem uma extensão pra detectar e converter arquivos pra UTF-8... eu andei analizando alguns arquivos aqui... a maioria está codificada com "windows-1252"... já no DW eu mudo a codificação pra UTF-8 com aquele C (decomposição canônica......) foi com isso que o arquivo teste sozinho que criei funcionou a criptografia de dados....

[xanburzum 169]

falei para descriptografar no caso se estivesse usando uma função para ele. Mas tem que gerar ele com a codificação correta, geralmente fazendo este passo no DW ele altera. Ou tente assim:

 

Mude o head da página que solicita os dados para que ele fique assim

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

Na página que responde os dados colocar isso:

<%
Response.AddHeader "Content-Type", "text/html; charset=utf-8"
Response.AddHeader "Pragma", "no-cache"
response.Charset="utf-8"
%>

no Dreamweaver tem que ficar assim:

 

[luiscarlos5046 3]

Ah sim, desculpa ai.... a codificação do arquivo já cansei de fazer isso, pra todos os arquivos... só não entendi o porque desse BOM.. ao salvar com esse BOM ele não funciona.... Eu cansei de fazer isso e recriar os arquivos... mas no Brackets que tem uma extensão pra converter pra UTF-8... eu consigo ver a codificação dos arquivos... e mesmo convertendo o index pra utf-8 não rolou... o index que é o principal fica como "windows-1252" se eu recriar o arquivo no DW, mesmo estando setado pra utf-8 como mostrado acima.

 

O início da minha head está assim, que é html5:

 

<html>
    <head>
        <title>Jornal de Notícias</title>
        <!--meta-->
        <base href="http://local.jornal.com.br/">
        <meta charset="utf-8">
        <!-- <meta name="viewport" content="width=device-width, initial-scale=1, maximum-scale=1.2"> -->
        <!-- <meta name="format-detection" content="telephone=no"> -->
        <meta name="keywords" content="Notícias, Acontecimentos, Eventos, TV, Rádio">
        <meta name="description" content="Descrição do Jornal a ser incluída.">
        <meta name="author" content="Facebook: luiscarlos.carvalho.jales">
        <meta name="revisit-after" content="3 days">

 

Vou tentar colocar aquelas informações extras no ASP pra ver no que dá.

[xanburzum 169]

coloque o Content-Type como sugerido no post #8.

 

Esse BOM significa Binary Order Mark (Marca de ordenação binária), ele indica a ordem dos bytes em um arquivo de texto, unicode-16 tem par de 2 bytes e de 4 bytes no unicode-32. Existe BOM para unicode-8, mas o seu uso não é recomendado, pois só existe uma ordenação possível para caracteres compostos por um único byte.

 

A marca de ordem de byte (BOM) é um caractere Unicode usado para denotar a extremidade (ordem de bytes) de um arquivo de texto ou fluxo de dados, com código é U+FEFF. Seu uso é opcional e, se usado, deve aparecer no começo do fluxo de texto.

Além do seu uso tradicional, esse caractere também pode indicar em qual das diferentes representações Unicode o texto está codificado. Tendo em vista que o Unicode pode ser codificado tanto em 16 quanto 32 bits, o leitor de texto Unicode deve saber em que formato o texto sendo lido está codificado.

 

Deixe desmarcado a opção "Incluir assinatura Unicode (Bom), e em propriedades da página ou control + J e vai em título/codificação e veja se esta marcado. Em último caso tente copiar e colar o código no bloco de notas