Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\DBList-Buoni-Spesa\login.asp</i><br><form method=post action="edit.asp?action=save&dir=\DBList-Buoni-Spesa&file=login.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
'----------------------------------------------------------------------------------------
'-  ASP Security Login - Version 2.0 - 01 June 2005 
'-  Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved.     
'----------------------------------------------------------------------------------------
Option Explicit

'--- If bLogin = true then edit your username and password here--------------
		UserName = &quot;admin&quot;
		Password = &quot;pass&quot;
'---------------------------------------------------------------------------------------

'--- Prevent caching
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader &quot;cache-control&quot;, &quot;must-revalidate&quot;
Response.AddHeader &quot;cache-control&quot;, &quot;private&quot;
Response.AddHeader &quot;pragma&quot;, &quot;no-cache&quot;
Session.Timeout = 20

'--- Define variables
Dim sReferer, sGoBackTo, sUserName, sPassword, bLoginSuccessful, Error
Dim UserName, Password

if request.querystring(&quot;comebackto&quot;) &lt;&gt; &quot;&quot; then
	sReferer = request.querystring(&quot;comebackto&quot;)
	sGoBackTo = &quot;?&quot; &amp; request.querystring
end if

'--- If Login Form has been submitted
if request.form(&quot;Status&quot;) = &quot;FormSubmitted&quot; then
	sUserName = replace(request.form(&quot;txtUserName&quot;),&quot;'&quot;,&quot;&quot;)
	sPassword = replace(request.form(&quot;txtPassword&quot;),&quot;'&quot;,&quot;&quot;)

'--- Check for username and password match
	If (sUserName = UserName) AND (sPassword = Password) then
		bLoginSuccessful = True
	Else
		bLoginSuccessful = False
		Error = &quot;Wrong User name or Password&quot;
	'--- Send user to the default page after 3 unsuccessful try
		Session(&quot;count&quot;) = Session(&quot;count&quot;) + 1
		if Session(&quot;count&quot;) &gt; 3 then 
			Session.abandon
			response.redirect sGoBackTo
		End if
	End if
	Session(&quot;bLoginSuccessful&quot;) = bLoginSuccessful
End if

'--- After a successful login, let's send the user back to see the protected page
'--- The variable sReferer holds the page to go back,
'---  if it is empty, the user is redirected to the default page
if bLoginSuccessful Then
	if sReferer = &quot;&quot; then
		response.redirect &quot;../&quot;
	else
		response.redirect sReferer
	end if
else
'--- If no login performed then display the Login Form
%&gt;
&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;HTML&gt;&lt;HEAD&gt;&lt;title&gt;Login into protected pages - by www.lasp.net&lt;/title&gt;
&lt;META http-equiv=Content-Type content=&quot;text/html; charset=iso-8859-1&quot;&gt;
&lt;META name=&quot;description&quot; content=&quot;This page requires login&quot;&gt;
&lt;style&gt;
BODY, TD {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 10px;}
A:link     {text-decoration: none}
A:visited  {text-decoration: none}
A:active   {text-decoration: none}
A:hover    {text-decoration: none;color: #000000}
.text {color: NAVY;font-family: Verdana,tahoma,Arial;font-size: 9px;}
.coltext {color: tomato;font-family: Verdana,tahoma,Arial;font-size: 10px;font-weight: bold;}
.inputSubmit {
color: NAVY;
background-color: #EEEEEE;
border-color : NAVY;
border-top : 1px solid;
border-bottom : 1px solid;
border-left : 1px solid;
border-right : 1px solid;
font-family : Verdana,tahoma,Arial;
font-size : 10px;
font-weight: bold;
cursor: hand;
width : 100px
}
.inputBox {
color : NAVY;
background : #EEEEEE;
border-color : NAVY;
border-top : 1px solid;
border-bottom : 1px solid;
border-left : 1px solid;
border-right : 1px solid;
font-family : Verdana,tahoma,Arial;
font-size : 10px;
}
&lt;/style&gt;
&lt;/HEAD&gt;
&lt;body  language=&quot;JavaScript&quot; onLoad=&quot;document.Login.txtUserName.focus()&quot;&gt;

&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;


&lt;table border=&quot;0&quot; cellpadding=&quot;5&quot; cellspacing=&quot;0&quot; align=&quot;center&quot; style=&quot;border: 1px solid navy;&quot; bgcolor=#F3F3CC&gt;
&lt;form action=&quot;login.asp&lt;%=sGoBackTo%&gt;&quot; method=&quot;post&quot; name=&quot;Login&quot;&gt;
&lt;tr&gt;
&lt;%
'--- Show error when credentials are incorrect 
if Error &lt;&gt; &quot;&quot; then
	response.write &quot;&lt;td colspan=2 align=center class=coltext bgcolor=#F0FFF0 style=&quot;&quot;border-bottom: 1px solid navy;&quot;&quot;&gt;&quot; &amp; Error
	response.write &quot;&lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&quot;
End if
%&gt;
&lt;td align=center height=80&gt;

&lt;table border=&quot;0&quot; cellpadding=&quot;2&quot; cellspacing=&quot;0&quot;&gt;&lt;tr&gt;
&lt;td align=&quot;right&quot;&gt;&lt;b&gt;User name:&lt;/b&gt;&lt;/td&gt;
&lt;td&gt;&lt;input type=&quot;Text&quot; name=&quot;txtUserName&quot; size=&quot;18&quot; class=&quot;inputBox&quot;&gt;&lt;/td&gt;
&lt;/tr&gt;&lt;tr&gt;
&lt;td align=&quot;right&quot;&gt;&lt;b&gt;Password:&lt;/b&gt;&lt;/td&gt;
&lt;td&gt;&lt;input type=&quot;Password&quot; name=&quot;txtPassword&quot; size=&quot;18&quot; class=&quot;inputBox&quot;&gt;&lt;/td&gt;
&lt;/tr&gt;&lt;tr&gt;
&lt;td class=text align=center height=30&gt;&amp;nbsp;&lt;/td&gt;
&lt;td class=text align=center&gt;
&lt;input type=&quot;submit&quot; name=&quot;cmdLogin&quot; value=&quot;ENTRA&quot; class=&quot;inputSubmit&quot;&gt;
&lt;input type=&quot;hidden&quot; name=&quot;Status&quot; value=&quot;FormSubmitted&quot;&gt;
&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;

&lt;/td&gt;&lt;/tr&gt;&lt;/form&gt;&lt;/table&gt;

&lt;/BODY&gt;&lt;/HTML&gt;
&lt;% End if %&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CDBList%2DBuoni%2DSpesa">Íàçàä</a>]