simdi tUkce kodlarini sUzgecten gecireceyiz yukardaki kodlar bozuk olan harfleri temizliyor.
linkimiz assagdaki gibi olacak
benimsitem.com/unlu-asci-yemegi-getirirken-yemegi-doktu.html
ve UcUncU kodlarimizda hafleri temizledik ama baska seyleri temizlemedik onlarida tUm temizliyelim.
<% function trsil(veri)
veri = Replace (veri ,"U", "c")
veri = Replace (veri ,"U", "c")
veri = Replace (veri ,"ÅŸ", "s")
veri = Replace (veri ,"Åž","s",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"ÄŸ","g",1,-1,1)
veri = Replace (veri ,"Äž","g",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ÄŸ","g",1,-1,1)
veri =
Replace (veri ,"Ä°","i",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ÅŸ","s",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","c",1,-1,1)
veri = Replace (veri ,"Äž","g",1,-1,1)
veri = Replace (veri ,"Åž","s",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"U","c",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"@","",1,-1,1)
veri = Replace (veri ,"%","",1,-1,1)
veri = Replace (veri ,"/","",1,-1,1)
veri = Replace (veri ,"*","",1,-1,1)
veri = Replace (veri ,"!","",1,-1,1)
veri = Replace (veri ,"&", "")
veri = Replace (veri ,"$","",1,-1,1)
veri = Replace (veri ,"#","",1,-1,1)
veri = Replace (veri ,".","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri ,"-","",1,-1,1)
veri = Replace (veri ,";","",1,-1,1)
veri = Replace (veri ,":","",1,-1,1)
veri = Replace (veri ,"<","",1,-1,1)
veri =
Replace (veri ,">","",1,-1,1)
veri = Replace (veri ,"|","",1,-1,1)
veri = Replace (veri ,"\","",1,-1,1)
veri = Replace (veri ,"=","",1,-1,1)
veri = Replace (veri ,chr(10),"",1,-1,1)
veri = Replace(veri ,Chr(32),"-",1,-1,0)
trsil=veri
end function
%>
<%
str = Server.HTMLEncode(str)
str = Replace(str, "
", "
",1,-1,1)
str = Replace(str, "Äž", "Äž" ,1,-1,1)
str = Replace(str, "Ä°", "Ä°" ,1,-1,1)
str = Replace(str, "Åž", "Åž" ,1,-1,1)
str = Replace(str, "ÄŸ", "ÄŸ" ,1,-1,1)
str = Replace(str, "ı", "ı" ,1,-1,1)
str = Replace(str, "ÅŸ", "ÅŸ" ,1,-1,1)
str = Replace(str, "U", "U" ,1,-1,1)
str = Replace(str, "U", "U" ,1,-1,1)
str = Replace(str, "U", "U" ,1,-1,1)
str = Replace(str, "U", "U" ,1,-1,1)
str = Replace(str, "U", "U" ,1,-1,1)
TagSil = str
End Function
%>
Sitenin LCID degeri TURKCE icin 1055 Bunu unutmayin Bu tUrkce dil kodu bunu degistirirseniz siteniz komple bozulur..
RSS dosyalari icin Ustteki kod olmasi lazim
Bu kodlar Rss ve html icin kodlardir tUrkce yaziyi ayirmak icin simdi yazimizin sonuna geldik ve en Unemli yere geldik
simdi bir asp dosyasi yapiyoruz ve ftpnin ana dizisine atiyoruz ve icine gelecek kodlari yaziyorum...
<%
Response.ContentType = "text/html"
Response.AddHeader "Content-Type", "text/html;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%>
<%
Function ukarakter(temizle)
temizle = temizle & ""
temizle = Replace(temizle ,Chr(32), "_" ,1,-1,0)
For i = 0 To 47
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
For i = 58 To 64
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
For i = 91 To 94
temizle = Replace(temizle ,Chr(i), ""
,1,-1,0)
Next
temizle = Replace(temizle, Chr(96), "" ,1,-1,0)
For i = 123 To 198
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(199), "C" ,1,-1,0)
temizle = Replace(temizle, "U", "C" ,1,-1,0)
For i = 200 To 207
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(208), "G" ,1,-1,0)
temizle = Replace(temizle, "U", "G" ,1,-1,0)
For i = 209 To 213
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(214), "O" ,1,-1,0)
temizle = Replace(temizle, "U", "O" ,1,-1,0)
For i = 215 To 219
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(220), "U" ,1,-1,0)
temizle = Replace(temizle, "U", "U" ,1,-1,0)
temizle = Replace(temizle, Chr(221), "i" ,1,-1,0)
temizle = Replace(temizle, "ı", "i" ,1,-1,0)
temizle = Replace(temizle, Chr(222), "S" ,1,-1,0)
temizle = Replace(temizle, "ÅŸ", "S" ,1,-1,0)
For i = 223 To 230
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(231), "c" ,1,-1,0)
temizle = Replace(temizle, "U", "c" ,1,-1,0)
For i = 232 To 239
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(240), "g" ,1,-1,0)
temizle = Replace(temizle, "ÄŸ", "g" ,1,-1,0)
For i = 241 To 245
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(246), "o" ,1,-1,0)
temizle = Replace(temizle, "U", "o"
,1,-1,0)
For i = 246 To 251
temizle = Replace(temizle ,Chr(i), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(252), "u" ,1,-1,0)
temizle = Replace(temizle, "U", "u" ,1,-1,0)
temizle = Replace(temizle, Chr(253), "i" ,1,-1,0)
temizle = Replace(temizle, "ı", "i" ,1,-1,0)
temizle = Replace(temizle, Chr(254), "s" ,1,-1,0)
temizle = Replace(temizle, "ÅŸ", "s" ,1,-1,0)
ukarakter = temizle
End Function
Function Seokarakter(temizle)
temizle = temizle & ""
temizle =
Replace(temizle, "U", "C" ,1,-1,0)
temizle = Replace(temizle, "U", "G" ,1,-1,0)
temizle = Replace(temizle, "U", "O" ,1,-1,0)
temizle = Replace(temizle, "U", "U" ,1,-1,0)
temizle = Replace(temizle, "ı", "i" ,1,-1,0)
temizle = Replace(temizle, "ÅŸ", "S" ,1,-1,0)
temizle = Replace(temizle, "U", "c" ,1,-1,0)
temizle = Replace(temizle, "ÄŸ", "g" ,1,-1,0)
temizle = Replace(temizle, "U", "o" ,1,-1,0)
temizle = Replace(temizle, "U", "u" ,1,-1,0)
temizle = Replace(temizle, "I", "i" ,1,-1,0)
temizle = Replace(temizle, "ÅŸ", "s" ,1,-1,0)
'temizle = Replace(temizle, "U", "i" ,1,-1,0)
'temizle = Replace(temizle, "U", "i" ,1,-1,0)
temizle = Replace(temizle, "", "" ,1,-1,0)
temizle = Replace(temizle, "", "" ,1,-1,0)
temizle = Replace(temizle, " ", " " ,1,-1,0)
temizle = Replace(temizle, "+", "" ,1,-1,0)
temizle = Replace(temizle, "'", "" ,1,-1,0)
temizle = Replace(temizle, "U", "" ,1,-1,0)
temizle = Replace(temizle, ",", "" ,1,-1,0)
temizle = Replace(temizle ,"and","" ,1,-1,0)
temizle = Replace(temizle ,"-","" ,1,-1,0)
temizle = Replace(temizle ," ","_" ,1,-1,0)
temizle = Replace(temizle ,"__","_" ,1,-1,0)
For se = 0 To 47
temizle = Replace(temizle ,Chr(se), "" ,1,-1,0)
Next
For se = 58 To 64
temizle = Replace(temizle ,Chr(se), "" ,1,-1,0)
Next
For se = 91 To 94
temizle = Replace(temizle ,Chr(se), "" ,1,-1,0)
Next
temizle = Replace(temizle, Chr(96), "" ,1,-1,0)
For se = 123 To 255
temizle
= Replace(temizle ,Chr(se), "" ,1,-1,0)
Next
Seokarakter = LCase(temizle)
End Function
%>
<% function trsil(veri)
veri = Replace (veri ,"U", "c")
veri = Replace (veri ,"U", "c")
veri = Replace (veri ,"ÅŸ", "s")
veri = Replace (veri ,"Åž","s",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"ÄŸ","g",1,-1,1)
veri = Replace (veri ,"Äž","g",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri =
Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ÄŸ","g",1,-1,1)
veri = Replace (veri ,"Ä°","i",1,-1,1)
veri = Replace (veri ,"ı","i",1,-1,1)
veri = Replace (veri ,"ÅŸ","s",1,-1,1)
veri = Replace (veri ,"U","o",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","u",1,-1,1)
veri = Replace (veri ,"U","c",1,-1,1)
veri = Replace (veri ,"Äž","g",1,-1,1)
veri = Replace (veri ,"Åž","s",1,-1,1)
veri = Replace (veri
,"U","o",1,-1,1)
veri = Replace (veri ,"U","c",1,-1,1)
veri = Replace (veri ,"?","",1,-1,1)
veri = Replace (veri ,"@","",1,-1,1)
veri = Replace (veri ,"%","",1,-1,1)
veri = Replace (veri ,"/","",1,-1,1)
veri = Replace (veri ,"*","",1,-1,1)
veri = Replace (veri ,"!","",1,-1,1)
veri = Replace (veri ,"&", "")
veri = Replace (veri ,"$","",1,-1,1)
veri = Replace (veri ,"#","",1,-1,1)
veri = Replace (veri ,".","",1,-1,1)
veri = Replace (veri ,",","",1,-1,1)
veri = Replace (veri
,"-","",1,-1,1)
veri = Replace (veri ,";","",1,-1,1)
veri = Replace (veri ,":","",1,-1,1)
veri = Replace (veri ,"<","",1,-1,1)
veri = Replace (veri ,">","",1,-1,1)
veri = Replace (veri ,"|","",1,-1,1)
veri = Replace (veri ,"\","",1,-1,1)
veri = Replace (veri ,"=","",1,-1,1)
veri = Replace (veri ,chr(10),"",1,-1,1)
veri = Replace(veri ,Chr(32),"-",1,-1,0)
trsil=veri
end function
%>
ve yaptigimiz safaya bu kodu yerlestiriyoruz
sayfamiza yerlestiriyoruz
simdi sitemiz utf-8 de normal calisiyor
Arkadaslar ben burda emek verdim kodlari kendiniz yapmis gibi calip kendi sitenize yerlestirmeyin alacaksaniz bari sitenin linkini yazin bilmiyenler yararlansin