Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Admin\Cancella\Prodotti_export.asp</i><br><form method=post action="edit.asp?action=save&dir=\Admin\Cancella&file=Prodotti_export.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;%@ Language=VBScript %&gt;

&lt;!--#include file=&quot;include/Prodotti_dbconnection.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;include/Prodotti_aspfunctions.asp&quot;--&gt;




&lt;%

if Request(&quot;type&quot;)&lt;&gt;&quot;&quot; then

   set dbConnection = server.CreateObject (&quot;ADODB.Connection&quot;)
   dbConnection.ConnectionString = strConnection
   dbConnection.Open

   strSQL = Session(strTableName &amp; &quot;SQL&quot;)
	
	sWhere = &quot;&quot;
	if Instr(lcase(strSQL), &quot; where &quot;) &gt; 1 then sWhere = Mid(strSQL, Instr(lcase(strSQL), &quot; where &quot;))
	strSQL=&quot;select &quot;
	if Right(strSQL,2)= &quot;, &quot; then strSQL = Left(strSQL, Len(strSQL)-2) 
	strSQL = strSQL &amp; &quot; from &quot; &amp; strTableName &amp; sWhere
	
	

   Set rs = server.CreateObject (&quot;ADODB.Recordset&quot;)
   rs.Open strSQL, dbConnection

if Request(&quot;records&quot;)=&quot;page&quot; then

	' Pagination:
	if NOT rs.EOF then
		mypage = Request(&quot;mypage&quot;)
		rs.PageSize = Request(&quot;pagesize&quot;)
		maxRecords = cdbl(rs.RecordCount)
		maxPages=cdbl(rs.PageCount)

		if cdbl(mypage) &gt; cdbl(maxPages) then
			mypage = maxpages
		End IF
		rs.AbsolutePage = mypage
		maxrecs=cdbl(rs.pagesize)
	End IF


end if


Response.Expires=0 ' prevent caching
Response.Buffer=True
Server.ScriptTimeout = 120

	if Request(&quot;type&quot;)=&quot;excel&quot; then
		Call ExportToExcel
	elseif Request(&quot;type&quot;)=&quot;word&quot; then
		Call ExportToWord
	elseif Request(&quot;type&quot;)=&quot;xml&quot; then
		Call ExportToXML
	elseif Request(&quot;type&quot;)=&quot;csv&quot; then
		Call ExportToCSV
	end if

	rs.Close
	set rs=Nothing
	dbConnection.Close
	set dbConnection = Nothing
	
	Response.Flush 
	Response.End
 
else
%&gt;

&lt;link REL=&quot;stylesheet&quot; href=&quot;include/style.css&quot; type=&quot;text/css&quot;&gt;

&lt;html&gt;
&lt;body onLoad=&quot;javascript:if (document.frmexport.btnSubmit != null) document.frmexport.btnSubmit.focus();&quot;&gt;
	&lt;form action=&quot;Prodotti_export.asp&quot; method=get id=frmexport name=frmexport&gt;
	&lt;input type=hidden id=mypage name=mypage value=&lt;%=Request(&quot;mypage&quot;)%&gt;&gt;
	&lt;input type=hidden id=pagesize name=pagesize value=&lt;%=Request(&quot;pagesize&quot;)%&gt;&gt;	
	
	&lt;table width=440 border=0 cellpadding=3&gt;&lt;tr&gt;&lt;td&gt;
	&lt;TABLE WIDTH=100% CELLPADDING=0 CELLSPACING=0 BORDER=0&gt;
	
	&lt;TR&gt;&lt;TD BGCOLOR=black align=center&gt;

	&lt;table border=0 width=100% CELLPADDING=3 CELLSPACING=1&gt;
	&lt;tr class=blackshade&gt;
		&lt;td align=center&gt;Data range&lt;/td&gt;
		&lt;td align=center&gt;Output format&lt;/td&gt;
	&lt;/tr&gt;
	&lt;tr valign=top&gt;
	&lt;td width=220 bgcolor=white&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;records&quot; VALUE=&quot;all&quot; CHECKED&gt; All records &lt;br&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;records&quot; VALUE=&quot;page&quot;&gt; Current page only&lt;br&gt;
	&lt;/td&gt;
	&lt;td width=220 bgcolor=white&gt;
		&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;excel&quot; CHECKED&gt; &lt;img src=&quot;images/excel.gif&quot;&gt; Excel
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;word&quot;&gt; &lt;img src=&quot;images/word.gif&quot;&gt; Word
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;csv&quot;&gt; &lt;img src=&quot;images/csv.gif&quot;&gt; CSV (comma separated values)
		&lt;br&gt;&lt;INPUT TYPE=&quot;Radio&quot; NAME=&quot;type&quot; VALUE=&quot;xml&quot;&gt; &lt;img src=&quot;images/xml.gif&quot;&gt; XML
	&lt;/td&gt;
	&lt;/tr&gt;
	&lt;tr height=40 valign=middle&gt;
	&lt;td colspan=2 align=center bgcolor=white&gt;
	&lt;input type=submit name=btnSubmit id=btnSubmit value=&quot;Export&quot; class=button&gt;
	&lt;/td&gt;
	&lt;/tr&gt;
	&lt;/table&gt;
	
	&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
	&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;
	
	&lt;/form&gt;
	&lt;/body&gt;
	&lt;/html&gt;
&lt;%

Response.End
end if



Sub ExportToExcel 

Response.ContentType = &quot;application/vnd.ms-excel&quot;
Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Prodotti.xls&quot;
Response.Write &quot;&lt;body&gt;&quot;
Response.Write &quot;&lt;table&gt;&quot;

Call WriteTableData

Response.Write &quot;&lt;/table&gt;&quot;
Response.Write &quot;&lt;/body&gt;&quot;
Response.Write &quot;&lt;/html&gt;&quot; 

End Sub


Sub ExportToWord

Response.ContentType = &quot;application/vnd.ms-word&quot;

Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Prodotti.doc&quot;
Response.Write &quot;&lt;body&gt;&quot;
Response.Write &quot;&lt;table&gt;&quot;

Call WriteTableData

Response.Write &quot;&lt;/table&gt;&quot;
Response.Write &quot;&lt;/body&gt;&quot;
Response.Write &quot;&lt;/html&gt;&quot; 

End Sub

Sub ExportToXML

Response.ContentType = &quot;text/xml&quot;
Response.addheader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Prodotti.xml&quot;

'Const adPersistXML = 1
'rs.Save Response, adPersistXML 

if rs.eof then exit sub


set xmlDocument = Server.CreateObject(&quot;MSXML.DOMDocument&quot;)
set xmlRoot = xmlDocument.createElement(cXMLTopNode)

   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
		Set xmlRow = xmlDocument.createElement(cXMLRowNode)
		call xmlRoot.appendChild(xmlRow)

        


   		Response.Write vbCRLF
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop

Response.Write &quot;&lt;?xml version=&quot;&quot;1.0&quot;&quot; standalone=&quot;&quot;yes&quot;&quot;?&gt;&quot; &amp; vbcrlf &amp; xmlRoot.xml

End Sub


Sub ExportToCSV

Response.ContentType = &quot;application/csv&quot;
Response.addheader &quot;Content-Disposition&quot;, &quot;attachment; Filename=Prodotti.csv&quot;

if rs.eof then exit sub

' write header
	for i=0 to rs.Fields.Count-1
			Response.Write &quot;&quot;&quot;&quot; &amp; Label(rs.Fields(i).Name) &amp; &quot;&quot;&quot;&quot;
			if i&lt;&gt;rs.Fields.Count-1 then Response.Write &quot;, &quot;
	next	
	Response.Write vbCRLF

   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
        i = 0
        


   		Response.Write vbCRLF
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop


End Sub


Sub WriteTableData


if rs.eof then exit sub

' write header
	Response.Write &quot;&lt;tr&gt;&quot;
	for i=0 to rs.Fields.Count-1
			Response.Write &quot;&lt;td&gt;&quot; &amp; Label(rs.Fields(i).Name) &amp; &quot;&lt;/td&gt;&quot;
	next	
	Response.Write &quot;&lt;/tr&gt;&quot;


   ' write data rows
   	iNumberOfRows = 0
   	DO UNTIL rs.eof OR ( iNumberOfRows&gt;=CInt(Request(&quot;pagesize&quot;)) and _
   			Request(&quot;records&quot;)=&quot;page&quot; )
		Response.Write &quot;&lt;tr&gt;&quot;
        


		Response.Write &quot;&lt;/tr&gt;&quot;
   		rs.MoveNext
   		iNumberOfRows = iNumberOfRows + 1
   	loop

End Sub

Function XMLNameEncode(strValue)
	
	XMLNameEncode = Replace(strValue, &quot; &quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;#&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;'&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;/&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;\&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;(&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;)&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;,&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;[&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;]&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;+&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;&quot;&quot;&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;-&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;_&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;|&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;}&quot;, &quot;&quot;)
	XMLNameEncode = Replace(XMLNameEncode, &quot;{&quot;, &quot;&quot;)

End Function
%&gt;

</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CAdmin%5CCancella">Íàçàä</a>]