Ir para conteúdo

POWERED BY:

Arquivado

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

marina limeira

Construcao do conteudo de Varival HTML e ASP

Por , em ASP Clássico

Recommended Posts

marina limeira    0

marina limeira
Postado

formulario:

 

CODE
<html>

<body>

 

<form method="POST" action="testefso.asp">

<p>email: <input type="text" name="email00" size="20"></p>

<p> </p>

<p><input type="submit" value="Submeter" name="B1"><input type="reset" value="Redefinir" name="B2"></p>

</form>

</body>

</html>

 

TABELA:

CODE
<html>

<body>

<div align="center">

<table border="1" width="79%">

<tr>

<td> </td>

<td> </td>

<td> </td>

</tr>

<tr>

<td> </td>

<td>

<p align="center">E_MAIL:</td>

<td> </td>

</tr>

<tr>

<td> </td>

<td>

<p align="center"><i><b><font size="6" color="#0000FF">#$%EMAIL%$#</font></b></i></td>

<td> </td>

</tr>

<tr>

<td> </td>

<td> </td>

<td> </td>

</tr>

</table>

</div>

</body>

</html>

 

arquivo que processa tudo:

CODE
<html>

<body>

<p>Será exibido abaixo o conteúdo do arquivo Template "tabela.asp"</p>

 

<%

 

email = request.form("email00")

 

'Cria-se o objeto FSO

Set Obj_FSO = Server.CreateObject("Scripting.FileSystemObject")

 

'Abre-se o arquivo com o template. Use a sua formatação como exemplo e crie o arquivo com o nome "Template.html", substitua os locais onde entrariam as variáveis ASP para algo como #$%SuaVar%$#, depois faremos o tratamento disso.

 

Set Obj_Template = Obj_FSO.OpenTextFile(Server.MapPath("tabela.asp"), 1)

'Aqui é feita a leitura do conteúdo do arquivo e armazenado em uma variável.

 

Str_Template = Obj_Template.ReadAll

Obj_Template.Close

 

Set Obj_Template = Nothing

Set Obj_FSO = Nothing

%>

<%=Str_Template%>

</body>

</html>

 

 

e agora??

 

 

 

ele consegue ler e mostrar o resultado

 

ate coloquei em uma variavel como pode ver

 

mas o conteudo da variavel nada de aparecer :(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Ok, Basicamente:

<html>
<body>
<p>Será exibido abaixo o conteúdo do arquivo Template "tabela.asp"</p>

<%

'Cria-se o objeto FSO
Set Obj_FSO = Server.CreateObject("Scripting.FileSystemObject")

'Abre-se o arquivo com o template. Use a sua formatação como exemplo e crie o arquivo com o nome "Template.html", substitua os locais onde entrariam as variáveis ASP para algo como #$%SuaVar%$#, depois faremos o tratamento disso.

Set Obj_Template = Obj_FSO.OpenTextFile(Server.MapPath("tabela.asp"), 1)
'Aqui é feita a leitura do conteúdo do arquivo e armazenado em uma variável.

Str_Template = Obj_Template.ReadAll
Obj_Template.Close

Set Obj_Template = Nothing
Set Obj_FSO = Nothing

Str_Email = Request.Form("mail00")
'Aqui acontece a "mágica", a ancora #$%EMAIL%$# será substituída pelo conteúdo da variável Str_Email
Str_Final = Replace(Str_Template,"#$%EMAIL%$#",Str_Email)

%>
<%=Str_Final%>
</body>
</html>

Explicando, o trecho #$%EMAIL%$# Serve como uma "ancora" em nosso template, com isso asseguramos que o "email" será inserido no local correto, fazemos a troca dessa ancora pelo seu valor "real" e "salvamos" em uma nova variável, para que não percamos a formatação padrão, com isso podemos usar a variável "Str_Template" em um laço de repetição se for o caso. Para os outros dados é só ir criando novas ancoras no lugar que quer esses dados no formato final, use nomes que se possa distinguir facilmente cada valor. Com isso você ganha facilidade na hora de substituir a sua formatação por outra.

 

Teste e aplique em seu script.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marina limeira    0

marina limeira
Postado

olha salgado

 

tentei e continua aparecendo o original

 

fiz ate o seguinte:

 

Str_Email = Request.Form("email00")

Str_nome = Request.Form("nome")

'Aqui acontece a "mágica", a ancora #$%EMAIL%$# será substituída pelo conteúdo da variável Str_Email

 

Str_Final = Replace(Str_Template,"#$%EMAIL%$#",Str_Email)

Str_Final = Replace(Str_Template,"#$%nome%$#",Str_nome)

 

e nada ainda

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Nem o email correto apareceu? Repare que no local onde é impresso na tela foi substituído o Str_Template pelo Str_Final.

 

Quando for fazer o Replace de outras "ancoras" use a Str_Final depois que fizer o primeiro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marina limeira    0

marina limeira
Postado

Str_Final = Replace(Str_Template,"#$%EMAIL%$#",Str_Email)

Str_Final = Replace(Str_Final,"#$%nome%$#",Str_nome)

 

assim apareceu so o email

 

mas como tenho q proceder com mais variaveis

 

nao é o str_final que recebe no proprio replace?

 

o que falta no exemplo acima?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Verifique então se a ancora está igual no seu template e no seu replace, e se o request está correto também.

 

 

Pode ser que funcione com as devidas alterações necessárias à linguagem .NET.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marina limeira    0

marina limeira
Postado

era uma letra minuscula que ocorreu em erro..

 

agora,

como cada formulario neste exemplo de nome e email, tem como registrar um protocolo unico?

 

por exemplo enviei um formulario, é protocolo: 00001

o segundo que enviar, é protocolo: 00002 e assim por diante, porem sem registro em banco de dados...

pode ate gravar algo na pasta do servidor, como um contador interno... algo semelhante como um contador de visita

que tome o cuidado de que a pessoa nao pressione 2 enters e registre 2 protocolos sem querer ?

 

assim se eu quiser começar com: 00008 eu posso, semelhante a contador?

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