Ir para conteúdo

POWERED BY:

Arquivado

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

sfonseca45

Asp gera automaticamente htm

Por , em ASP Clássico

Recommended Posts

sfonseca45    0

sfonseca45
Postado

Bom DiaVamos ver se podem me ajudar, o problema é o seguinte :possuo um banco de dados de produtos, possuo uma pagina de ofertas linkada com o detalhe dos produtos, até ai tudo bem.O que meu cliente deseja :Ele vai fazer anúncios em jornais de certos produtos e vai publicar o endereço do produto na web, ai começa o problema:com o banco de dados o endereço serei assim www.nomedocliente.com.br/detalhes_produtos.asp?id=XXele não quer desse jeito, quer que seja assim www.nomedocliente.com.br/produto.htm.Existe algum script em ASP que gere automaticamente um página htm ?Achei o seguinte código ...<%Set HttpObj = Server.CreateObject("AspHTTP.Conn")HTTPObj.Url = "http://www.locaweb.com.br" 'Pagina requisitada HTTPObj.RequestMethod = "GET"strResult = HTTPObj.GetURL 'obtem o código HTML de "index.asp" Set HttpObj = Nothing%>onde o código html da página esta na string strResult Poré não sei como implementar ... Alguém teria alguma idéia ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Marcelo Barcellos    0

Marcelo Barcellos
Postado

Cara..

Voce pode fazer da forma que você informou sem precisar alterar sua aplicação.

 

Página - Produto.asp

<%Set HttpObj = Server.CreateObject("AspHTTP.Conn")HTTPObj.Url = "www.nomedocliente.com.br/detalhes_produtos.asp?id=XX" 'Pagina requisitada HTTPObj.RequestMethod = "GET"strResult = HTTPObj.GetURL 'obtem o código HTML de "index.asp" Set HttpObj = NothingResponse.Write strResult%>

Ou ainda utilizar FSO...

Compartilhar este post

Link para o post
Compartilhar em outros sites

sfonseca45    0

sfonseca45
Postado

Utilizando o FSO eu poderei fazer o seguinte :1 - Faço uma listagem dos produtos2 - Nesta lista crio um link para cada produto para um script que "criará" a pagina htm do respectivo produtoè possivel?

Compartilhar este post

Link para o post
Compartilhar em outros sites

WebASP    0

WebASP
Postado

usa o fso e cria o arquivo .htm e o seu conteudo via asp e pronto

Compartilhar este post

Link para o post
Compartilhar em outros sites

sfonseca45    0

sfonseca45
Postado

Vou postar um código que achei ... vou implementa-lo para o banco de dados ...<% ' Programa simples, exemplo de como utilizar ' FSO para escrever um Memorando para seu chefe ' e gravá-lo como HTML. %> <HTML> <HEAD> <TITLE>Formulário</TITLE> </HEAD> <BODY bgcolor="#FFFFFF"> <p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="4">Formulário Gerador de Memorando</font></b></p> <form action="memo.asp" method="POST"> <p> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">De:</font></b> <input type="Text" name="de" size="60" maxlength="255" tabindex="0"> <br> <b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Para:</font></b> <input type="Text" name="para" size="60" maxlength="255" tabindex="1"></p> <p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Texto:</font></b><br> ' 'COMANDO SECCIONADO POIS DEU PROBLEMA NO CADASTRO DO SCRIPT !!! ' < t e x t a r e a name="texto" cols="80" rows="10" wrap="PHYSICAL" > < / t e x t a r e a > ' ' CORTE FORA ESSES COMENTÁRIOS AO COPIAR O TEXTO... ' </p> <p><input type="Submit" name="Gerar" value="Gerar !" tabindex="3"> <input type="Reset" name="Limpar" value="Limpar !" tabindex="4"> </p> </form> </BODY> </HTML> __________________________________________________________ Agora o arquivo que cria a pagima ...- memo.asp __________________________________________________________ <% Private Function ConverteTexto(varTexto) Dim y, x, z, limite limite = Len(Trim(varTexto)) y = "" for x = 1 to limite z = Mid(varTexto, x, 1) if z = CHR(10) Then z = "<br>" end if y = y & z next ConverteTexto = y End Function %> <% Dim fso, f1 varDe = Request.Form("de") varPara = Request.Form("para") varTexto = Request.Form("texto") Set fso = CreateObject("Scripting.FileSystemObject") Set f1 = fso.CreateTextFile("c:\memorando.htm", True) f1.Write("<HTML>") f1.Write("<HEAD>") f1.Write("<TITLE>Memorando</TITLE>") f1.WriteLine("</HEAD><BODY>") f1.WriteBlankLines(1) f1.Write("<font face=Verdana size=4><b>") f1.Write("Memorando Criado a Partir do Formulário") f1.WriteLine("</b></font>") f1.Write("<p><font face=Verdana size=2><b>") f1.Write("De:</b> " & varDe) f1.Write("<br><b>") f1.Write("Para:</b> " & varPara) f1.WriteLine("</font></p>") f1.WriteBlankLines(1) f1.WriteLine("<p><font face=Verdana size=2><b>Mensagem:</b><br>")f1.WriteLine(ConverteTexto(varTexto)) f1.WriteLine("</font></p>") f1.WriteBlankLines(1) f1.WriteLine("</BODY></HTML>") f1.Close Set f1 = Nothing Set fso = Nothing %> <HTML> <HEAD> <TITLE>Resposta do Formulário</TITLE> </HEAD> <BODY> <p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="4">Formulário Gerador de Memorando</font></b></p> <p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Relatório Criado!</font></b></p> </BODY> </HTML> ---------------------------------------------------------------------------------------------Obrigado pela ajuda Abs

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