Originariamente inviato da tony83
è di una lentezza mostruosa, cosa che con iis (locale) non era!!!
come posso fare?
riappo perchè disperato!!! 
codice:
<% Option Explicit %>
<html>
<%
On Error Resume Next
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?funzione=funzione1&fase=seconda">
Inserire:
<font face="Times New Roman"color="#000066">
Utente </font>
<font face="Verdana"color="#000066">
<input type="text" name="txtNuovo_utente" size="20"></font></p>
Password
<input type="password" name="txtNuova_password" size="20"></font>
Conferma password
<input type="password" name="txtNuova_password2" size="20">
<input type="submit" name="Pulsante" value="conferma">
</form>
<%
if request.querystring("fase") = "seconda" then
dim nuovo_utente
nuovo_utente=trim(request.form("txtNuovo_utente"))
dim nuova_password
nuova_password=trim(request.form("txtNuova_password"))
nuovo_utente = Replace(nuovo_utente,"'","''")
nuova_password = Replace(nuova_password,"'","''")
if nuova_password="" or nuovo_utente ="" then
response.redirect("pippo2.asp?errore=1")
end if
if nuova_password<>trim(request.form("txtNuova_password2")) then
response.redirect("pippo2.asp?errore=1")
end if
'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("mdb-database/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
dim nuovo
nuovo = true
do while not rs.eof
utente_database=rs.fields("username")
password_database=rs.fields ("password")
if utente_database = nuovo_utente then
%>
<script>
alert("Errore, nome utente già esistente");
window.location.href="pippo2.asp?funzione=funzione1";
</script>
<%
nuovo = false
end if
rs.movenext
loop
if nuovo = true then
rs.addnew
rs("username") = nuovo_utente
rs("password") = nuova_password
session("sssUtente") = nuovo_utente
session("sssPassword") = nuova_password
rs.update
rs.close
end if
connessione.close
set rs =nothing
set connessione=nothing
if nuovo = true then
dim file
file = nuovo_utente
dim cartella
cartella= nuovo_utente
dim fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyfile.CreateFolder(Server.Mappath("/password/"&cartella))
fsoMyFile.CopyFile (Server.Mappath("/password/default.asp")), (Server.Mappath("/password/"&cartella&"/"&file&".asp")),True
response.write("Utente aggiunto: ")
response.write "
"
response.write ("USERNAME " & nuovo_utente & " PASSWORD "& nuova_password)
response.write "
"
response.write ("NOME CARTELLA E FILE " & nuovo_utente)
response.write "
"
response.write("ATTENDERE")
response.write "<SCRIPT>window.setTimeout(""location.href='password.asp?funzione=funzione1';"",'5000');</SCRIPT>"
end if
end if
elseif x="funzione2" then
%>
<form method="post" action="pippo2.asp?funzione=funzione2&fase=terza">
Inserire il nome dell'utente da eliminare con corrispettiva password
</p>
Nome utente
<input type="text" name="txtutente" size="20"> </p>
Password utente
<input type="password" name="txtPassword" size="20"></p>
<input type="submit" name="Conferma" value="conferma"> </p>
</form>
<%
if request.querystring("fase") = "terza" then
dim Xutente
Xutente=trim(request.form("txtUtente"))
dim Xpassword
Xpassword=trim(request.form("txtPassword"))
if Xutente ="" or Xpassword = "" then
response.redirect("appoggio.asp?fase=terza&carica=nullo")
end if
Xutente = Replace(Xutente,"'","''")
Xpassword= Replace(Xpassword,"'","''")
dim cartella2
cartella2=Xutente
dim file2
file2=Xutente
'le variabili
dim query2
dim connessione2
'crea la connessione
set connessione2 = Server.createObject ("ADODB.connection")
connessione.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/utenti.mdb")
dim rs2
set rs2 = Server.CreateObject("ADODB.recordset")
rs2.open "SELECT * FROM Utenti WHERE Username = '" & replace(Xutente, "'", "''") & "' And password = '" & replace (XPassword, "'", "''") & "';", Connessione2,1,3,1
if rs2.eof then
%>
<script>
alert ("Attenzione password e/o utente sbagliato");
window.location.href="pippo.asp";
</script>
<%
else
rs2.close
set rs2 = nothing
query2="delete * from utenti where (username = '"&Xutente&"' and password = '"&Xpassword&"')"
connessione2.execute query2
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyfile.deleteFile(Server.Mappath("/password/"&cartella2&"/"&file2&".asp"))
fsoMyfile.DeleteFolder(Server.Mappath("/password/"&cartella2))
%>
<script>
alert("Utente cancellato");
window.location.href="pippo.asp";
</script>
<%
connessione2.close
set connessione2=nothing
set rs=nothing
end if
end if
elseif x="funzione3" then
%>
<form method="post" action="pippo2.asp?funzione=funzione3&fase=quarta">
Inserire dati per cambiare password all'utente:
Nome dell'utente
<input type="utente" name="txtutente" size="20"></p>
Password vecchia dell'utente
<input type="password" name="txtpassword" size="20"></p>
<input type="submit" name="invia" value="invia"> </p>
</form>
<%
if request.querystring("fase") = "quarta" then
dim verifica_utente
dim verifica_password
verifica_utente=trim(request.form("txtutente"))
verifica_password=trim(request.form("txtpassword"))
verifica_utente = Replace(verifica_utente,"'","''")
verifica_password= Replace(verifica_password,"'","''")
if verifica_utente = "" or verifica_password ="" then
%>
<script>
alert("Errore nell'inserimento dati");
window.location.href="pippo2.asp?funzione=funzione3";
</script>
<%
end if
dim utente_database3, password_database3
dim connessione4, rs4
dim query4
' creare connessione
set connessione4 = Server.createObject ("ADODB.connection")
'aprire connessione
connessione.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/utenti.mdb")
'creare recordset
set rs4 = Server.CreateObject("ADODB.recordset")
'creo la query e invio comando sql
query4 = "select * from utenti"
'configurare
rs4.ActiveConnection = connessione4
rs4.open query4
do while not rs4.eof
utente_database3=rs4.fields("username")
password_database3=rs4.fields ("password")
if utente_database3 = verifica_utente and password_database3 = verifica_password then
session("sssPassword")=verifica_password
session ("sssUtente")=verifica_utente
rs4.close
connessione4.close
set rs4 =nothing
set connessione4=nothing
session("x")=true
response.redirect("cambio_password.asp")
end if
rs4.movenext
loop
%>
<script>
alert("Errore utente e/o password!");
window.location.href="pippo2.asp?funzione=funzione3";
</SCRIPT>"
<%
end if
end if
if request.querystring("errore") = 1 then
%>
<script>
alert("Errore nell'inserimento password e/o utente, accesso negato!");
window.location.href="pippo.asp?funzione=funzione1";
</SCRIPT>
<%
end if
if Err.Number <> 0 then
%>
<script>
alert("ATTENZIONE, potrebbe essersi verificato un errore oppure l'utente è inesistente, verificare sul server");
window.location.href= "pippo.asp"
</script>
<%
end if
%>
</body>
Rispondi quotando
???
