Ir para conteúdo

POWERED BY:

Arquivado

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

desisto

criar pagina com código + fso

Por , em ASP Clássico

Recommended Posts

desisto    0

desisto
Postado

tinha um topico com esta mesma duvida minha, mas nao encontro, ja procurei tudo...

 

 

 

 

preciso criar uma pagina que cntenha codigos asp, mas ao criar com <% ela da Constante de seqüência não finalizada

 

como resolvo este problema mesmo? B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Já fiz algo assim mas não encontrei como e nem lembro

 

Mostre como tentou e principalmente o porque disso

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

 preciso gerar algumas paginas dinamicamente pela administração, gravo o codigo da pagina no banco e mando gerar a pagina com a estrutura armada - paginas de consultas e outras que não sao via banco

 

 

to conseguind fazer da seguinte forma 'quebrada'

 

Linhas.WriteLine("<"&_

"%")

Linhas.WriteLine("....")

Linhas.WriteLine("%"&_

">")

 

 

 

mas nao sei ao certo ate que ponto isso vai funcionar

 

lembro do outro post mas nao lembro a solução

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Isso que fez está dando certo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

desisto    0

desisto
Postado

mas como disse, vai acabar complicando na hora de passar um bloco grande, vou ter que quebrar toda vez

 

e segundo a solução do topico - que nao encontro - era so mudar o < ou o %

 

nao me recordo nem encontro

 

 

 

 

se alguem viu o topico por ai avise :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo:

 

<%
AbrindoASP = chr(60) & "%"
FechandoASP = "%" & chr(62)
Abreaspas = chr(34) 
Fechaaspas = chr(148)
' criamos o objecto para lidar com os ficheiros
set fso = CreateObject ("Scripting.FileSystemObject")
' criamos o objecto que vai ser usado para a criação dos ficheiros
set f = fso.CreateTextFile(Server.Mappath ("eventos" &"\" &"exemplo2.asp"), True)
' agora vamos meter algo lá dento

f.WriteLine ( "<html> <head> </head> <body>")
f.WriteLine AbrindoASP & "DIM FSO, strCaminho, strPrincipal, strArquivos, xx"
f.WriteLine ("strCaminho = "  & Abreaspas&   "imagens/" & Abreaspas)
f.WriteLine "Set FSO = Server.CreateObject" & "("  & Abreaspas & "Scripting.FileSystemObject"  & 

abreaspas & ")"
f.WriteLine "Set strPrincipal = FSO.GetFolder(server.mappath(strCaminho))"
f.WriteLine "Set strArquivos = strprincipal.Files"
f.WriteLine "IF strArquivos.count=0 then" & FechandoASP
f.WriteLine "Não existem imagens disponiveis"
f.WriteLine  AbrindoASP & "else" & FechandoASP
f.WriteLine "<%DIM strArq"
f.WriteLine "FOR EACH strArq IN strArquivos "
f.WriteLine "if strArq.name=" & Abreaspas & "Thumbs.db" & Abreaspas &  "then" & FechandoASP 
f.WriteLine  AbrindoASP & "else" & FechandoASP
f.WriteLine "<img src=" & Abreaspas & AbrindoASP & "=strCaminho&strArq.name"& FechandoASP 

& Abreaspas & ">" & "<br>"
f.WriteLine AbrindoASP & "end if" & FechandoASP
f.WriteLine AbrindoASP & "NEXT" & FechandoASP
f.WriteLine AbrindoASP & "end if" & FechandoASP
f.WriteLine "</body> </html>"
' fechamos o ficheiro

f.close

%>

 

você também pode , por exemplo, usar um editor tipo e quando for gravar, dar um replace , onde precisa ser alterado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza...

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