Ir para conteúdo

POWERED BY:

Arquivado

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

kauebranco

Criar arquivo *.asp usando FSO

Por , em ASP Clássico

Recommended Posts

kauebranco    0

kauebranco
Postado

Pessoal .. estou tentando criar um arquivo *.asp usando FSO dentro do proprio ASP ...mais começou a me aparecer um problema que preciso da ajuda de vcs pra resolver ...na hora de criar o arquivo quando dou um :objFSO.WriteLine ("<%")da erro pois pelo que eu entendi ele deve estar interpretando as tags ASP mesmo estando dentro de aspas ....como faço pra evitar que ele interprete as TAGS ASP ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Tem uma forma de evitar usando algo mais ou menos assim:</% ou <\% mas agora realmente não me lembro.Outra solução é você usar o caractere pelo nº ASC...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

não rola fazer assim não tiocomo voce vai criar um codigo asp numa pagina??

Compartilhar este post

Link para o post
Compartilhar em outros sites

arr    0

arr
Postado

Já fiz isso num script que criei para automatizar criação de formulários. Usei o ASC para concatenar. Olha uma parte do código que concatena o asp:

 

 

txtAdForm=txtAdForm&"<"& Chr(37)&VBCRLF

txtAdForm=txtAdForm&"cbRS.MoveNext"&VBCRLF

txtAdForm=txtAdForm&"Wend"&VBCRLF

txtAdForm=txtAdForm&"cbRS.close"&VBCRLF

txtAdForm=txtAdForm&"cbconexao.close"&VBCRLF

txtAdForm=txtAdForm&"set cbRS=nothing"&VBCRLF

txtAdForm=txtAdForm&"set cbconexao=nothing"&VBCRLF

txtAdForm=txtAdForm& Chr(37)&"></select></td></tr>"&VBCRLF

Compartilhar este post

Link para o post
Compartilhar em outros sites

kauebranco    0

kauebranco
Postado

consegui .... fiz assim

 

ASP

[*]

 

[*]AbrindoASP = chr(60) & "%"

 

[*]FechandoASP = "%" & chr(62)

 

[*]

 

[*]Set Arquivo = FSO.CreateTextFile(CaminhoPadrao & "\" & NomeDigitado & "\" & 

 

[*]NomeDigitado & "\" & NomeDigitado & "\default.asp")

 

[*]

 

[*]

 

[*]Arquivo.WriteLine ("<html>")

 

[*]Arquivo.WriteLine ("<head>")

 

[*]Arquivo.WriteLine ("<meta name=""refresh"" value=""1""/>")

 

[*]Arquivo.WriteLine ("</head>")

 

[*]Arquivo.WriteLine ("<body style=""'margin:0px; padding:0px;"" onLoad=""document.forms[0].submit();"">")

 

[*]Arquivo.WriteLine (AbrindoASP)

 

[*]Arquivo.WriteLine ("path_name = split(server.MapPath(""default.asp""),""\"")")

 

[*]Arquivo.WriteLine ("license = path_name(ubound(path_name)-1)")

 

[*]Arquivo.WriteLine (FechandoASP)

 

[*]'Arquivo.WriteLine ("")

 

[*]Arquivo.WriteLine ("<form method=""post"" action=""http://www.amriz.com.br/" & NomeDigitado & "/default.asp"">")

 

[*]Arquivo.WriteLine ("<input type=""hidden"" name=""database"" value=" & AbrindoASP & "=license " & FechandoASP & "/>")

 

[*]Arquivo.WriteLine ("</form>")

 

[*]Arquivo.WriteLine ("</body>")

 

[*]Arquivo.WriteLine ("</html>")

 

[*]

 

[*]Set Arquivo = Nothing

 

[*]Set FSO = Nothing

 

[*]

 

valewss

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