Arkadaşlar,

ASP ile içerik başlıklarındaki Türkçe karakterleri tarayıcı ile uyumlu hâle getirmek ve klasör şeklinde bağlar oluşturmak için gerekli kodlar aşağıdaki gibidir.

Çalışan bir adres satırlı uygulamasına şuradan erişebilirsiniz.

İyi günlerde kullanın...

<%
Function Cevir(gelenveri)
gelenveri = LCase(gelenveri)
gelenveri = Replace(gelenveri,Chr(32),"-" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(33),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(34),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(35),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(36),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(37),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(38),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(39),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(40),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(41),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(42),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(43),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(44),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(46),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(47),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(58),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(59),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(60),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(61),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(62),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(63),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(91),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(92),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(93),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(94),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(95),"" ,1,-1,0)
gelenveri = Replace(gelenveri,chr(96),"" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(200),"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),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(236),"i" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(237),"i" ,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(252),"u" ,1,-1,0)
gelenveri = Replace(gelenveri,Chr(220),"u" ,1,-1,0)
Cevir = gelenveri
End Function
%>