Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\titolare_export.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=titolare_export.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/titolare_variables.asp&quot;--&gt;
&lt;!--#include file=&quot;libs/smarty.asp&quot;--&gt;
&lt;%
if SESSION(&quot;UserID&quot;)=&quot;&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?message=expired&quot;
	response.End
end if
if not CheckSecurity(SESSION(&quot;_&quot; &amp; strTableName &amp; &quot;_OwnerID&quot;),&quot;Export&quot;) then
	response.Write &quot;&lt;p&gt;&quot; &amp; &quot;Non hai il permesso per accedere a questa tabella&quot; &amp; &quot;&lt;a href=&quot;&quot;login.asp&quot;&quot;&gt;&quot; &amp; &quot;Torna alla pagina di login&quot; &amp; &quot;&lt;/a&gt;&lt;/p&gt;&quot;
	response.End
end if

dbConnection=&quot;&quot;
db_connect()
DoEvent &quot;BeforeProcessExport dbConnection&quot;

options =&quot;1&quot;		
if request(&quot;a&quot;)&lt;&gt;&quot;&quot; then
	sWhere = &quot;1=0&quot;	
	options =&quot;&quot;
	'process selection

	set selected_recs = CreateObject(&quot;Scripting.Dictionary&quot;)
	if request(&quot;mdelete[]&quot;).Count&gt;0 then
		for ind=1 to request(&quot;mdelete[]&quot;).Count
			set keys = CreateObject(&quot;Scripting.Dictionary&quot;)
			AddDict keys,&quot;titolare&quot;,request(&quot;mdelete1[]&quot;).Item(request(&quot;mdelete[]&quot;).Item(ind))
			AddDict selected_recs, ind, keys
		next
	elseif request(&quot;selection[]&quot;).Count&gt;0 then
	
		for ind=1 to request(&quot;selection[]&quot;).Count
			set keys = CreateObject(&quot;Scripting.Dictionary&quot;)
			arr = split(request(&quot;selection[]&quot;).Item(ind) ,&quot;&amp;&quot;)
			if UBound(arr)-LBound(arr) = 1 - 1 then
				AddDict keys,&quot;titolare&quot;, HTMLDecode(arr(0))
				AddDict selected_recs, ind, keys
			end if
		next
	end if

	sr = selected_recs.Items
	for ind=1 to selected_recs.Count
		set keys = sr(ind-1)
		sWhere=sWhere &amp; &quot; or &quot;
		sWhere=sWhere &amp; KeyWhere(keys,&quot;&quot;)
	next

	strSQL = gSQLWhereAdd(sWhere)
	strWhereClause=sWhere
	SESSION(strTableName &amp; &quot;_SelectedSQL&quot;) = strSQL
	SESSION(strTableName &amp; &quot;_SelectedWhere&quot;) = sWhere
end if	

smarty.Add &quot;options&quot;,options

if SESSION(strTableName &amp; &quot;_SelectedSQL&quot;)&lt;&gt;&quot;&quot; and request.QueryString(&quot;records&quot;)=&quot;&quot; then 
	strSQL = SESSION(strTableName &amp; &quot;_SelectedSQL&quot;)
	strWhereClause=SESSION(strTableName &amp; &quot;_SelectedWhere&quot;)
else
	strWhereClause=SESSION(strTableName &amp; &quot;_where&quot;)
	strSQL=gSQLWhereAdd(strWhereClause)
end if


mypage=1

if REQUEST(&quot;type&quot;)&lt;&gt;&quot;&quot; then
	Set rs = server.CreateObject(&quot;ADODB.Recordset&quot;)
	Set rss = server.CreateObject(&quot;ADODB.Recordset&quot;)

	strOrderBy=SESSION(strTableName &amp; &quot;_order&quot;)
	if strOrderBy=&quot;&quot; then _
		strOrderBy=gstrOrderBy
	strSQL= strSQL &amp; &quot; &quot; &amp; trim(strOrderBy)

	strSQLbak = strSQL
	DoEvent &quot;BeforeQueryExport strSQL,strWhereClause,strOrderBy&quot;
'	Rebuild SQL if needed
	if strSQLbak &lt;&gt; strSQL then
'	changed strSQL - old style	
		numrows=GetRowCount(strSQL)
	else
		strSQL = gSQLWhereAdd(strWhereClause)
		strSQL= strSQL &amp; &quot; &quot; &amp; trim(strOrderBy)
		numrows=gSQLRowCount(strWhereClause)
	end if
	LogInfo(strSQL)
	
'//	pagination
	nPageSize=0

	if REQUEST(&quot;records&quot;)=&quot;page&quot; and numrows&gt;0 then
		mypage=SESSION(strTableName &amp; &quot;_pagenumber&quot;)
		nPageSize=SESSION(strTableName &amp; &quot;_pagesize&quot;)
		if numrows&lt;=(mypage-1)*nPageSize then
			mypage=int(numrows/nPageSize)
		end if
		if nPageSize=&quot;&quot; then nPageSize=gPageSize
		if mypage=&quot;&quot; then mypage=1



		strSQL = AddTop(strSQL, mypage*nPageSize)
	end if
	rs.Open strSQL, dbConnection,1,2
	if not rs.EOF then rs.Move(nPageSize*(mypage-1))

	Server.ScriptTimeOut=300
	
	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
	elseif REQUEST(&quot;type&quot;)=&quot;pdf&quot; then
		call ExportToPDF
	end if

	rs.Close
	response.End
end if

'Response.AddHeader(&quot;Expires: Thu, 01 Jan 1970 00:00:01 GMT&quot;)

smarty_display(&quot;titolare_export.htm&quot;)


sub ExportToExcel()
	Response.ContentType = &quot;application/vnd.ms-excel&quot;
	Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment;Filename=titolare.xls&quot;

	response.Write &quot;&lt;html&gt;&quot;
	response.Write &quot;&lt;html xmlns:o=&quot;&quot;urn:schemas-microsoft-com:office:office&quot;&quot; xmlns:x=&quot;&quot;urn:schemas-microsoft-com:office:excel&quot;&quot; xmlns=&quot;&quot;http://www.w3.org/TR/REC-html40&quot;&quot;&gt;&quot;
	
	response.Write &quot;&lt;meta http-equiv=&quot;&quot;Content-Type&quot;&quot; content=&quot;&quot;text/html; charset=&quot; &amp; cCharset &amp; &quot;&quot;&quot;&gt;&quot;
	response.Write &quot;&lt;body&gt;&quot;
	response.Write &quot;&lt;table border=1&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=titolare.doc&quot;

	response.Write &quot;&lt;html&gt;&quot;
	response.Write &quot;&lt;meta http-equiv=&quot;&quot;Content-Type&quot;&quot; content=&quot;&quot;text/html; charset=&quot; &amp; cCharset &amp; &quot;&quot;&quot;&gt;&quot;
	response.Write &quot;&lt;body&gt;&quot;
	response.Write &quot;&lt;table border=1&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=titolare.xml&quot;
	if rs.EOF then exit sub

	response.Write &quot;&lt;?xml version=&quot;&quot;1.0&quot;&quot; encoding=&quot;&quot;&quot; &amp; cCharset &amp; &quot;&quot;&quot; standalone=&quot;&quot;yes&quot;&quot;?&gt;&quot; &amp; vbcrlf
	response.Write &quot;&lt;table&gt;&quot; &amp; vbcrlf
	i=0
	while (nPageSize=0 or i&lt;nPageSize) and not rs.EOF
		response.Write &quot;&lt;row&gt;&quot; &amp; vbcrlf
		field=my_htmlspecialchars(XMLNameEncode(&quot;titolare&quot;))
		response.Write &quot;&lt;&quot; &amp; field &amp; &quot;&gt;&quot;
		response.Write my_htmlspecialchars(GetData(rs,&quot;titolare&quot;,&quot;&quot;))
		response.Write &quot;&lt;/&quot; &amp; field &amp; &quot;&gt;&quot; &amp; vbcrlf
		response.Write &quot;&lt;/row&gt;&quot; &amp; vbcrlf
		i=i+1
		rs.MoveNext
	wend
	response.Write &quot;&lt;/table&gt;&quot; &amp; vbcrlf
end sub

sub ExportToCSV
	Response.ContentType = &quot;application/csv&quot;
	Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment;Filename=titolare.csv&quot;
	if rs.EOF then exit sub
	
	set totals = CreateObject(&quot;Scripting.Dictionary&quot;)

	
'// write header
	outstr=&quot;&quot;
	if outstr&lt;&gt;&quot;&quot; then outstr=outstr &amp; &quot;,&quot;
	outstr=outstr &amp;  &quot;&quot;&quot;titolare&quot;&quot;&quot;
	response.Write outstr &amp; vbcrlf

'// write data rows
	iNumberOfRows = 0
	while (nPageSize=0 or iNumberOfRows&lt;nPageSize) and not rs.EOF
		outstr=&quot;&quot;
		if outstr&lt;&gt;&quot;&quot; then outstr=outstr &amp; &quot;,&quot;
			fformat=&quot;&quot;
		outstr=outstr &amp; &quot;&quot;&quot;&quot; &amp; my_htmlspecialchars(GetData(rs,&quot;titolare&quot;,fformat)) &amp; &quot;&quot;&quot;&quot;
		response.Write outstr &amp; vbcrlf
		iNumberOfRows=iNumberOfRows+1
		rs.MoveNext
	wend
'//	display totals
	first=true

end sub


sub WriteTableData
	if rs.EOF then exit sub
'// write header
	response.Write &quot;&lt;tr&gt;&quot;
	if REQUEST(&quot;type&quot;)=&quot;excel&quot; then
		response.Write &quot;&lt;td style=&quot;&quot;width: 100&quot;&quot; x:str&gt;&quot; &amp; PrepareForExcel(&quot;titolare&quot;) &amp; &quot;&lt;/td&gt;&quot;
	else
		response.Write &quot;&lt;td&gt;titolare&lt;/td&gt;&quot;
	end if
	response.Write &quot;&lt;/tr&gt;&quot;

	set totals = CreateObject(&quot;Scripting.Dictionary&quot;)
'// write data rows
	iNumberOfRows = 0
	while (nPageSize=0 or iNumberOfRows&lt;nPageSize) and not rs.EOF
		response.Write &quot;&lt;tr&gt;&quot;
	if REQUEST(&quot;type&quot;)=&quot;excel&quot; then
		response.Write &quot;&lt;td x:str&gt;&quot;
	else
		response.Write &quot;&lt;td&gt;&quot;
	end if

		fformat=&quot;&quot;
			if REQUEST(&quot;type&quot;)=&quot;excel&quot; then
			response.Write PrepareForExcel(GetData(rs,&quot;titolare&quot;,fformat))
		else
			response.Write my_htmlspecialchars(GetData(rs,&quot;titolare&quot;,fformat))
		end if
	response.Write &quot;&lt;/td&gt;&quot;
		response.Write &quot;&lt;/tr&gt;&quot;
		iNumberOfRows=iNumberOfRows+1
		rs.MoveNext
	wend

end sub

function XMLNameEncode(strValue)
	dim arr(18)
	arr(0)=&quot; &quot;
	arr(1)=&quot;#&quot;
	arr(2)=&quot;'&quot;
	arr(3)=&quot;/&quot;
	arr(4)=&quot;\\&quot;
	arr(5)=&quot;(&quot;
	arr(6)=&quot;)&quot;
	arr(7)=&quot;,&quot;
	arr(8)=&quot;[&quot;
	arr(9)=&quot;]&quot;
	arr(10)=&quot;+&quot;
	arr(11)=&quot;\&quot;&quot;&quot;
	arr(12)=&quot;-&quot;
	arr(13)=&quot;_&quot;
	arr(14)=&quot;|&quot;
	arr(15)=&quot;}&quot;
	arr(16)=&quot;{&quot;
	arr(17)=&quot;=&quot;
	dim strTemp
	strTemp=strValue
	for i=0 to ubound(arr)
		strTemp=replace(strTemp,arr(i),&quot;&quot;)
	next
	XMLNameEncode = strTemp
end function

function PrepareForExcel(str)
	ret = my_htmlspecialchars(str)
	if mid(ret,1,1)= &quot;=&quot; then ret = &quot;&amp;#61;&quot; &amp; mid(ret,2)
	PrepareForExcel = ret
end function

%&gt;
&lt;!--#include file=&quot;libs/fpdf.asp&quot;--&gt;
&lt;%

sub ExportToPDF

Dim pdf
Set pdf=CreateJsObject(&quot;FPDF&quot;)
pdf.CreatePDF()
pdf.SetPath(&quot;libs/fpdf/&quot;)
pdf.SetFont &quot;Courier&quot;,&quot;&quot;,8
pdf.Open()
pdf.LoadModels(&quot;include/titolare_models.asp&quot;)



pdf.AddPage()

' write data rows
	iNumberOfRows = 0
	while (nPageSize=0 or iNumberOfRows&lt;nPageSize) and not rs.EOF
		pdf.maxheight=pdf.rowheight
		x=pdf.leftmargin
		pdf.SetY(pdf.y0)
		pdf.SetX(x)
		pdf.MultiCell pdf.GetColWidth(&quot;titolare&quot;),pdf.rowheight,GetData(rs,&quot;titolare&quot;,&quot;&quot;)

		x=x+pdf.GetColWidth(&quot;titolare&quot;)
		if pdf.GetY()-pdf.y0&gt;pdf.maxheight then
			pdf.maxheight=pdf.GetY()-pdf.y0
		end if
'	draw lines
		x=pdf.leftmargin
		pdf.Rect x,pdf.y0,pdf.GetColWidth(&quot;titolare&quot;),pdf.maxheight
		x=x+pdf.GetColWidth(&quot;titolare&quot;)
		pdf.y0 = pdf.y0+pdf.maxheight

		iNumberOfRows=iNumberOfRows+1
		rs.MoveNext
	wend

Response.ContentType = &quot;application/pdf&quot;
Response.AddHeader &quot;Content-Disposition&quot;, &quot;attachment;Filename=titolare.pdf&quot;
pdf.Close()
response.write pdf.buffer

end sub

sub OutputImage(img)
  response.binarywrite img
end sub
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]