:: FILOWEB.it: 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>