Bilgisayar Bölümü ASP Kod ve Script Arşivi


Input a girileni türkçe yapan fonksiyon

Function turkce(Input)
Input=replace(Input, ""slm"", ""Selam"")
Input=replace(Input, ""ş"", """")
Input=replace(Input, ""z"", """")
Input=replace(Input, ""ğ"", """")
Input=replace(Input, ""z"", """")
Input=replace(Input, ""ı"", """")
Input=replace(Input, ""İ"", """")
Input=replace(Input, ""ü"", """")
Input=replace(Input, """", """")
Input=replace(Input, ""ö"", """")
Input=replace(Input, ""Ö"", """")
Input=replace(Input, ""ç"", """")
Input=replace(Input, ""Ç"", """")

turkce=Input
End Function

--------------------------------------------------------------------------------

sunucuda trke dil destei yoksa LCID = 1055 ie yaramaz. O zaman Unikodlama gerekir;

<%
Response.CodePage = 1254
Response.CharSet = ""windows-1254""

Metin = Replace(Metin,Chr(199),""&#199;"") '
Metin = Replace(Metin,Chr(231),""&#231;"") '
Metin = Replace(Metin,Chr(208),""&#286;"") '
Metin = Replace(Metin,Chr(240),""&#287;"") '
Metin = Replace(Metin,Chr(253),""&#305;"") '
Metin = Replace(Metin,Chr(221),""&#304;"") '
Metin = Replace(Metin,Chr(214),""&#214;"") '
Metin = Replace(Metin,Chr(246),""&#246;"") '
Metin = Replace(Metin,Chr(222),""&#350;"") '
Metin = Replace(Metin,Chr(254),""&#351;"") '
Metin = Replace(Metin,Chr(220),""&#220;"") '
Metin = Replace(Metin,Chr(252),""&#252;"") '
%>
eklinde.



----------------------------------------------------------------------------------------
<%%
Function Cevir(gelenveri)
gelenveri = LCase(gelenveri)
gelenveri = Replace(gelenveri ,Chr(208),""G"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(240),""g"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(222),""S"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(254),""s"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(199),""C"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(231),""c"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(221),""I"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(253),"""",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(214),""O"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(246),""o"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(220),""U"",1,-1,0)
gelenveri = Replace(gelenveri ,Chr(252),""u"",1,-1,0)
Cevir = gelenveri

End Function
%>
"

ASP Kitabı

 

Faydalılar: Altın Fiyatları |Hediye Kolye | pırlanta fiyatları
Ana Sayfa  Sık Kullanılanlara Ekle   admin[at]bilgisayarbolumu.com | © 2006 - 2023 Bilgisayarbolumu.com