Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\buono_download.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=buono_download.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;!--#include file=&quot;include/dbcommon.asp&quot;--&gt;
&lt;!--#include file=&quot;include/buono_variables.asp&quot;--&gt;
&lt;%
if SESSION(&quot;UserID&quot;)=&quot;&quot; or not CheckSecurity(SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;),&quot;Search&quot;) then
	SESSION(&quot;MyURL&quot;)=request.ServerVariables(&quot;SCRIPT_NAME&quot;)&amp;&quot;?&quot;&amp;request.ServerVariables(&quot;QUERY_STRING&quot;)
	response.Redirect &quot;login.asp&quot;
	response.End
end if

field = REQUEST.querystring(&quot;field&quot;)

'//	check permissions
if not CheckFieldPermissions(field,&quot;&quot;) then response.End
	

if  then response.End
'//	construct sql

Set keys = CreateObject(&quot;Scripting.Dictionary&quot;)

keys.Add &quot;N_Buono&quot;,postvalue(&quot;key1&quot;)
where=KeyWhere(keys,&quot;&quot;)

dbConnection=&quot;&quot;
db_connect()


sql = gSQLWhereAdd(where)

Set rsd = server.CreateObject(&quot;ADODB.Recordset&quot;)

rsd.Open sql,dbConnection,1,2

if rsd.EOF then response.End

strFileName = rsd(field)
strFileType = lcase(Right(strFileName, 4))

rsd.Close

' Feel Free to Add Your Own Content-Types Here
Select Case strFileType
Case &quot;.asf&quot;
ContentType = &quot;video/x-ms-asf&quot;
Case &quot;.avi&quot;
ContentType = &quot;video/avi&quot;
Case &quot;.doc&quot;
ContentType = &quot;application/msword&quot;
Case &quot;.zip&quot;
ContentType = &quot;application/zip&quot;
Case &quot;.xls&quot;
ContentType = &quot;application/vnd.ms-excel&quot;
Case &quot;.gif&quot;
ContentType = &quot;image/gif&quot;
Case &quot;.jpg&quot;, &quot;jpeg&quot;
ContentType = &quot;image/jpeg&quot;
Case &quot;.wav&quot;
ContentType = &quot;audio/wav&quot;
Case &quot;.mp3&quot;
ContentType = &quot;audio/mpeg3&quot;
Case &quot;.mpg&quot;, &quot;mpeg&quot;
ContentType = &quot;video/mpeg&quot;
Case &quot;.rtf&quot;
ContentType = &quot;application/rtf&quot;
Case &quot;.htm&quot;, &quot;html&quot;
ContentType = &quot;text/html&quot;
Case &quot;.asp&quot;
ContentType = &quot;text/asp&quot;
Case &quot;.pdf&quot;
ContentType = &quot;application/pdf&quot;
Case Else
'Handle All Other Files
ContentType = &quot;application/octet-stream&quot;
End Select


Response.ContentType = ContentType
Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment;Filename=&quot;&quot;&quot; &amp; strFileName &amp; &quot;&quot;&quot;&quot;

Dim objStream
set objStream = Server.CreateObject(&quot;ADODB.Stream&quot;)
objStream.Type = 1
objStream.Open
objStream.LoadFromFile Server.MapPath(GetUploadFolder(field,&quot;&quot;) &amp; strFileName)
Response.BinaryWrite objStream.Read
'objStream.CloseSet 
set objStream = Nothing

%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]