Ir para conteúdo

POWERED BY:

Arquivado

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

lucastroy

fso

Por , em ASP Clássico

Recommended Posts

lucastroy    0

lucastroy
Postado

olá pessual,eu to montando um sistema onde no cadastro do usuário, ele cria uma nova pasta com o nome do usuario e dentro desta pasta ele criar um arquivo chamado index.aspcriar a pasta eu já sei....só não sei criar o arquivo index.asp e nem sei tbm como adicionar tags html e asp dentro do arquivo... já dei uma pesquizada aqui no forum é só achei coisas parecidas mas nada ao ponto certo....

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Você deve usar a função CreateTextFile do FSO:

 

indexTXT =	"<html>"& VbCrLf & _ 	 "<head>"& VbCrLf & _ 	 "<title>SPCAR - "&RS("ds_nome")&"</title>"& VbCrLf & _ 	 "</head>"& VbCrLf & _ 	 "<frameset framespacing='0' border='0' rows='21,*' frameborder='0'>"& VbCrLf & _ 	 " <frame name='top' scrolling='no' noresize src='../hot_top.asp' marginwidth='0' marginheight='0' target='principal'>"& VbCrLf & _ 	 " <frame name='principal' scrolling='yes' noresize src='../hotsite1.asp?id="&id&"' marginwidth='0' marginheight='0' target='_self'>"& VbCrLf & _ 	 " <noframes>"& VbCrLf & _ 	 " <body>"& VbCrLf & _ 	 " <p>Esta página usa quadros mas seu navegador não aceita quadros.</p>"& VbCrLf & _ 	 " </body>"& VbCrLf & _ 	 " </noframes>"& VbCrLf & _ 	 "</frameset>"& VbCrLf & _ 	 "</html>"Set TheFile = objFSO.CreateTextFile("Caminho da Pasta\index.asp", True)TheFile.WriteLine indexTXTTheFile.CloseSet TheFile = Nothing

Esse código gera uma página com frames

 

T+

Manga

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Mas... criar as páginas porque? Serão sempre iguais? Crie o arquivo fisicamente e depois é só copiar para lá.

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Salgado, as páginas não são iguais. Repare que existem variáveis carregadas de um BD que integram a página.Eu uso muito isso para criar subsites, onde o sistema gera uma pasta na raiz e cria um arquivo index.asp que irá direcionar para um subsite de um cliente, por exemplo.Abraço B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Sim manga, reparei, mas mesmo seu código poderia ser feito da forma como citei. Mas o comentário seria para o autor do tópico mesmo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucastroy    0

lucastroy
Postado

ixi, fui adicionar o código e deu erroMicrosoft VBScript runtime error '800a01a8' Object required: '' /meubazar/cadastrar_2.asp, line 146 erro:Set TheFile = objFSO.CreateTextFile("d:\hshome\win13\xblog.com.br\meubazar\"& usuario &"\index.asp", True)

Compartilhar este post

Link para o post
Compartilhar em outros sites

lucastroy    0

lucastroy
Postado

NOSSA... DEPOIS DE MUITA LUTA, MUITO SUOR E MUUUUUUUUUUUUUUUUUUUUUUUUUUIIIIIIIIIIIIIIIIIITA PACIENCIA, EU ENCONTREI EM ALGUM FÓRUM....... NOSSA FOI TRABALHOSO VIU... SERÁ Q NINGUEM NUNCA QUIS CRIAR ARQUIVOS .ASP NÃO ???? AHHAUAUH..._________________ESTÁ AÍ O CÓDIGO:<% 'CRIANDO ARQUIVOSet fso = CreateObject("Scripting.FileSystemObject") 'ENDEREÇO PATHSet folderObject = fso.GetFolder(Server.MapPath("\meubazar") & "\") Set textStreamObject = folderObject.CreateTextFile("novapagina.asp",true,false) 'CODIFICAÇÃO HTMLindexTXT = "<html>"& VbCrLf & _ "<head>"& VbCrLf & _ "</html>"'ADICIONANDO HTML NO ARQUIVOtextStreamObject.WriteLine indexTXTtextStreamObject.Close ' remember to close it so that it writes the file 'FECHANDO AS PARADASSet textStreamObject = Nothing Set folderObject = Nothing Set fso = Nothing %>_____________________________ABRAÇOSLUCAS D.

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