Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Buoni-spesa-OLD\include\dbcommon.asp</i><br><form method=post action="edit.asp?action=save&dir=\Buoni-spesa-OLD\include&file=dbcommon.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%

cCharset = &quot;Windows-1252&quot;

'response.AddHeader &quot;Content-type&quot;, &quot;text/html;charset=&quot; &amp; cCharset
response.Charset=cCharset

dDebug=false
useAJAX=true
suggestAllContent=true

Session.LCID = 1040
session.codepage=1252

dSQL=&quot;&quot;

Set tables_data = CreateObject(&quot;Scripting.Dictionary&quot;)

%&gt;
&lt;!--#include file=&quot;locale.asp&quot;--&gt;
&lt;!--#include file=&quot;events.asp&quot;--&gt;
&lt;!--#include file=&quot;commonfunctions.asp&quot;--&gt;
&lt;!--#include file=&quot;dbconnection.asp&quot;--&gt;
&lt;%
Const FORMAT_NONE					= &quot;&quot;
Const FORMAT_DATE_SHORT				= &quot;Short Date&quot;
Const FORMAT_DATE_LONG				= &quot;Long Date&quot;
Const FORMAT_DATE_TIME				= &quot;Datetime&quot;
Const FORMAT_TIME					= &quot;Time&quot;
Const FORMAT_CURRENCY				= &quot;Currency&quot;
Const FORMAT_PERCENT				= &quot;Percent&quot;
Const FORMAT_HYPERLINK				= &quot;Hyperlink&quot;
Const FORMAT_EMAILHYPERLINK			= &quot;Email Hyperlink&quot;
Const FORMAT_FILE_IMAGE				= &quot;File-based Image&quot;
Const FORMAT_DATABASE_IMAGE			= &quot;Database Image&quot;
Const FORMAT_DATABASE_FILE			= &quot;Database File&quot;
Const FORMAT_FILE					= &quot;Document Download&quot;
Const FORMAT_LOOKUP_WIZARD			= &quot;Lookup wizard&quot;
Const FORMAT_PHONE_NUMBER			= &quot;Phone Number&quot;
Const FORMAT_NUMBER					= &quot;Number&quot;
Const FORMAT_HTML					= &quot;HTML&quot;
Const FORMAT_CHECKBOX				= &quot;Checkbox&quot;
Const FORMAT_CUSTOM					= &quot;Custom&quot;

Const EDIT_FORMAT_NONE				= &quot;&quot;
Const EDIT_FORMAT_TEXT_FIELD		= &quot;Text field&quot;
Const EDIT_FORMAT_TEXT_AREA			= &quot;Text area&quot;
Const EDIT_FORMAT_PASSWORD			= &quot;Password&quot;
Const EDIT_FORMAT_DATE				= &quot;Date&quot;
Const EDIT_FORMAT_TIME				= &quot;Time&quot;
Const EDIT_FORMAT_RADIO				= &quot;Radio button&quot;
Const EDIT_FORMAT_CHECKBOX			= &quot;Checkbox&quot;
Const EDIT_FORMAT_DATABASE_IMAGE	= &quot;Database image&quot;
Const EDIT_FORMAT_DATABASE_FILE		= &quot;Database file&quot;
Const EDIT_FORMAT_FILE				= &quot;Document upload&quot;
Const EDIT_FORMAT_LOOKUP_WIZARD		= &quot;Lookup wizard&quot;
Const EDIT_FORMAT_HIDDEN			= &quot;Hidden field&quot;
Const EDIT_FORMAT_READONLY			= &quot;Readonly&quot;

Const EDIT_DATE_SIMPLE				= 0
Const EDIT_DATE_SIMPLE_DP			= 11
Const EDIT_DATE_DD					= 12
Const EDIT_DATE_DD_DP				= 13

Const MODE_ADD						= 0
Const MODE_EDIT						= 1
Const MODE_SEARCH					= 2
Const MODE_LIST						= 3
Const MODE_PRINT					= 4
Const MODE_VIEW						= 5
Const MODE_INLINE_ADD				= 6
Const MODE_INLINE_EDIT				= 7

Const LOGIN_HARDCODED				= 0
Const LOGIN_TABLE					= 1

Const ADVSECURITY_ALL				= 0
Const ADVSECURITY_VIEW_OWN			= 1
Const ADVSECURITY_EDIT_OWN			= 2
Const ADVSECURITY_NONE				= 3

Const ACCESS_LEVEL_ADMIN			= &quot;Admin&quot;
Const ACCESS_LEVEL_ADMINGROUP		= &quot;AdminGroup&quot;
Const ACCESS_LEVEL_USER				= &quot;User&quot;
Const ACCESS_LEVEL_GUEST			= &quot;Guest&quot;

Const DATABASE_MySQL				= &quot;MYSQL&quot;
Const DATABASE_Oracle				= &quot;ORACLE&quot;
Const DATABASE_MSSQLServer			= &quot;MS SQL SERVER&quot;
Const DATABASE_Access				= &quot;ACCESS&quot;

Const RTE_BASIC 				= &quot;BASIC&quot;
Const RTE_FCK 					= &quot;FCK&quot;
Const RTE_INNOVA				= &quot;INNOVA&quot;


strLeftWrapper=&quot;[&quot;
strRightWrapper=&quot;]&quot;

cLoginTable				= &quot;&quot;
cUserNameField			= &quot;&quot;
cPasswordField			= &quot;&quot;
cUserGroupField			= &quot;&quot;
cEmailField				= &quot;&quot;

cFrom 					= &quot;&quot;
cSmtpServer 			= &quot;&quot;
cSmtpPort 				= &quot;&quot;
cSMTPUser				= &quot;&quot;
cSMTPPassword			= &quot;&quot;



function db_connect()
	set dbConnection = server.CreateObject(&quot;ADODB.Connection&quot;)
   	dbConnection.ConnectionString = strConnection
   	dbConnection.Open
end function
function AddTableWrappers(strName)
	if mid(strName,1,1)=strLeftWrapper then
		AddTableWrappers = strName
		exit function
	end if
	dim arr
	arr=split(strName,&quot;.&quot;)
	ret=strLeftWrapper &amp; arr(0) &amp; strRightWrapper
	if ubound(arr)&gt;0 then ret=ret &amp; &quot;.&quot; &amp; strLeftWrapper &amp; arr(1) &amp; strRightWrapper
	AddTableWrappers = ret
end function

function db_upper(dbval)
	db_upper = &quot;ucase(&quot; &amp; dbval &amp; &quot;)&quot;
end function

function AddFieldWrappers(strName)
	if mid(strName,1,1)=strLeftWrapper then
		AddFieldWrappers = strName
	else
		AddFieldWrappers = strLeftWrapper &amp; strName &amp; strRightWrapper
	end if
end function
function FieldNeedQuotes(rs,field)
	ttype=db_fieldtype(rs,field)
	if ttype=20 or ttype=128 or ttype=11 or ttype=6 or ttype=14 or ttype=5 or ttype=3 or ttype=131 _
	or ttype=4	or ttype=2	or ttype=16 or ttype=21 or ttype=19 or ttype=18 or ttype=17 or ttype=139 then
		FieldNeedQuotes = false
	else
		FieldNeedQuotes = true
	end if
end function
function db_addslashes(str)
	db_addslashes = replace(str,&quot;'&quot;,&quot;''&quot;)
end function
function db_datequotes(val)
	db_datequotes = &quot;#&quot; &amp; val &amp; &quot;#&quot;
end function
function db_stripslashesbinary(str)
'//	try to remove ole header for BMP pictures
	pos = instrb(str,unicode2bytes(&quot;.Picture&quot;))
	if pos=0 or pos&gt;300 then 
		db_stripslashesbinary = str
		exit function
	end if
	pos1=instrb(pos,str,unicode2bytes(&quot;BM&quot;))
	if pos1=0 or pos1&gt;300 then
		db_stripslashesbinary = str
		exit function
	end if
	db_stripslashesbinary = midb(str,pos1)
end function

function db_fieldtype(lhandle,fname)
	Dim i
	for i=0 to db_numfields(lhandle)-1
		if db_fieldname(lhandle,i)=fname then
			ttype=db_fieldtypen(lhandle,i)
			db_fieldtype = ttype
			exit function
		end if
	next
	db_fieldtype = &quot;&quot;
end function
function db_numfields(lhandle)
	db_numfields = lhandle.Fields.Count
end function

function db_fieldname(lhandle,fnumber)
	db_fieldname = lhandle.Fields(fnumber).Name
end function

function db_fieldtypen(lhandle,fnumber)
	db_fieldtypen = lhandle.Fields(fnumber).Type
end function

function date2str(val)
	if isnull(val) then
		date2str=&quot;&quot;
		exit function
	end if
	if isdate(val) then
		date2str = CStr(year(val)) &amp; &quot;-&quot; &amp; CStr(month(val)) &amp; &quot;-&quot; &amp; CStr(day(val)) &amp; _
				&quot; &quot; &amp; CStr(hour(val)) &amp; &quot;:&quot; &amp; CStr(minute(val)) &amp; &quot;:&quot; &amp; CStr(second(val))
		exit function
	end if
	date2str=&quot;&quot;
end function

Function CalcSearchParameters

	dim ret
	ret=&quot;&quot;
	if SESSION(strTableName &amp; &quot;_search&quot;)=2 then
	'	 advanced search
		
		set strTableName_asearchfortype = SESSION(strTableName &amp; &quot;_asearchfortype&quot;)
		set strTableName_asearchnot = SESSION(strTableName &amp; &quot;_asearchnot&quot;)
		set strTableName_asearchopt = SESSION(strTableName &amp; &quot;_asearchopt&quot;)
		set strTableName_asearchfor = SESSION(strTableName &amp; &quot;_asearchfor&quot;)
		set strTableName_asearchfor2 = SESSION(strTableName &amp; &quot;_asearchfor2&quot;)

		sWhere=&quot;&quot;
		for each f in strTableName_asearchfor
			strSearchFor=trim(strTableName_asearchfor.item(f))
			strSearchFor2=&quot;&quot;
			ttype=strTableName_asearchfortype.item(f)
			
			for each i in strTableName_asearchfor2
				if f=i then strSearchFor2=trim(strTableName_asearchfor2.item(i))
			next
		
			if strSearchFor&lt;&gt;&quot;&quot; or true then
				if sWhere=&quot;&quot; then
					if session(strTableName &amp; &quot;_asearchtype&quot;)=&quot;and&quot; then
						sWhere=&quot;1=1&quot;
					else
						sWhere=&quot;1=0&quot;
					end if
				end if
				snot=strTableName_asearchnot.item(f)
				strSearchOption=trim(strTableName_asearchopt.Item(f))
				where=&quot;&quot;
				where=StrWhereAdv(f, strSearchFor, strSearchOption, strSearchFor2,ttype)
				if where&lt;&gt;&quot;&quot; then
					if snot&lt;&gt;&quot;&quot; then where=&quot;not (&quot; &amp; where &amp; &quot;)&quot;
					if SESSION(strTableName &amp; &quot;_asearchtype&quot;)=&quot;and&quot; then
	   					sWhere=sWhere &amp;  &quot; and &quot; &amp; where
					else
	   					sWhere=sWhere &amp;  &quot; or &quot; &amp; where
	   				end if
				end if
			end if
		next
		ret=whereAdd(ret,sWhere)
	end if
	CalcSearchParameters = ret
End Function

%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CBuoni%2Dspesa%2DOLD%5Cinclude">Íàçàä</a>]