Logo Hardware.com.br
mjs
mjs Ubbergeek Registrado
9.4K Mensagens 2 Curtidas

Página com textstream, ajuda.

#1 Por mjs 11/06/2003 - 00:35
Estou querendo fazer assim na minha página, na parte onde irão os artigos chamar um arquivo que vai ser enviado com o código html para o cliente, assim o layout da página continua o mesmo, já consegui o código:
<%
set fs=Server.CreateObject("Scripting.FileSystemObject")set desenv=fs.OpenTextFile(Server.MapPath("desenvolvimento.txt"),1)
Response.Write(desenv.ReadAll)
desenv.close
set fs=Nothing
set desenv=Nothing
%>

Agora eu gostaria de poder por exemplo atráves de um link mudar o Serve.MapPath indicando o arquivo que contenha o artigo etc.. eu acho que devo criar uma váriavel que possa ser mudada, até aí tudo bem, mas como eu faço para chamar e mudar a variável através do link, por exemplo se eu criar um link para o artigo 1 ele terá que mudar a variável para artigo1.txt e atualizar a página para carregar o artigo, mantendo assim o layout?? Tem como? Pelo menos alguma dica se for muito complicado..

Valeu novamente.

Coitado do pessoal da programação e web agora eu resolvi estudar vou incomodar um pouco por aqui... :wink:
#pragma
#pragma Membro Senior Registrado
219 Mensagens 0 Curtidas
#2 Por #pragma
11/06/2003 - 10:17
talvez algo como isto (não testei...)

<%
dim nomearquivo
dim indice

indice = Request.QueryString("i")
if(indice="") then indice="1"

nomearquivo="artigo" + indice + ".txt"

Response.write "link 1: tutorial sobre C++
" + _
"link2 : tutorial sobre Pascal
" + _
"link3 : tutorial sobre Basic
"

set fs=Server.CreateObject("Scripting.FileSystemObject")
set desenv=fs.OpenTextFile(Server.MapPath(nomearquivo),1)
Response.Write(desenv.ReadAll)
desenv.close
set fs=Nothing
set desenv=Nothing
%>

[]'s
[email]pragmasoftware@yahoo.com[/email]
mjs
mjs Ubbergeek Registrado
9.4K Mensagens 2 Curtidas
#4 Por mjs
13/06/2003 - 00:19
#pragma
talvez algo como isto (não testei...)

<%
dim nomearquivo
dim indice

indice = Request.QueryString("i")
if...


Obrigado novamente pragma, através do seu código eu consegui desenvolver o que eu queria, estou aprendendo lógica de programação e por ainda me bato em algumas coisas, valeu. Veja como ficou o código:


<%
' Variáveis
dim nomearquivo
dim indice
dim nomeserver
' Função usada para abrir o arquivo com o artigo e escreve-lo na tela.
Function OpenFile()
set fs=Server.CreateObject("Scripting.FileSystemObject&quot
set file=fs.OpenTextFile(Server.MapPath(nomearquivo),1)
Response.Write(file.ReadAll)
End Function
' Índice cujo nome que é mudado com o link
indice = Request.QueryString("i&quot
set fs=Nothing
set file=Nothing
' Se o índice estiver vazio então define para 0 e define a sintaxe do arquivo.
if(indice="&quot then indice="0"
nomearquivo = "artlnx" + indice + ".txt"
' Se algum artigo estiver aberto (valores diferentes de 0) ele esconde os links
If indice <> 0 then
Else
' Seta o arquivo que contém os links
set fs=Server.CreateObject("Scripting.FileSystemObject&quot
set file=fs.OpenTextFile(Server.MapPath("listaartigos.txt&quot,1)
Response.Write(file.ReadAll)
End If
' Se o índice for 0 ele não faz nada, pois não é preciso abrir a função OpenFile, pois nenhum artigo foi selecionado.
' Caso o falor seja diferente de 0 ele executa o OpenFile que vai abrir o artigo dependendo de qual foi selecionado.
If indice = 0 Then
Else
OpenFile()
End If
%>
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal