tu dici???
io penso che sia un bel problema: ....
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"))
if nuova_password="" 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("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("c:\inetpub\inc.it\password\"&cartella)
fsoMyFile.CopyFile ("c:\inetpub\inc.it\password\default.asp"), ("c:\inetpub\inc.it\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"))
dim cartella2
cartella2=Xutente
dim file2
file2=Xutente
'le variabili
dim query2
dim connessione2
dim z
z= false
'crea la connessione
set connessione2 = Server.createObject ("ADODB.connection")
connessione2.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("utenti.mdb")
dim rs2
set rs2 = Server.CreateObject("ADODB.recordset")
rs2.ActiveConnection = connessione2
dim username2, password2
do while not rs2.eof
username2=rs2.fields("username")
password2=rs2.fields ("password")
if Xutente=username2 and Xpassword=password2 then
z= true
end if
rs2.movenext
loop
if z = true then
%>
<script>
alert ("Attenzione password e/o utente sbagliato");
window.location.href="pippo.asp";
</script>
<%
end if
query2="delete * from utenti where (username = '"&Xutente&"' and password = '"&Xpassword&"')"
connessione2.execute query2
elimina_utente2(Xutente)
connessione2.close
set connessione2=nothing
set rs=nothing
function elimina_utente2(x)
dim fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
fsoMyfile.deleteFile("c:\inetpub\inc.it\password\"&cartella2&"\"&file2&".asp")
fsoMyfile.DeleteFolder("c:\inetpub\inc.it\password\"&cartella2)
%>
<script>
alert("Utente cancellato");
window.location.href="pippo.asp";
</script>
<%
end function
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"))
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
connessione4.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("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, accesso negato!");
window.location.href="pippo.asp?funzione=funzione1";
</SCRIPT>
<%
end if
if Err.Number <> 0 then
%>
<script>
alert("ATTENZIONE, probabile problema o utente inesistente, verificare sul server");
window.location.href= "pippo.asp"
</script>
<%
end if
%>
</body>
</html>
penso che la cosa sia gestita male dall'inizio....
cambiare qualcosa ora rischierebbe di non far partire nulla....
a proposito in rosso è il punto dove è rallentato del tutto... (il problema vero e proprio!!)
VVoVe:
Permessi di invio
Rispondi quotando