Filoweb.it

Creare una cartella con un file HTML dentro


FB TW G+ 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 G+ 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 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 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