Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\pwd_pin.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=pwd_pin.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% LANGUAGE = JScript %&gt;
&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;&gt;
&lt;title&gt;Gestione Password &amp;amp; Pin&lt;/title&gt;
&lt;script type=&quot;text/javascript&quot; src=&quot;stampa.js&quot;&gt;&lt;/script&gt;
&lt;script language=&quot;JavaScript&quot;&gt;
&lt;!--
function FP_preloadImgs() {//v1.0
 var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
 for(var i=0; i&lt;a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}

function FP_swapImg() {//v1.0
 var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n&lt;args.length;
 n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
 elm.$src=elm.src; elm.src=args[n+1]; } }
}

function FP_getObjectByID(id,o) {//v1.0
 var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
 else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
 if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
 for(n=0; n&lt;c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
 f=o.forms; if(f) for(n=0; n&lt;f.length; n++) { els=f[n].elements;
 for(m=0; m&lt;els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
 return null;
}
// --&gt;
&lt;/script&gt;
&lt;/head&gt;


&lt;body onLoad=&quot;FP_preloadImgs(/*url*/'button2A.jpg',/*url*/'button2B.jpg')&quot;&gt;
&lt;% 
Dim Password, PIN
'******************************************************
' CREAZIONE DI PASSWORD CARATTERI E NUMERI
'******************************************************
caratteri = &quot;0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ&quot; 
Randomize ' inizializza il generatore di numeri casuale 
	Do Until len(password) = 6 ' qui imposti la lunghezz'a della password 
		carattere = Int((62 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e z. 	
		password = password + Mid(caratteri,carattere,1) 
	Loop
'*********************************************
' FINE CREAZIONE PASSWORD
'*********************************************
'******************************************************
' CREAZIONE DEL PIN CARATTERI E NUMERI
'******************************************************
Randomize ' inizializza il generatore di numeri casuale 
	Do Until len(pin) = 4 ' qui imposti la lunghezz'a del pin 
		carattere_x = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e Z. 	
		pin = pin + Mid(caratteri,carattere_x,1) 
	Loop
'*********************************************
' FINE CREAZIONE PIN
'*********************************************	
	
' inserire la verifica della password	
Response.Write (&quot;&lt;br&gt;&quot;)
Response.Write (&quot;&lt;br&gt;&quot;)
Response.Write (&quot;&lt;br&gt;&quot;)

%&gt;

&lt;!--#include file=&quot;ecommerce.asp&quot; --&gt;
&lt;%
' verifica della password e del PIN	
Dim cn, rs ' Variabili per la connessione e per il Recordset
Dim x_Password, x_PIN
x_password = Password
x_PIN = PIN

' Creo un'istanza per la connessione ed una per il Recordset
Set cn = Server.CreateObject(&quot;ADODB.Connection&quot;)
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)

cn.Open MM_ecommerce_STRING ' Apro la connessione al database

Dim SQL ' Creo la query SQL
SQL = &quot;SELECT * FROM admins Where Password = '&quot; &amp; x_Password &amp;&quot;' AND PIN = '&quot; &amp; x_PIN &amp;&quot;'&quot;

' Apro il Recordset
rs.Open SQL, cn

' Verifico che la tabella contenga dati

' Se non ne contiene lancio un messaggio di avviso
If rs.EOF = True Then
%&gt;
&lt;%
' Chiudo il Recordset
rs.Close
Set rs = Nothing

Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
SQL = &quot;SELECT * FROM admins&quot;

'*********************************************************
' INSERISCO I DUE CAMPI NELL'ARCHIVIO ADMINS
'**********************************************************
            rs.Open SQL, cn, 1, 3
            rs.AddNew
            rs(&quot;password&quot;) = x_password
            rs(&quot;Username&quot;) = &quot;nascita&quot;
            rs(&quot;pin&quot;) = x_pin
            rs(&quot;accesso&quot;) = &quot;utente&quot;
            rs.Update
%&gt;

&lt;div align=&quot;center&quot;&gt;
	&lt;table border=&quot;0&quot; width=&quot;100%&quot;&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; color=&quot;#000080&quot;&gt; 
			&lt;img src=&quot;../img/Logo04-100x99.png&quot; width=&quot;100&quot; height=&quot;99&quot;&gt; Martinucci Prima Infanzia&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Verdana&quot; color=&quot;#FF0000&quot;&gt;&lt;br&gt;
			CODICI DELLA LISTA DA CONSERVARE&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;
&lt;b&gt;&lt;font face=&quot;Verdana&quot; color=&quot;#FF9900&quot;&gt;&lt;br&gt;
			Password : &lt;/font&gt;
&lt;font face=&quot;Times New Roman&quot; size=&quot;5&quot;&gt;
&lt;% response.Write password %&gt;&lt;/font&gt; &lt;/b&gt;&lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;
&lt;b&gt;
&lt;font color=&quot;#9999FF&quot; face=&quot;Verdana&quot;&gt;
			&lt;br&gt;
			PIN : &lt;/font&gt; 
&lt;font face=&quot;Times New Roman&quot; size=&quot;5&quot;&gt; 
&lt;% response.Write PIN %&gt;&lt;/font&gt;&lt;/b&gt; &lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;&amp;nbsp;&lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;
&lt;input type=&quot;button&quot; value=&quot;Stampa&quot; onClick=&quot;stampa()&quot;&gt;&lt;br&gt;
&amp;nbsp;&lt;/td&gt;
		&lt;/tr&gt;
		&lt;tr&gt;
			&lt;td align=&quot;center&quot;&gt;
&amp;nbsp;&lt;a href=&quot;default.asp&quot; target=&quot;_self&quot;&gt;&lt;img border=&quot;0&quot; id=&quot;img1&quot; src=&quot;button29.jpg&quot; height=&quot;26&quot; width=&quot;86&quot; alt=&quot;Esci&quot; onMouseOver=&quot;FP_swapImg(1,0,/*id*/'img1',/*url*/'button2A.jpg')&quot; onMouseOut=&quot;FP_swapImg(0,0,/*id*/'img1',/*url*/'button29.jpg')&quot; onMouseDown=&quot;FP_swapImg(1,0,/*id*/'img1',/*url*/'button2B.jpg')&quot; onMouseUp=&quot;FP_swapImg(0,0,/*id*/'img1',/*url*/'button2A.jpg')&quot; fp-style=&quot;fp-btn: Embossed Rectangle 5; fp-font: Verdana; fp-font-style: Bold; fp-font-color-normal: #0000FF; fp-font-color-hover: #FF0000; fp-font-color-press: #00FFFF; fp-proportional: 0&quot; fp-title=&quot;Torna al Menu di Amministratore&quot;&gt;&lt;/a&gt;&lt;/td&gt;
		&lt;/tr&gt;
	&lt;/table&gt;
&lt;/div&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;
&lt;/p&gt;
&lt;p&gt;
&amp;nbsp;&lt;br&gt;
&amp;nbsp;&lt;/p&gt;&amp;nbsp;&lt;%
' Se invece contiene i dati contenuti in Password e PIN
Else

While rs.EOF = False
%&gt;
&lt;%
rs.MoveNext
Wend

End If
%&gt;

&lt;%
' Chiudo il Recordset
rs.Close
Set rs = Nothing

' Chiudo la connessione
cn.Close
Set cn = Nothing
%&gt;

&lt;/body&gt;

&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]