21 messaggi dal 26 aprile 2001
Salve a tutti,
ho preso questo codice dal manuale ASP del sito Webmasterpoint.org.
Qui c'è un codice che crea una pagina chiamata con l'Email di chi la crea.
Io vorei far creare una cartella chiamata con il nome di chi scrive ed una pagina preimpostata default.asp
nella quale c'è scritto Pagina Under Costruction.
Questo script non usa database ma se il database deveservire per forna non fatevi problemi

Questo è il codice, se qualcuno vuole darmi una mano

<%
On Error Resume Next
Dim ObjFileSys
Dim ObjTextStream
Dim Filename
%>
<%
if IsEmpty(Request("Email")) Then
response.write("<form action='default.asp' method='POST'><br>")
response.write("Nome: <input type='Text' name='Nome' size='30'><br>")
response.write("Cognome: <input type='Text' name='Cognome' size='40'><br>")
response.write("Indirizzo E-mail: <input type='Text' name='Email'><br><br>")
response.write("L'html della tua home page: <textarea name='myhomepage' cols='70' rows='20'></textarea><br><br>")
response.write("<input type='Submit' name='OK' value='OK'>")
response.write("</form>")
else
Set objFileSys=Server.CreateObject("Scripting.FileSystemObject")
Filename=Server.MapPath("/freespace/" + request("Email") + ".asp")
Set ObjTextStream = ObjFileSys.OpenTextFile(Filename, ForAppending)
if err.value <> 0 then
Set ObjTextStream = ObjFileSys.CreateTextFile(Filename)
end if
ObjTextStream.Writeline(request("myhomepage"))
ObjTextStream.close
response.write("OK la tua Home Page è stata generata")
end if
%>

Ciao

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.