12 svar · 411 visningar · startad av asp
Hej.
Jag använder denna kod för att hämta källkod. Men när den stöter på öäå så blir det ?. Tror även det käller andra tecken än a - z...
går ddetta att lösa?
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "hemligt..........", False
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
Förmodligen är det något problem med teckenuppsättningen. Om jag kan få adressen till ditt asp-skript så kan jag kika på det.
Jo, men det jag behöver kika på är alltså hur källkoden ser ut när ditt skript skriver ut den, för det är ju där du har problemet.
Ett udrag:
Pos Rank Games Team
1 14,4 821 ?tra Smurfhults BK
2 14,4 388 Etrade Hudik
3 14,4 439 AC Kamelen
4 14,3 757 PP Plessydask
5 14,1 433 Isidor AIK
6 14,1 325 Kongos Krigare
7 14,0 1285 DIF LEEDS BK
8 13,9 226 Dunkam? FF
9 13,9 1210 AFC Swish
10 13,8 615 IFK Oxiborg
11 13,8 339 T?ra IK
12 13,7 436 Monty Pythons DIF
13 13,7 410 IF Tallby
14 13,7 884 INIXET BK
15 13,7 562 Jum Jum Give Me Some
16 13,7 732 Greed FC
17 13,6 639 Libido Social Club
18 13,6 443 L?al Utd.
19 13,6 195 Haggebulle FC
20 13,5 342 M?ng FV
21 13,5 200 Maverick FC
22 13,5 372 Liverpool Spiceboys
23 13,5 586 OlaBero IK
24 13,5 1116 SC Canasky
25 13,4 369 Fc Attack
26 13,4 290 Stockholm IF
27 13,4 1104 Triquetra AFC
28 13,3 335 Bajenland Fotboll
29 13,3 688 AFC Scorpio
30 13,3 612 Skutehagens FK
31 13,3 589 FILTENS if
På ettan skall det stå Östra.
På elvan skall det stå Tåbira. Så det är mer än ett ? som försvunnit..
Jag behöver se hur det ser ut från ditt skript för att kunna hjälpa dig. Mer specifikt behöver jag kunna se ascii-värdena på de platser där det visas frågetecken och jag behöver veta vilken content-type den skickar ut. Om du bara ger mig adressen till skriptet så jag kan se hur den skriver ut sidan så kan jag kolla dessa saker och tala om för dig vad som är fel och hur du löser det.
<%
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "............................................l", False
objHTTP.Send
strHTML = objHTTP.ResponseText
Set objHTTP = Nothing
Response.Write(strHTML)
Function getRank(strTeam)
arrHTML = Split(strHTML,vbCrLf)
For i = 0 To UBound(arrHTML)
If InStr(arrHTML(i),strTeam) Then
arrTemp = Split(arrHTML(i)," ")
intRank = arrTemp(0)
Exit for
End if
Next
getRank = Trim(intRank)
End Function
Response.Write(getRank("Östra Smurfhults BK"))
%>
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "............................................l", False
objHTTP.Send
strHTML = objHTTP.ResponseBody
For i = 1 To LenB(strHTML)
strTemp = strTemp & Chr(AscB(MidB(strHTML, i, 1)))
Next
strHTML = strTemp
Set objHTTP = Nothing
Vad det handlar om är att du har fel teckenuppsättning. Jag skulle gissa på att den sätter unicode när du i själva verket har en annan och det är därför det ser konstigt ut. Det är inte svårare än att man talar om för skriptet vilken teckenuppsättning man har. Men eftersom jag antar att du inte vet vad du har för teckenuppsättning och inte vet hur man kollar det, för då skulle du ju redan ha fixat det, så måste jag ju få titta på din sida för att se vad det är för teckenuppsättning. Det tar inte ens en minut. Visst kan jag sitta och gissa men det känns så meningslöst när det är så lätt att kolla.
Vill du ha hjälp eller inte?
tydal, har du MSN eller ICQ så vi kan snacka privat.
Vill inte ge ut massa sidor helst.
Jag uppskatar din hjälp!
Ja, jag har ICQ 1431981.