Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\dblist\printrec.asp</i><br><form method=post action="edit.asp?action=save&dir=\dblist&file=printrec.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%@ language = &quot;VBScript&quot; %&gt;
&lt;!--METADATA TYPE=&quot;TypeLib&quot; NAME=&quot;Microsoft ActiveX Data Objects 2.6 Library&quot; UUID=&quot;{00000206-0000-0010-8000-00AA006D2EA4}&quot; VERSION=&quot;2.6&quot; --&gt;
&lt;%
'----------------------------------------------------------------------------------------
'-  ASP dbList - Version 8.1 - 30 July 2005
'-  Copyright © 2005 - Livio Siri (http://www.livio.net) - All Rights Reserved.     
'----------------------------------------------------------------------------------------
option explicit 
response.buffer = true
	Dim conn, Rs, Total, sSQL, arrRS, sDSN, field, i
	Dim n_record, m_sTable, PrimaryKey, defaultsort
	Dim m_StandardFields() 
	Dim m_StandardFieldsValue() 
   Redim m_StandardFields(0)
   Redim m_StandardFieldsValue(0)

		m_sTable = Request.QueryString(&quot;strdbtable&quot;)
		n_record = Request.QueryString(&quot;member&quot;)
		sDSN = Request.querystring(&quot;dsn&quot;)
		PrimaryKey = Request.QueryString(&quot;primarykey&quot;)

	set conn = Server.CreateObject(&quot;ADODB.Connection&quot;)
	Set Rs = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
		conn.open sDSN
		set rs.ActiveConnection = conn
		rs.CursorType = adOpenStatic
	
	sSQL = &quot;SELECT * FROM &quot; &amp; m_sTable &amp; &quot; WHERE &quot; &amp; PrimaryKey &amp; &quot; LIKE ('%&quot; &amp; request.querystring(&quot;member&quot;) &amp; &quot;%')&quot;

	'--- Open the RecordSet with a static cursor. This cursor provides bi-directional navigation
	Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText

	i = 1
	'--- loop through the fields in the recordset
	for each field in RS.Fields 
		Redim Preserve m_StandardFields(UBound(m_StandardFields)+1)
		Redim Preserve m_StandardFieldsValue(UBound(m_StandardFieldsValue)+1)
	   m_StandardFields(i)  = field.name 
	   m_StandardFieldsValue(i)  = field.value
		i = i + 1
	next
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
%&gt;

&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;
&lt;html&gt;&lt;head&gt;
&lt;title&gt;Stampa Record&lt;/title&gt;
&lt;STYLE type=text/css&gt;
BODY, P, TD
{
	font-family: Tahoma, Verdana, Arial, sans-serif;
	font-size: 8pt;
   color: black;
	margin : 0;
	margin-left : 0;
	margin-right : 0;
	margin-top : 0;
	margin-bottom : 0;
	background-color : #FFFFFF;
	SCROLLBAR-BASE-COLOR: #CCCCCC;
	SCROLLBAR-FACE-COLOR: #8199DA;
	SCROLLBAR-HIGHLIGHT-COLOR: #B0C4DE;
	SCROLLBAR-SHADOW-COLOR: #333333;
	SCROLLBAR-3DLIGHT-COLOR: #ffffff;
	SCROLLBAR-ARROW-COLOR: #FFCC00;
	SCROLLBAR-TRACK-COLOR: #CCCCCC;
	SCROLLBAR-DARKSHADOW-COLOR: #8199DA;
	border:solid #CCCCCC 1;
	padding-left:5px;
}

TABLE {border:solid #CCCCCC 1;}
A:hover {
	COLOR: #ff6600
}
.prn_header, .prn_header_pk, .prn_header_btn, .prn_content_odd, .prn_content_odd_pk, .prn_content_even, .prn_content_even_pk
{
	vertical-align: top;
	padding: 1.5pt;
	font-family:tahoma;
}

.prn_header
{
	background-color: #E9E9E9;
	font-weight: bold;
}
.prn_header_pk
{
	background-color: #DDDDDD;
	font-weight: bold;
	font-style: italic;
}
.prn_headline
{
	font-family:Arial;
	font-size: 10pt;
	font-weight: bold;
	padding: 1pt;
	color: navy;
}

.prn_subheadline
{
	font-size: 10pt;
	font-weight: bold;
	color: navy;
}

.prn_form_value
{
	font-size: 10pt;
}

.prn_form_value_pk
{
	font-size: 10pt;
	font-style: italic;
}

.notdborder {border:none;}
&lt;/STYLE&gt;
&lt;/head&gt;
&lt;BODY BGCOLOR=#FFFFFF TEXT=#000000 LINK=#000000 ALINK=#000000 VLINK=#000000 TOPMARGIN=0 LEFTMARGIN=0 MARGINHEIGHT=0 MARGINWIDTH=0&gt;
&lt;%
	buildHTML_Form
Response.Write &quot;&lt;/body&gt;&lt;/html&gt;&quot;

''--------------------------------------------------------------------------
Private Function buildHTML_Form()
	Dim sValue
	Response.Write &quot;&lt;TABLE cellSpacing=0 cellPadding=0 border=0 align=center class=&quot;&quot;notdborder&quot;&quot;&gt;&lt;TBODY&gt;&lt;TR&gt;&quot; &amp; vbCrLf 
	Response.Write &quot;&lt;TD height=26 class=&quot;&quot;notdborder&quot;&quot;&gt;&quot; &amp; vbCrLf 
	Response.Write &quot;Tabella: &quot; &amp; vbCrLf 
	Response.Write &quot;&lt;span class=&quot;&quot;prn_headline&quot;&quot; STYLE=&quot;&quot;FONT-SIZE:9Pt;&quot;&quot;&gt;&quot; &amp; m_sTable &amp; &quot;&lt;/span&gt;&quot; &amp; vbCrLf 
%&gt;
&lt;SCRIPT Language=&quot;Javascript&quot;&gt;
/*
This script is written by Eric (Webcrawl@usa.net)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/

function printit(){  
if (window.print) {
    window.print() ;  
} else {
    var WebBrowser = '&lt;OBJECT ID=&quot;WebBrowser1&quot; WIDTH=0 HEIGHT=0 CLASSID=&quot;CLSID:8856F961-340A-11D0-A96B-00C04FD705A2&quot;&gt;&lt;/OBJECT&gt;';
document.body.insertAdjacentHTML('beforeEnd', WebBrowser);
    WebBrowser1.ExecWB(6, 2);//Use a 1 vs. a 2 for a prompting dialog box    WebBrowser1.outerHTML = &quot;&quot;;  
}
}

var NS = (navigator.appName == &quot;Netscape&quot;);
var VERSION = parseInt(navigator.appVersion);
if (VERSION &gt; 3) {
    document.write('&lt;a href=&quot;&lt;%=Request.servervariables(&quot;SCRIPT_NAME&quot;)&amp;&quot;?&quot;&amp;Request.Querystring%&gt;&quot; title=&quot; Print this page &quot; onClick=&quot;printit()&quot;&gt;Print&lt;/a&gt;');        
}
&lt;/script&gt;
&lt;%
	Response.Write &quot;&amp;nbsp;&lt;a href=&quot;&quot;&quot;&quot; onClick=&quot;&quot;self.close()&quot;&quot; title=&quot;&quot; Close Window &quot;&quot;&gt;Chiudi la Finestra&lt;/a&gt;&quot; &amp; vbCrLf 
	Response.Write &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&quot; &amp; VbCrlf
	Response.Write &quot;&lt;table class=&quot;&quot;prn_form&quot;&quot; border=0 cellpadding=0 cellspacing=2&gt;&quot; &amp; vbCrLf 
    '--- insert all fields
    for i = 1 to UBound(m_StandardFields)
			if m_StandardFields(i) = PrimaryKey Then
		  	  Response.Write InsertField (m_StandardFields(i), m_StandardFieldsValue(i), True)
			Else
		  	  Response.Write InsertField (m_StandardFields(i), m_StandardFieldsValue(i), False)
			End if
    next
    Response.Write &quot;&lt;/table&gt;&quot; &amp; vbCrLf 
End Function

''--------------------------------------------------------------------------
Private Function InsertField ( field, fieldvalue, bPrimaryKey )
	Dim sReturn, sValue
	Dim sStyle, sStyleForm
		sStyle = &quot;prn_header&quot;
		sStyleForm = &quot;prn_form_value&quot;
		if bPrimaryKey then
			sStyle = sStyle &amp; &quot;_pk&quot;
			sStyleForm = sStyleForm &amp; &quot;_pk&quot;
		end if
		sReturn = sReturn &amp; &quot;&lt;tr&gt;&lt;td class=&quot;&quot;&quot; &amp; sStyle &amp; &quot;&quot;&quot; align=right valign=bottom&gt;&quot; &amp; field &amp; &quot;&amp;nbsp;&lt;/td&gt;&lt;td class=&quot;&quot;&quot; &amp; sStyleForm &amp; &quot;&quot;&quot; width=&quot;&quot;100%&quot;&quot;&gt;&quot;
		if ISNULL(fieldvalue) then
			sValue = &quot;&amp;nbsp;&quot;
		else
			sValue = fieldvalue
			sValue = Server.HTMLEncode(sValue)
			sValue = replace(sValue, CHR(13), &quot;&lt;br&gt;&quot;)
		end if
    '--- display field value
    sReturn = sReturn &amp; sValue &amp; &quot;&lt;/td&gt;&lt;/tr&gt;&quot; &amp; vbCrLf
    InsertField = sReturn
End Function

%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Cdblist">Íàçàä</a>]