"
Else
Risultato = Left(Risultato, FinoADove)
End If
Else
Risultato = Replace(Testo, Tag_Trailer, "")
End If
Else
Risultato = Replace(Testo, Tag_Trailer, "")
End If
Trailer = Risultato
End Function
'Visualizza dBlog Podcast Player
Sub PodcastPlayer(FileMP3, TitoloMP3)
%>
<%
End Sub
'Genera le Keyword da inserire dinamicamente nell'apposito tag
Function EstrapolaKeyword(Testo)
Dim Risultato, ArrayParole, I, TotaleKeywordTrovate
Testo = NoHTML(Testo)
Testo = Replace(Testo, ",", "")
Testo = Replace(Testo, Chr(13), "")
Testo = Replace(Testo, Chr(10), "")
Testo = Replace(Testo, Chr(9), "")
Testo = LCase(Testo)
Risultato = ""
If Len(Testo) > 0 Then
ArrayParole = Split(Testo, " ")
Else
ArrayParole = Array()
End If
If UBound(ArrayParole) > 0 Then
TotaleKeywordTrovate = 0
For I = 0 To UBound(ArrayParole)
If Len(ArrayParole(I)) >= Num_Min_CaratteriPerSingolaKeyword Then
If TotaleKeywordTrovate < Num_Max_KeywordNelTag Then
TotaleKeywordTrovate = TotaleKeywordTrovate + 1
Risultato = Risultato & ArrayParole(I) & ", "
End If
End If
Next
Else
If Len(Testo) > Num_Max_CaratteriPerTagKeyword Then
Risultato = Mid(Testo, 1, Num_Max_CaratteriPerTagKeyword)
Else
Risultato = Testo
End If
End If
If Len(Risultato) > 0 Then
Risultato = Mid(Risultato, 1, Len(Risultato) - 2)
End If
EstrapolaKeyword = Risultato
End Function
'Evidenzia le parole ricercate all'interno del blog
Function Evidenzia(Testo, ParolaCercata)
Dim RegEx, Temp
If Abilita_Evidenziatore Then
Set RegEx = New RegExp
RegEx.Pattern = ParolaCercata & "(?![^<>]*>)"
RegEx.Global = True
RegEx.IgnoreCase = True
Temp = RegEx.Replace(Testo, "" & ParolaCercata & "")
Set RegEx = Nothing
Evidenzia = Temp
Else
Evidenzia = Testo
End If
End Function
'Carica un file di testo e lo restituisce in una variabile
Function CaricaDocumento(PercorsoFile)
Dim Risultato, FSO, Documento
Risultato = ""
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(PercorsoFile) Then
Set Documento = FSO.OpenTextFile(PercorsoFile, 1)
Risultato = Documento.ReadAll
Documento.Close
Set Documento = Nothing
Else
Risultato = "Template?"
End If
Set FSO = Nothing
CaricaDocumento = Risultato
End Function
'Elabora il template ed inserisce il contenuto al posto dei tag proprietari
Sub GeneraPagina(FileTemplate, METATitlePagina, METAKeywordPagina, METADescriptionPagina)
Dim ContenutoTemplate, Risultato, StringaSplit, Posizione, TemplateDiviso, I
ContenutoTemplate = CaricaDocumento(FileTemplate)
Risultato = ""
StringaSplit = Chr(0)
Risultato = Replace(ContenutoTemplate, "[#", StringaSplit & "[#")
Risultato = Replace(Risultato, "#]", "#]" & StringaSplit)
TemplateDiviso = Split(Risultato, StringaSplit)
For I = 0 To UBound(TemplateDiviso, 1)
EseguiModulo TemplateDiviso(I), METATitlePagina, METAKeywordPagina, METADescriptionPagina
Next
End Sub
'Gestisce il controllo sul Captcha anti spam nei commenti
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
If Len(SessionCAPTCHA) < 1 Then
CheckCAPTCHA = False
Exit Function
End If
If cStr(SessionCAPTCHA) = cStr(valCAPTCHA) Then
CheckCAPTCHA = True
Else
CheckCAPTCHA = False
End If
End Function
%>