Convertire una data in formato RFC822 con ASP.Classic

lun 30/12/2024 | RSS | Menu

Convertire una data in formato RFC822 con ASP.Classic

KEYWORDS: informatica | programmazione |
Inserito in DATA: 21/12/2012 | Vai ai COMMENTI
Allora, il punto è nato tutto da questo sito. Avevo fatto un programma in asp che creava il feed RSS di Bostro.net, ovvero una pagina ASP che si dichiarava però da subito "Response.ContentType=text/xml"

Tutto andava bene, finché non ho adottato RSS Graffiti per sincronizzare le novità con Facebook, via RSS. Con Wordpress nel mio fotoblog io.bostro.net non ho nessun problema, ma con il mio software si. La pubdata che io riportavo in formato gg/mm/aaaa non andava bene.

Allora cercai sul web una funzione per convertirla in formato RFC822, la trovai, ma il validatore feed del W3C dava ancora problemi. Perché? Perché deve essere espressa in inglese, dio ........... W3! Ovvero, lunedì non va espresso con "Lun", bensì con "Mon". Dicembre non va espresso con "Dic", ma con "Dec".

Bon, naturale in effetti: solo che la conversione viene fatta con la funzione asp Weekdayname oppure Monthname e la traduzione dipende dal server dove IIS è installato è che interpreta ASP, per cui se in un sito americano la funzione che avevo trovato su internet andava bene, non andava bene nel mio sito.

E mentre perdevo ore a ricontrollare la formattazione di tutti i tag XML, la soluzione era sotto il mio naso.

Riporto dunque qua di seguito la funzione corretta e completata.

Ho lasciato, commentandoli, il riferimento ai weekdayname e monthname per far capire come funzionava prima.

'##### FUNZIONE DI CONVERSIONE FORMATO DATA PER FEED #####
'prova 1: NON PERFETTA
Function date2RFC822(data, offset)
   data = CDate(data)
   giorno = weekday(data) 'WeekdayName(Weekday(data),true)
   select case giorno
	case 1
		giorno="Sun"
	case 2
		giorno="Mon"
 	case 3
		giorno="Tue"
	case 4
		giorno="Wed"
	case 5
		giorno="Thu"
	case 6
		giorno="Fri"
	case 7
		giorno="Sat"
   end select
   giornoN = Day(data)
   if len(giornoN)=1 then giornoN=("0" & giornoN)
   mese = month(data) 'MonthName(Month(data), true)
   select case mese
	case 1
		mese="Jan"
	case 2
		mese="Feb"
	case 3
		mese="Mar"
	case 4
		mese="Apr"
	case 5
		mese="May"
	case 6
		mese="Jun"
	case 7
		mese="Jul"
	case 8
		mese="Aug"
	case 9
		mese="Sep"
	case 10
		mese="Oct"
	case 11
		mese="Nov"
	case 12
		mese="Dec"
   end select
   anno = Year(data)
   hours = zeroPad(Hour(data), 2)
   minutes = zeroPad(Minute(data), 2)
   seconds = zeroPad(Second(data), 2)

date2RFC822 = giorno &", "& giornoN &" "& mese &" "& anno &" "& hours&":"& minutes&":"& seconds&" "& offset
End Function

Function zeroPad(m, t)
	zeroPad = String( t - Len(m), "0") & m
End Function
'##### FINE FUNZIONE COVERSIONE DATA, RICHIAMARE CON response.write date2RFC822(now(),"GMT")

Non perderti gli altri articoli dal blog categoria INFORMATICA!

Commenti all'articolo

Dal 06/08/2024 non è più possibile lasciare commenti.

Questo sito l'ho realizzato io e quindi è proprietà intellettuale mia, e non ne concedo alcuna autorizzazione.
Visitando il sito si sottintende la presa visione delle CONDIZIONI D'USO
CONTATTI: info[at]bostro.net

Aggiornamenti via feed RSS | Torna in cima