E' contenuto nello script originale, che ha tutto in una pagina, mentre io volevo separare la casella di testo dove si inserisce il nome della cartella dallo script che la crea e successivamente si "dirige" ad una delle 2 pagine, OK se va bene e ERROR se va male.
Nello script originale, il parametro page arriva dal form, ecco:
codice:<form method="post" action="createDir.asp?page=create"> <input type="text" name="Name"> <input type="submit" value="Crea Cartella">
ed ecco tutto lo script (naturalmente compreso di form):
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% PUBLIC FUNCTION createDir(dirName) Dim objFso Dim return on error resume next : err = 0 IF dirName = "" OR dirName = Null THEN return = False ELSE Set objFso = Server.CreateObject("Scripting.FileSystemObject") objFso.CreateFolder(Server.MapPath("/public/"&DirName)) IF (err = 0) THEN return = True ELSEIF (err <> 0) THEN return = False END IF Set objFso = Nothing END IF 'Se volete sapere perchè da il risultato FALSE allora togliete apice che sta all'inizio del prossimo rigo. 'Response.Write("NUMERO ERRORE: "&err.number&" DESCRIZIONE ERRORE: "&err.description&" ") err = 0 : err.clear() createDir = return END FUNCTION Dim page page = Request.QueryString("page") IF page = "create" THEN Response.Write("Il risultato: " & createDir(Request.Form("Name")) & " (FALSE=Cartella non creata; TRUE=Cartella creata)") ELSE %> <HTML> <HEAD> <TITLE>Form creazione directory</TITLE> </HEAD> <BODY> <form method="post" action="createDir.asp?page=create"> <input type="text" name="Name"> <input type="submit" value="Crea Cartella"> </form> </BODY> </HTML> <% END IF %>![]()

Rispondi quotando