pippo.asp

codice:
<% Option  Explicit %>
<%
dim utente
utente = ""
dim password
password = ""
if Session ("sssUtente") = utente or Session("sssPassword") = password then 
response.redirect("password.asp?errore=1")
end if
%>
<html>
<head>
<title>
ACCESSO AUTORIZZATO
</title>
</head>
<body>

 

<div align="center">
<font face="Verdana"color="#000066">

 AREA RISERVATA PIPPO GROUP</div>
<div align="center">
</div>
<div align="left">
<font size="2">Acrobat reader 7.0</div>
<div align="left">
</div>
<div align="left">
Service Pack 2</div>
<div align="left">
</div>
<div align="left">
<a href="http://www.microsoft.com/italy/pmi/windows/update.mspx">
Aggiornamenti Windows xp</a></div>
<div align="left">
</div>
<div align="left">
Firewall e Antivirus</div>
<div align="left">
</div>
<div align="left">
Programmi vari contro maleware</div>
<div align="left">
</div>
<div align="left">
Winzip </div>
<div align="left">
</div>
<div align="left">
Winrar </div>
<div align="left">
</div>
<div align="left">
Programmi vari</div>
<div align="left">
</div>
<div align="left">
</div>
<div align="left">
Crea nuovo utente


 
Elimina utente </p>


 
<a href="pippo2.asp?funzione=funzione3">Cambia password utente</p>
</div>
<div align="left">
</a>
<a href="utenti.mdb">ACCEDI AL DATABASE PER CAMBIARE PASSWORD E/O USERNAME O 
ELIMINARE UN UTENTE (Richiesto Access)</a></div>
<div align="left">
</div>
<div align="left">
</div>
<div align="left">
</div>
<div align="left">
Torna al menu</div>
<div align="left">
</div>
<div align="left">
</div>
<div align="left">
</div>
<div align="left">
</div>
</font>
</script>


</SCRIPT>
</div>
</font>



<font face="Verdana"color="#000066">

<body>
</html>
pippo2.asp

codice:
<% Option Explicit %>
<html>>
<%
dim pagina_di_destinazione
dim utente
utente = ""
dim password
password = ""
if Session ("sssUtente") = utente or Session("sssPassword") = password then 
response.redirect("password.asp?errore=1")
end if
dim x
x = request.querystring("funzione")
if x="funzione1" then 
%>
<body>
<form method="post" action="pippo2.asp">
Inserire:


 
<font face="Verdana"color="#000066">
<font face="Verdana"color="#000066">
Utente</font> 
<input type="text" name="txtNuovo_utente" size="20"></font></p>
Password</font>
<input type="text" name="txtNuova_password" size="20"></font> 


<input type="submit" name="Pulsante" value="conferma"
</form method="post" action="pippo2.asp"> 
<%
dim nuovo_utente
nuovo_utente=trim(request.form("txtNuovo_utente"))
dim nuova_password
nuova_password=trim(request.form("txtNuova_password"))

'le variabili 
dim query 
dim connessione 

'crea la connessione 
set connessione = Server.createObject ("ADODB.connection") 
connessione.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("utenti.mdb") 

'creare recordset
dim rs
set rs = Server.CreateObject("ADODB.recordset")

'creo la query e invio comando sql
query = "select * from utenti"
 
'configurare
rs.ActiveConnection = connessione
rs.open query ,connessione ,1,3 

dim utente_database
dim password_database
do while not rs.eof
utente_database=rs.fields("username")
password_database=rs.fields ("password")
if utente_database = nuovo_utente and password_database = nuova_password then
response.write("Errore, nome utente o password già esistenti")
response.write "<SCRIPT>window.setTimeout(""location.href='pippo2.asp';"",'3000');</SCRIPT>"
end if
rs.movenext
loop    
rs.addnew
rs(1) = nuovo_utente
rs(2) = nuova_password
rs.update
rs.close
connessione.close
set rs =nothing
set connessione=nothing


dim file
file = nuovo_utente
dim cartella
cartella= nuovo_utente
dim fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'fsoMyfile.CreateFolder("c:\"&cartella) 
fsoMyfile.CreateFolder("c:\inetpub\pippo.it\password\"&cartella)
dim tsTextStream
Set tsTextStream = fsoMyFile.CreateTextFile("c:\"&cartella&"/"&file&".asp")
'fsoMyFile.CopyFile"default.asp","c:\"&cartella&"/"&file&".asp", False
fsoMyfile.close()
response.write("Utente aggiunto: username " & nuovo_utente & " password " & nuova_password & " nome della cartella e del file sono: " & nuovo_utente)
elseif x="funzione2" then
%>
<form method="post" action="pippo2.asp">
Inserire il nome dell'utente da eliminare con corrispettiva password
<input type="text" name="txtutente" size="20">
<input type="password" name="txtPassword" size="20">
<input type="submit" name="Conferma" value="Conferma"
</form>
<%
dim Xutente
Xutente=trim(request.form("txtUtente"))
dim Xpassword
Xpassword=trim(request.form("txtPassword"))
dim cartella2
cartella2=Xutente
dim file2
file2=Xutente

'le variabili 
dim query2 
dim connessione2 

'crea la connessione 
set connessione2 = Server.createObject ("ADODB.connection") 
connessione2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("utenti.mdb") 

'creare recordset
set rs = Server.CreateObject("ADODB.recordset")

'creo la query e invio comando sql
query2 = "select * from utenti"
 
'configurare
rs.ActiveConnection = connessione2
rs.open query2

dim utente_database2
dim password_database2
do while not rs.eof
utente_database2=rs.fields("username")
password_database2=rs.fields ("password")
if utente_database2 = Xutente and password_database2 = Xpassword  then
rs.delete
elimina_utente2 Xutente
response.write("Utente cancellato")
end if
rs.movenext
loop    
rs.close
connessione2.close
set rs =nothing
set connessione2=nothing

function elimina_utente2(x)
dim fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyfile.delete("c:\"&x&"/"&"x"&".asp")
fso.MyfileDeleteFolder("c:\"&x)
fsoMyfile.close
end function
end if
%>
</body>>
</html>