Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\titolare_print.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD&file=titolare_print.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;BeforeProcessPrint dbConnection&quot;

Set rs = server.CreateObject(&quot;ADODB.Recordset&quot;)
Set rss = server.CreateObject(&quot;ADODB.Recordset&quot;)

strWhereClause=&quot;&quot;

if request(&quot;a&quot;)&lt;&gt;&quot;&quot; then
	sWhere = &quot;1=0&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
else
	strWhereClause=SESSION(strTableName &amp; &quot;_where&quot;)
	strSQL = gSQLWhereAdd(strWhereClause)
end if	

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;BeforeQueryPrint strSQL,strWhereClause,strOrderBy&quot;

'	Rebuild SQL if needed
if strSQL&lt;&gt;strSQLbak 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)

DoEvent &quot;BeforeQueryPrint strSQL&quot;

'	 Pagination:
mypage=cint(SESSION(strTableName &amp; &quot;_pagenumber&quot;))
if mypage=0 then mypage=1

'	page size
PageSize=cint(SESSION(strTableName &amp; &quot;_pagesize&quot;))
if PageSize=0 then PageSize=gPageSize

recno=1
	
if numrows&gt;0 then
	maxRecords = numrows
	maxpages=int(maxRecords/PageSize)
	if maxRecords mod PageSize &lt;&gt; 0 then maxpages=maxpages+1
	if mypage &gt; maxpages then mypage = maxpages
	if mypage&lt;1 then mypage=1
	maxrecs=PageSize
	
		strSQL = AddTop(strSQL, mypage*PageSize)
	end if
	rs.Open strSQL, dbConnection,1,2
	if not rs.EOF then rs.Move(PageSize*(mypage-1))

'	hide colunm headers if needed
recordsonpage=numrows-(mypage-1)*PageSize
if recordsonpage&gt;PageSize then _
	recordsonpage=PageSize
	if recordsonpage&gt;=1 then
		smarty.Add &quot;column1show&quot;,true
	else
		smarty.Add &quot;column1show&quot;,false
	end if



	Set rowinfo = CreateObject(&quot;Scripting.Dictionary&quot;)

	
ri=0
	while not rs.EOF and recno&lt;=PageSize
		Set row = CreateObject(&quot;Scripting.Dictionary&quot;)
		col=0
		do while not rs.eof
			retval=true
			DoEvent &quot;retval=BeforeProcessRowPrint(rs)&quot;
			if retval=false then
				rs.MoveNext
			else
				exit do
			end if
		loop
		while not rs.EOF and recno&lt;=PageSize and col&lt;1
			col=col+1

			recno=recno+1
			keylink=&quot;&quot;
			keylink=keylink &amp; &quot;&amp;key1=&quot; &amp; my_htmlspecialchars(server.urlencode(dbvalue(rs(&quot;titolare&quot;))))

Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)


'	titolare - 
	value=&quot;&quot;
				value = ProcessLargeText(GetData(rs,&quot;titolare&quot;, &quot;&quot;),&quot;field=titolare&quot; &amp; keylink,&quot;&quot;,MODE_PRINT)
			row.Add col &amp; &quot;titolare_value&quot;,value &amp; &quot;&amp;nbsp;&quot;
			row.Add col &amp; &quot;show&quot;,true
			DoEvent &quot;BeforeMoveNextPrint rs,row,col&quot;
			rs.MoveNext
			do while not rs.eof
				retval=true
				DoEvent &quot;retval=BeforeProcessRowPrint(rs)&quot;
				if retval=false then
					rs.MoveNext
				else
					exit do
				end if
			loop
		wend
		rowinfo.Add ri,row
		ri=ri+1
	wend
	smarty.Add &quot;rowinfo&quot;,rowinfo
	rs.Close


	

strSQL=SESSION(strTableName &amp; &quot;_sql&quot;)

templatefile = &quot;titolare_print.htm&quot;
DoEvent &quot;BeforeShowPrint smarty,templatefile&quot;
smarty_display(templatefile)
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD">Íàçàä</a>]