Filoweb.it

Creare una cartella con un file HTML dentro


FB TW Pinterest whatsapp RSS FEED News letter
ASP
Creare una cartella con un file HTML dentro


---PARTE CHE INVIA ----

<%@LANGUAGE=" VBSCRIPT" CODEPAGE=" 65001" %>

<!DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >

<html xmlns=" http://www.w3.org/1999/xhtml" >

<head>

<meta http-equiv=" Content-Type" content=" text/html; charset=utf-8" />

<title>Documento senza titolo</title>

</head>



<body>

<form id=" form1" name=" form1" method=" post" action=" crea.asp" >

<label>

Nome_Cartella

<input type=" text" name=" nome" id=" nome" />

</label>

<label>

<input type=" submit" name=" button" id=" button" value=" Invia" />

</label>

</form>

</body>

</html>



--- PARTE CHE RICEVE ---

<!DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" >

<html xmlns=" http://www.w3.org/1999/xhtml" >

<head>

<meta http-equiv=" Content-Type" content=" text/html; charset=utf-8" />

<title>Documento senza titolo</title>

</head>



<body>

<%

dim nome

nome=request.form(" nome" )

%>



<%

' creo cartella

Dim FSO, ind, var

' ind = nome cartella principale

' var = nome cartella da creare

SET FSO = Server.CreateObject(" Scripting.FileSystemObject" )

' L' indirizzo lo " creiamo" dinamicamente con l' utilizzo di 2 variabili,

' - ind : contiene la cartella in cui ci si trova

' - var : il nome della nuova cartella

FSO.CreateFolder(Server.MapPath(nome))

SET FSO = NOTHING

%>



<%

dim frase



Dim objFSO, objTextFile

Set objFSO = CreateObject(" Scripting.FileSystemObject" )

Set objTextFile = objFSO.CreateTextFile(Server.MapPath(nome & " \" & " ind.html" ))



' objTextFile.WriteLine " Qui ci scrivo questa riga!!"

objTextFile.WriteLine " <html xmlns=http://www.w3.org/1999/xhtml>"

objTextFile.WriteLine " <head>"

objTextFile.WriteLine " <meta http-equiv=Content-Type content=text/html; charset=utf-8 charset=utf-8 />"

objTextFile.WriteLine " <title>" & nome & " </title>"

objTextFile.WriteLine " </head>"

objTextFile.WriteLine " <body> PAGINA </body> </html>"





objTextFile.Close

Set objTextFile = Nothing

Set objFSO = Nothing

%>

</body>

</html>
FB TW Pinterest whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:Creare una cartella con un file HTML dentro. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it