<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %> <% 'Struttura del file delle costanti da NON modificare a mano: ' '---AREA ' 'Commento ' miacostante = miovalore ' 'Commento ' miacostante = miovalore ' '---AREA ' 'Commento ' miacostante = miovalore ' ' Struttura interna (da non usare/modificare): ' Le variabili che iniziano con "Num_" sono numeriche (non stringhe), mentre quelle che iniziano con "Abilita_" sono booleane (non stringhe) ' Nel FORM di modifica sono stati introdotti i campi "Commento_" e "Area_" per riportare la stessa gerarchia Dim FilCostanti, Costanti, Riga, I, NomeFileCostanti %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Configurazione%>

<% If Request.QueryString("a") = "elenca" Then If Session("BLOGAdmin") = True Then Select Case Request.Form("Sezione") Case "1" NomeFileCostanti = "inc_costanti_articoli.asp" Case "2" NomeFileCostanti = "inc_costanti_autori.asp" Case "3" NomeFileCostanti = "inc_costanti_blog.asp" Case "4" NomeFileCostanti = "inc_costanti_classifica.asp" Case "5" NomeFileCostanti = "inc_costanti_colori.asp" Case "6" NomeFileCostanti = "inc_costanti_commenti.asp" Case "7" NomeFileCostanti = "inc_costanti_condivise.asp" Case "8" NomeFileCostanti = "inc_costanti_fotografie.asp" Case "9" NomeFileCostanti = "inc_costanti_homepage.asp" Case "10" NomeFileCostanti = "inc_costanti_immagini.asp" Case "11" NomeFileCostanti = "inc_costanti_intestazione.asp" Case "12" NomeFileCostanti = "inc_costanti_navigazione.asp" Case "13" NomeFileCostanti = "inc_costanti_pubblicazioni.asp" Case "14" NomeFileCostanti = "inc_costanti_ricerca.asp" Case "15" NomeFileCostanti = "inc_costanti_sistema.asp" Case "16" NomeFileCostanti = "inc_costanti_sondaggio.asp" Case "17" NomeFileCostanti = "inc_costanti_storico.asp" Case "18" NomeFileCostanti = "inc_costanti_pannello.asp" Case Else NomeFilEcostanti = "" End Select Set FilCostanti = CreateObject("Scripting.FileSystemObject") If FilCostanti.FileExists(Server.MapPath("/mdb-database/" & NomeFileCostanti)) = True Then %>

<%=Testo_IntroduzioneTesti_Configurazione%>

" method="post"> <% Set Costanti = FilCostanti.OpenTextFile(Server.MapPath("/mdb-database/" & NomeFileCostanti), 1, 0, 0) I = 0 Do While Costanti.AtEndOfStream <> True Riga = "" Riga = Costanti.ReadLine I = I + 1 If Left(Riga, 4) = "'---" Then %> <% Else If Left(Riga, 1) = "'" Then %> <% Else If Left(Riga, 1) <> "" AND Left(Riga, 1) <> " " AND Left(Riga, 1) <> "<" AND Left(Riga, 1) <> "%" AND Left(Riga, 8) <> "Abilita_" AND Left(Riga, 4) <> "Num_" Then %> <% Else If Left(Riga, 8) = "Abilita_" Then %> <% End If If Left(Riga, 4) = "Num_" Then %> <% End If End If End If End If Loop %>

<%=UCase(Mid(Riga, 5, Len(Riga) - 4))%>

<%=Mid(Riga, 2, Len(Riga) - 1)%>:

" value="si" <%If Mid(Riga, InStr(Riga, "=") + 2, Len(Riga) - InStr(Riga, "=") - 1) = "True" Then Response.Write "checked" End If%>> Si " value="no" <%If Mid(Riga, InStr(Riga, "=") + 2, Len(Riga) - InStr(Riga, "=") - 1) = "False" Then Response.Write "checked" End If%>> No

" size="55" maxlength="5" value="<%=Mid(Riga, InStr(Riga, "=") + 2, Len(Riga) - InStr(Riga, "=") - 1)%>">

<% Else %> <%=Testo_Errore_FileCostanti_NonTrovato%> <% End If Else %> <%=Testo_Errore_FunzioneRiservataAdmin%> <% End If Set FilCostanti = Nothing Set Costanti = Nothing Else %>

<%=Testo_Introduzione_Configurazione%>

<%=Testo_SezioniDisponibili_Configurazione%>

<% End If %>

<% Conn.Close Set Conn = Nothing %>