webForumDet fria alternativet

UTF8 och ASP

ASPur ASP

3 svar · 254 visningar · startad av Danielkun

Medlem sedan maj 2003361 inlägg
Frågan#1

Jag skrev ett inlägg tidigare med samma fråga fast jag fick inget svar på slutet så jag chansar igen..

Jag har sparat denna ASP fil i UTF-8 format och allt funkar fint utan när jag går igenom Text -> Bild Funktionen som gör om bokstäver till små bilder. Så fort jag använder den så blir alla åäö på hela sidan bara mystiska tecken.

Om jag däremot skriver ut resultatet från SweTid utan Bild_Bokstav funktionen funkar allt bra. Det funkar även bra att använda den funktionen så länge det inte finns ett åäö i SweTid.

Så det här skriptet funkar perfekt på alla dagar utom MÅndag, LÖrdag och SÖndag ;)

Nån som vet vad som skulle kunna orsaka detta?

function SweCorrectDay(Dag)
    Select Case Dag
    Case "1" SweCorrectDay = "Söndag"
    Case "2" SweCorrectDay = "Måndag"
    Case "3" SweCorrectDay = "Tisdag"
    Case "4" SweCorrectDay = "Onsdag"
    Case "5" SweCorrectDay = "Torsdag"
    Case "6" SweCorrectDay = "Fredag"
    Case "7" SweCorrectDay = "Lördag"	
    End Select
end function

och den är kopplad till detta:

SweTid = SweCorrectDay(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)

Ovan skapar dagens datum och skriver sen om det med Bokstav till Bild funktionen nedan:

function Bild_Bokstav(strCompleteSentence)
For i = 1 to len(strCompleteSentence)
     strLetter = Mid(strCompleteSentence, i, 1)

     If Asc(LCase(strLetter)) = Asc(strLetter) Then

		if strLetter = " " then
		Bild_Bokstav = Bild_Bokstav & " "
		else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-s/" & strLetter & ".gif" & """>"
		end if
     Else
		Bild_Bokstav = Bild_Bokstav & "<img src=""" & "Alfabet-l/" & strLetter & ".gif" & """>"
     End If

Next
end function

Skriver ut bilderna så här: <%=Bild_Bokstav(SweTid)%>

Så det funkar ju felfritt.. utom när det finns ÅÄÖ i "Swetid". UTF8 formatet spökar säkert någonstans..

Medlem sedan dec. 19998 577 inlägg
#2

Använd lite inbyggt istället:

Session.LCID = 1053
SweTid = WeekDayName(Weekday(Date)) & " " & Day(Date) & ", " & FormatDateTime(Time, 4)
Medlem sedan juni 200032 969 inlägg
#3

Du kommenterar inte ens spangos inlägg. Har du läst länken och provat?

Medlem sedan maj 2003361 inlägg
#4

Sorry. Glömde komentera det.
Jag läste den sidan och la till raden:

Response.CharSet = "utf-8"

högst uppe på sidan men utan resultat. Jag testade även att lägga till:

Response.CodePage = 65001

men då får jag felet:

Körningsfel i Microsoft VBScript fel '800a01b6'
Objektet stöder inte egenskapen eller metoden.: 'Response.CodePage'

Vide, Tack men det hjälpte inte :(

143 ms totalt · 3 externa anrop · v20260731065814-full.55e59744
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
138 ms — hämta tråd, inlägg och bilagor (db)