Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Admins_view.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin&file=Admins_view.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ Language=VBScript %&gt;



&lt;html&gt;
&lt;link REL=&quot;stylesheet&quot; href=&quot;include/style.css&quot; type=&quot;text/css&quot;&gt;

&lt;!--#include file=&quot;include/Admins_dbconnection.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Admins_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Admins_aspfunctions.asp&quot;--&gt;
&lt;body bgcolor=white&gt;
&lt;script language=&quot;JavaScript&quot; src=&quot;include/ts_picker.js&quot;&gt;
&lt;/script&gt;
&lt;form method=&quot;POST&quot; action=&quot;Admins_list.asp&quot; name=&quot;frmAdmin&quot;&gt;
&lt;input type=hidden id=&quot;TargetPageNumber&quot; name=&quot;TargetPageNumber&quot; value=&quot;&lt;%=Request.Form(&quot;TargetPageNumber&quot;)%&gt;&quot; &gt;
&lt;input type=hidden id=&quot;cmdGotoPage&quot; name=&quot;cmdGotoPage&quot;&gt;
&lt;input type=hidden id=masterkey name=masterkey value=&quot;&lt;%=Request.Form(&quot;masterkey&quot;)%&gt;&quot;&gt;
&lt;input type=hidden id=action name=action value=&quot;backtolist&quot;&gt;
      
   &lt;script language=&quot;JavaScript&quot;&gt;
		&lt;!--#INCLUDE FILE=&quot;include/jsfunctions.js&quot;--&gt;
		function GotoPage(nPageNumber)
		{
			document.forms.frmAdmin.cmdGotoPage.value = 'GotoPage';
			document.forms.frmAdmin.TargetPageNumber.value = nPageNumber;
			document.forms.frmAdmin.submit();
		}
	&lt;/script&gt;
&lt;/form&gt;

&lt;%
Session.LCID = 1040
On Error Resume Next

	mypage=Request.Form(&quot;targetpagenumber&quot;)
	if mypage=&quot;&quot; then _
		mypage=1
	myaction=Request.Form(&quot;action&quot;)
   if myaction=&quot;view&quot; or myaction=&quot;deleteimage&quot; then _
      myaction=&quot;edit&quot;
   if myaction=&quot;add&quot; then _
      myaction=&quot;added&quot;

' open database connection
	Set rs = server.CreateObject (&quot;ADODB.Recordset&quot;)
	set dbConnection = server.CreateObject (&quot;ADODB.Connection&quot;)
	dbConnection.ConnectionString = strConnection
	dbConnection.Open
	Call ReportError


	sMode = &quot;Edit&quot;
	strSQL=&quot;select &quot; &amp; AddWrappers(&quot;ID&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Username&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;Password&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;accesso&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;lista&quot;) &amp; &quot;, &quot; &amp; AddWrappers(&quot;pin&quot;) &amp; &quot;, &quot; 

	if InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8) '1
	if strKeyField2&lt;&gt;&quot;&quot; and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField2)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8)
	if strKeyField3&lt;&gt;&quot;&quot; and InStr(1, LCase(strSQL), LCase(AddWrappers(strKeyField3)))&lt;1 then strSQL = &quot;select &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;, &quot; &amp;  Mid(strSQL, 8)
	

	if Right(strSQL,2)= &quot;, &quot; then strSQL = Left(strSQL, Len(strSQL)-2) '1
  	strSQL = strSQL &amp; &quot; from &quot; &amp; strTableName
	strSQL=strSQL &amp; &quot; where &quot; &amp; AddWrappers(strKeyField) &amp; &quot;=&quot; &amp; gstrQuote &amp; Replace(request.form(&quot;editid&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote
	if strKeyField2&lt;&gt;&quot;&quot; then _
		strSQL=strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField2) &amp; &quot;=&quot; &amp; gstrQuote2 &amp; Replace(request.form(&quot;editid2&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote2
	if strKeyField3&lt;&gt;&quot;&quot; then _
		strSQL=strSQL &amp; &quot; and &quot; &amp; AddWrappers(strKeyField3) &amp; &quot;=&quot; &amp; gstrQuote3 &amp; Replace(request.form(&quot;editid3&quot;),&quot;'&quot;,&quot;''&quot;) &amp; gstrQuote3

	Response.Write &quot;&lt;h1&gt;Visualizza il record [&quot; &amp; strKeyField &amp; &quot;: &quot; &amp; request.form(&quot;editid&quot;) &amp; &quot;]&lt;/h1&gt;&quot;

response.write &quot;&lt;div align=left&gt;&lt;hr width=300 noshade size=1&gt;&lt;/div&gt;&quot;

LogInfo(strSQL)
rs.open strSQL, dbConnection
Call ReportError

Response.write &quot;&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;a href=Admins_list.asp onClick=&quot;&quot;GotoPage( &quot; &amp; mypage &amp; &quot;); return false;&quot;&quot;&gt;Torna all'elenco&lt;/a&gt;&lt;br&gt;&lt;br&gt;&quot;
Response.Write &quot;&lt;table cellpadding=2&gt;&quot;
%&gt;

&lt;form name=&quot;editform&quot; method=&quot;post&quot; action=Admins_edit.asp&gt;
&lt;input type=hidden id=&quot;TargetPageNumber&quot; name=&quot;TargetPageNumber&quot; value=&quot;&lt;%=Request.Form(&quot;TargetPageNumber&quot;)%&gt;&quot; &gt;
&lt;input type=hidden id=masterkey name=masterkey value=&quot;&lt;%=Request.Form(&quot;masterkey&quot;)%&gt;&quot;&gt;

&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField))%&gt;&quot;&gt;   
&lt;% if strKeyField2&lt;&gt;&quot;&quot; then %&gt;
&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField2)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField2)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField2))%&gt;&quot;&gt;   
&lt;% end if %&gt;
&lt;% if strKeyField3&lt;&gt;&quot;&quot; then %&gt;
&lt;input type=hidden id=NeedQuotes&lt;%=BuildFieldName(strKeyField3)%&gt; name=NeedQuotes&lt;%=BuildFieldName(strKeyField3)%&gt;
      value=&quot;&lt;%=Request.Form(&quot;NeedQuotes&quot; &amp; BuildFieldName(strKeyField3))%&gt;&quot;&gt;   
&lt;% end if %&gt;

&lt;table&gt;


&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;ID&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;ID&quot;)) or Format(&quot;ID&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;ID&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;ID&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Username&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Username&quot;)) or Format(&quot;Username&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Username&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Username&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;Password&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;Password&quot;)) or Format(&quot;Password&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;Password&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;Password&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;accesso&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;accesso&quot;)) or Format(&quot;accesso&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;accesso&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;accesso&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;lista&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;lista&quot;)) or Format(&quot;lista&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;lista&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;lista&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;



&lt;%
Response.Write &quot;&lt;tr&gt;&lt;td class=shade&gt;&quot; &amp; Label(rs.Fields(&quot;pin&quot;).Name) &amp; &quot;&lt;/td&gt;&quot;
%&gt;

&lt;TD&gt;



  
&lt;% 
if IsBinaryField(rs.Fields(&quot;pin&quot;)) or Format(&quot;pin&quot;)=FORMAT_DATABASE_FILE then
	Response.Write CreateImageControl(rs, &quot;pin&quot;, &quot;&quot;)
else
	strData = GetData(rs.Fields(&quot;pin&quot;), &quot;&quot;)
	
	
		Response.Write ProcessLargeText(strData)
	
end if 
%&gt;
  

&lt;/td&gt;

              
&lt;/tr&gt;&lt;/table&gt;

   &lt;tr height=50&gt;&lt;td colspan=2 align=left&gt;
	&amp;nbsp;&amp;nbsp;&amp;nbsp;&lt;a href=Admins_list.asp onClick=&quot;GotoPage('&lt;%=mypage%&gt;'); return false;&quot;&gt;&lt;font size=&quot;2&quot;&gt;Torna all'elenco&lt;/font&gt;&lt;/a&gt;&lt;br&gt;
   &lt;/td&gt;&lt;/tr&gt;

&lt;/table&gt;

&lt;/form&gt;


&lt;/body&gt;
&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin">Íàçàä</a>]