Büyük bi problem var bu ASP de veri çekmede. PHP de veri çekerken Türkçe karakter sorunu olmazken - ASP de Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0" ) yöntemiyle aldığım tüm verilerde ı ve ş ler bozuluyor. Buna çözüm varmıdır ?
![]() |
![]() |
function temizle(kelime)
kelime = replace(kelime, "&", "&")
kelime = replace(kelime , "Ü", "Ü")
kelime = replace(kelime , "ü", "ü")
kelime = replace(kelime , "İ", "İ")
kelime = replace(kelime , "ç", "ç")
kelime = replace(kelime , "ı", "ı")
kelime = replace(kelime , "ö", "ö")
kelime = replace(kelime , "ğ", "ğ")
kelime = replace(kelime , "ş", "ş")
kelime = replace(kelime , "Ç", "Ç")
kelime = replace(kelime , "Ş", "Ş")
kelime = replace(kelime , "Ö", "Ö")
kelime = replace(kelime , "'", "")
kelime = replace(kelime, "<", "<")
kelime = replace(kelime, ">", ">")
kelime = replace(kelime, """, """")
kelime = replace(kelime, "ö", "ö")
kelime = replace(kelime, "ü", "ü")
kelime = replace(kelime, "ç", "ç")
kelime = replace(kelime, chr(10), "")
kelime = replace(kelime, chr(13), "")
kelime = replace(kelime, "<br/><br/><br/>", "")
kelime = replace(kelime, "", "")
kelime = replace(kelime, "", "")
temizle = kelime
end function
Private Function GETHTTP(URL)
Const adTypeText = 2
Const adReadAll = -1
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" )
Set objStream = Server.CreateObject("ADODB.Stream" )
objHTTP.Open "GET" , URL, false
objHTTP.sEnd
objStream.Open
objStream.Type = adTypeText
objStream.WriteText(objHttp.ResponseBody)
objStream.Position = 0
objStream.CharSet = "windows-1254"
GETHTTP = objStream.ReadText(adReadAll)
objStream.Close
Set objStream = Nothing
Set objHTTP = Nothing
End Function
Charset kısmını "windows-1254" , "utf-8" ,"latin1" , "latin5" vs.. deneyerek sorunu çözebilirsin.
PHP:Private Function GETHTTP(URL) Const adTypeText = 2 Const adReadAll = -1 Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP" ) Set objStream = Server.CreateObject("ADODB.Stream" ) objHTTP.Open "GET" , URL, false objHTTP.sEnd objStream.Open objStream.Type = adTypeText objStream.WriteText(objHttp.ResponseBody) objStream.Position = 0 objStream.CharSet = "windows-1254" GETHTTP = objStream.ReadText(adReadAll) objStream.Close Set objStream = Nothing Set objHTTP = Nothing End Function
Charset kısmını "windows-1254" , "utf-8" ,"latin1" , "latin5" vs.. deneyerek sorunu çözebilirsin.