Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\DBList-Buoni-Spesa\adolib.inc</i><br><form method=post action="edit.asp?action=save&dir=\DBList-Buoni-Spesa&file=adolib.inc"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
' ADOLIB.INC  Rev.: 1.1
' Some usefull ADO functions
'                                               
' Microsofts ADOVBS.INC must be included before !!!
'
' These field types won't be displayed
' and are not editable
'
dim etCnt
dim ExcludeTypes()

etCnt = 0

Sub AddExcludeType( nType )
  etCnt = etCnt + 1
  Redim Preserve ExcludeTypes(etCnt)
  ExcludeTypes(etCnt) = nType
End Sub

AddExcludeType adEmpty            ' 0
AddExcludeType adError            ' 10
AddExcludeType adUserDefined      ' 132
AddExcludeType adVariant          ' 12
AddExcludeType adIDispatch        ' 9
AddExcludeType adIUnknown         ' 13
AddExcludeType adBinary           ' 128
AddExcludeType adVarBinary        ' 204
AddExcludeType adLongVarBinary    ' 205
AddExcludeType adChapter          ' 136
AddExcludeType adPropVariant      ' 138

'
' Returns the Type of an ADODB.Field as string
'
function GetTypeString (fType)
  dim sReturn
  select case fType
    case adEmpty
      sReturn = &quot;Empty&quot;
    case adTinyInt
      sReturn = &quot;TinyInt&quot;
    case adSmallInt
      sReturn = &quot;SmallInt&quot;
    case adInteger
      sReturn = &quot;Integer&quot;
    case adBigInt
      sReturn = &quot;BigInt&quot;
    case adUnsignedTinyInt
      sReturn = &quot;UnsignedTinyInt&quot;
    case adUnsignedSmallInt
      sReturn = &quot;UnsignedSmallInt&quot;
    case adUnsignedInt
      sReturn = &quot;UnsignedInt&quot;
    case adUnsignedBigInt
      sReturn = &quot;UnsignedBigInt&quot;
    case adSingle
      sReturn = &quot;Single&quot;
    case adDouble
      sReturn = &quot;Double&quot;
    case adCurrency
      sReturn = &quot;Currency&quot;
    case adDecimal
      sReturn = &quot;Decimal&quot;
    case adNumeric
      sReturn = &quot;Numeric&quot;
    case adBoolean
      sReturn = &quot;Boolean&quot;
    case adError
      sReturn = &quot;Error&quot;
    case adUserDefined
      sReturn = &quot;UserDefined&quot;
    case adVariant
      sReturn = &quot;Variant&quot;
    case adIDispatch
      sReturn = &quot;IDispatch&quot;
    case adIUnknown
      sReturn = &quot;IUnknown&quot;
    case adGUID
      sReturn = &quot;GUID&quot;
    case adDate
      sReturn = &quot;Date&quot;
    case adDBDate
      sReturn = &quot;DBDate&quot;
    case adDBTime
      sReturn = &quot;DBTime&quot;
    case adDBTimeStamp
      sReturn = &quot;DBTimeStamp&quot;
    case adBSTR
      sReturn = &quot;BSTR&quot;
    case adChar
      sReturn = &quot;Char&quot;
    case adVarChar
      sReturn = &quot;VarChar&quot;
    case adLongVarChar
      sReturn = &quot;LongVarChar&quot;
    case adWChar
      sReturn = &quot;WChar&quot;
    case adVarWChar
      sReturn = &quot;VarWChar&quot;
    case adLongVarWChar
      sReturn = &quot;LongVarWChar&quot;
    case adBinary
      sReturn = &quot;Binary&quot;
    case adVarBinary
      sReturn = &quot;VarBinary&quot;
    case adLongVarBinary
      sReturn = &quot;LongVarBinary&quot;
    case adChapter
      sReturn = &quot;Chapter&quot;
    case adPropVariant
      sReturn = &quot;PropVariant&quot;
    case else
      sReturn = &quot;Unknown&quot;
  end select

  GetTypeString = sReturn
end function

'
' Restituisce gli attributi di un ADODB.Field come stringa
'
function GetAttributesString(nAttrib)
  dim sReturn
  sReturn = &quot;&quot;
  if (nAttrib and adFldMayDefer) then sReturn = sReturn &amp; &quot;MayDefer, &quot;
  if (nAttrib and adFldUpdatable) then sReturn = sReturn &amp; &quot;Updatable, &quot;
  if (nAttrib and adFldUnknownUpdatable) then sReturn = sReturn &amp; &quot;UnknownUpdatable, &quot;
  if (nAttrib and adFldFixed) then sReturn = sReturn &amp; &quot;Fixed, &quot;
  if (nAttrib and adFldIsNullable) then sReturn = sReturn &amp; &quot;IsNullable, &quot;
  if (nAttrib and adFldMayBeNull) then sReturn = sReturn &amp; &quot;MayBeNull, &quot;
  if (nAttrib and adFldLong) then sReturn = sReturn &amp; &quot;Long, &quot;
  if (nAttrib and adFldRowID) then sReturn = sReturn &amp; &quot;RowID, &quot;
  if (nAttrib and adFldRowVersion) then sReturn = sReturn &amp; &quot;RowVersion, &quot;
  if (nAttrib and adFldCacheDeferred) then sReturn = sReturn &amp; &quot;CacheDeferred, &quot;
  if sReturn &lt;&gt; &quot;&quot; then sReturn = Left(sReturn, Len(sReturn)-2)

  GetAttributesString = sReturn
end function

'
' Verifica, se un attributo specificato Ã¨ stato impostato
'
function Attrib(nField, nAttrib)
  Attrib = (nField and nAttrib)
end function

'
' Verifica, se un attributo specificato non Ã¨ impostato
'
function NotAttrib(nField, nAttrib)
  if Attrib(nField, nAttrib) then
    NotAttrib = false
  else
    NotAttrib = true
  end if
end function

'
' Verifica, se il tipo di dato Ã¨ in lista esclusioni
'
function IsExcluded( nType )
	Dim bReturn, ii
  bReturn = false
  for ii = 1 to etCnt
    if nType = ExcludeTypes(ii) then bReturn = True
  next
  IsExcluded = bReturn
end function

%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CDBList%2DBuoni%2DSpesa">Íàçàä</a>]