[magickeyboard]

ben ingilizce için ayrıca klasör açtım.

www.netteseyret.net , sitenin sağ üstünde bir ingiliz bayrağı var, tıkladığınızda /eng klasörüne gidiyor. yani sitenin kopyasını aldım ve onu ingilizceye çevirdim, iç klasöre attım. database olarak aynısını kullanıyorlar.

dil 'i request yöntemiyle de alabilirdim. ancak ne bileyim, bu işime geldi. bir kere yapılacak şeydi ztn. sadece menüler ve açıklama başlıkları elle giriliyor. herşey database'den geliyor...

[darkfaceofmoon]

Benim bahsettiğimde editörlerin yeni dil ekleme ihtimali yüksek olduğu için ben dediğin yöntemi yapmadım, bu nedenle de XML daha mantıklı gibi. Gerçi denemedim daha yukarda gelen kodu da...

[darkfaceofmoon]

absconder tarafından gönderilen mesaj:

application nesnesini kullanmanın avantajı, içindeki veri ram'de tutulduğunda okuma/yazma işlemleri disk yada veritabanı işlemlerine oldukça hızlı olur.

application nesnesi, session nesnesinin global halidir.

tüm kullanıcılarda global şekilde değişken kullanmanıza olanak verir.

ayrıca illede global.asa kullanmanıza gerek yok, global.asa, web sitesi açıldığında ilk değerlerin yüklenmesini garanti edebilir. ancak eklediğim örnekte global.asa'yı silsenizde sorun çıkarmadan çalışıyor olacaktır.

test.ASP?lang=tr
test.ASP?lang=en

şeklinde çağırarak test edebilirsiniz.

aradan uzun bir zaman geçtikten sonra değerlendirme yazmam konusunda özür dielrim, yoğun günlerden sonra yeniden web işlerinin başına geçebildim.
global.asa'yı açtğımda herşeyi anladım ancak bu tip işlemleri pek bilmedğimden sormak istiyorum mümkünse.

Sub LoadXML(langID)
	Set XML = server.CreateObject("Microsoft.XMLDOM")
	success = XML.Load(server.MapPath("/XML/lang_"& langID &".XML"))
	
	If success Then
		Application.Lock
		Application(langID & "XML") = XML.XML
		Application.UnLock
	End If
	Set XML = Nothing
End Sub

burada Application(langID & "XML") = XML.XML kısmını Application(&"lang_"&langID & .XML") = "lang_"&langID&".XML" şeklinde yapmak gerekimoyr mu? Daha açıkçası ben burayı anlamadım )

[absconder]

hayır,

XML.Load(server.MapPath("/XML/lang_"& langID &".XML"))

burada o ayarlanıyor zaten.

[fever]

zubeyrozturk tarafından gönderilen mesaj:

<%
dil = Request.QueryString("dil")
If dil="" Then
dil="tr"
End If
%>
<% If dil="tr" Then %>
<!--#include file="diller/tr.ASP" -->
<% Elseif dil="en" Then %>
<!--#include file="diller/en.ASP" -->
<% Else %>
<!--#include file="diller/tr.ASP" -->
<% End If %>

Sayfamda da

<%=strTitle%>
<%=strWelc%>

Şeklinde kullandığımda sorunsuz bir şekilde çalışır.

Bu şekilde yazdığınızda diğer dillerin include edilmesini engellemiş olmazsınız. "Include" işi script yorumlanmadan önce yapıldığından kullandığınız if(dil==tr) hiç bir işe yaramayacaktır. Sunucu öncelikle include etmiş olduğunuz dosyaları sizin dosyanızın içine katacak sonra da yorumlayıp HTML'i üretecektir.

Evet yüklendikten sonra if'ler devreye girecek ve sistem dilediğiniz doğrultuda çalışacak ama diğer dillerin her istekte yeniden yeniden yüklenmesi niye gereksin ki? Daha farklı çözümlerle sunucuyu daha az yormak ve dahi daha dinamik yapılar elde etmek mümkün olabilir.

Yukarda kurulan XML yapısı da pek hoş olmuş, ilgililerin ellerine sağlık.

[darkfaceofmoon]

@absconder
Tamam şimdi anladım, yani aslında biz sadece Application'a bir ad vermiş oluyoruz değil mi? XML i zaten bahsi geçen yerde load ediyor.

@fever
Burada tartıştığımız kısım sistem yöneticisine daha sonra istediği dili ekleyebilme özelliğinin tanımlanması. Sizin verdiğinzde ise sabit diller var, buna göre if yapıyoruz oluyor. Halbuki yöneticimiz Türkçe yanında bir de Rusça eklerse tercümesini kendisinin yapmasını istemek ve tercüme bitince de bunları RU.XML e yazdırmak. Rusça eklenince de bunu sisteme tanımlatmak.

Zaten sistemi bitirince genel mantığını burada anlatacağım tekrar. Şu anda site üzerine XML verilerini işlemek kaldı sadece. Türkçe sabit dilimiz, sitenin bir yerine yeni bir kelime tanımlamak gerektiğinde db.ye bunu tanımlıyoruz sadece Türkçe kısmına, diğer dillere editörler tercüme ediyor, onlar tercüme edince XML.ler güncelleniyor.

[fever]

@darkfaceofmoon

darkfaceofmoon tarafından gönderilen mesaj:

@fever
Burada tartıştığımız kısım sistem yöneticisine daha sonra istediği dili ekleyebilme özelliğinin tanımlanması. Sizin verdiğinzde ise sabit diller var, buna göre if yapıyoruz oluyor. Halbuki yöneticimiz Türkçe yanında bir de Rusça eklerse tercümesini kendisinin yapmasını istemek ve tercüme bitince de bunları RU.XML e yazdırmak. Rusça eklenince de bunu sisteme tanımlatmak.

Sadece daha önce mesaj yazan zubeyr'in yöntemi statik de olsa çalışsa da kullanılan if'in işlevsiz olduğunu belirtmek istedim. If'ler çalışmadan once zaten bütün dosyalar include edilmiş olacak ve if koşulları sadece değerlerin atanması sırasında işe yarayacak.

"Tamam, sorunsuz çalışır fakat her istek için bütün dil dosyaları tekrar tekrar neden yüklensin ki?" demek istemiştim.

Yoksa benimsemiş olduğunuz XML yöntemi oldukça hoş ve olması gereken şekilde zaten.

Kolay gelsin.

[darkfaceofmoon]

Küçük bir yanlış anlaşılma oldu sanırm, pardon.
Umarım geliştirdiğimiz yöntem tam yerine oturur da burada anlatırız.

İyi çalışmalar

[darkfaceofmoon]

Merhaba,
@absconder
Değerli arkadaşım gerçekten yardımların sayesinde global.asa üzerinde oynayarak da performansın arttırılabildiğini öğrendim ancak halen tam sonuca ulaşamadım. İnş sonuca ulaştıktan sonra bunu herkesle de paylaşacağım müsadenle fakat bir takım sorunlar yaşamaktayım. Altta kodları verdim; ufak 1-2 tartışma ile sonuçlandırırsak sevinirim...

global.asa

PHP Code:

<script language=vbscript runat=server>

Sub Application_OnStart
    Set dbconn= server.CreateObject("ADODB.Connection")
    dbconn.Open "Driver={SQL server}; server=sserver.net; Database=DB_123; Uid=kullaniciadi; Pwd=123456;"

    set ListLangs=dbconn.execute("select LId from Langs order by LId asc")
    do while not ListLangs.eof
        LoadXML(ListLangs("LangID"))
    ListLangs.movenext:loop
    set ListLangs=nothing

    dbconn.close
    set dbconn=nothing
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd
End Sub

Sub LoadXML(langID)
    Set XML = server.CreateObject("Microsoft.XMLDOM")
    success = XML.Load(server.MapPath("/XML/lang_"& langID &".XML"))
    
    If success Then
        Application.Lock
        Application(langID & "XML") = XML.XML
        Application.UnLock
    End If
    Set XML = Nothing
End Sub

</script> 


BU XML.LERİ SEÇMEK İÇİN KULLANDIĞIM VE HER SAYFANIN BAŞINDA YER ALAN FONKSİYON

PHP Code:

C_DefaultLang, cookie ile gelen dil değeri yani -tr- gibi
If Application(C_DefaultLang & "XML") = "" then
    LoadXML(C_DefaultLang)
End If

Sub LoadXML(langID)
    Set XML = server.CreateObject("Microsoft.XMLDOM")
    success = XML.Load(server.MapPath("/XML/lang_"& langID &".XML"))
    
    response.Write success
    
    If success Then
        Application.Lock
        Application(langID & "XML") = XML.XML
        Application.UnLock
    End If
    Set XML = Nothing
End Sub

Function Resource(LangID, node)
    returnVal = ""
    Set XML = server.CreateObject("Microsoft.XMLDOM")
    success = XML.LoadXML(Application(LangID & "XML"))

    If success Then
        Set root = XML.documentElement
        If root.hasChildNodes() Then
        Set rec = root.selectSingleNode("//lang//"& node &"")
            If Len(rec.text) > 0 Then
                returnVal= rec.text
            Else
                returnVal = "No!"
            End If
        End If
    Else
        Response.Write("Err!")
    End If
    Set XML = Nothing
    Resource = returnVal
End Function 


BU DA LANG_TR.XML DOSYASI...

<?XML version="1.0" encoding="windows-1254" ?>
<root>
	<lang>
		<1_gonder>G&ouml;nder</1_gonder>
		<1_anasayfa>Anasayfa</1_anasayfa>
		<1_rumuz>Rumuz</1_rumuz>
		<1_sifre>Şifre</1_sifre>
		<1_kapat>Kapat</1_kapat>
		<1_geri>Geri</1_geri>
		<1_ileri>İleri</1_ileri>
	</lang>
</root>

BU SA SAYFA ÇIKTILARI İÇİN...

<%=C_DefaultLang%>
<br />
<%=Resource(C_DefaultLang,"1_rumuz")%>
<br />
<%=LoadXML(C_DefaultLang)%>

BU DA HTML ÇIKTISI

tr
Err! 

[absconder]

select LId from

ile select edildiğinde

ListLangs("LangID")

değil de

ListLangs("LId")

şeklinde olması gerekmez mi?

bir de bu id numeric değer ("1", "2") değil mi? yoksa "tr", "eng" gibi alfanumeric mi? XML'ler buna uygun mu?

tahminim, 1,2 gibi çağırıyorsunuz, sonra da sayfa içerisinde, "tr" ile çağırdığınızda hataya düşüyor.

<%=C_DefaultLang%>
<br />
<%=LoadXML(C_DefaultLang)%>
<br />
<%=Resource(C_DefaultLang,"1_rumuz")%>

deneyin. aynı tipte çağırdığınızı ve çağırmadan önce yüklendiğini garanti etmiş olursunuz.

hata almazsanız, global.asa çerisinde numeric id ("1, "2") yerine alfanumeric id ("tr", "en") ile yükleme yapacak şekilde düzenleyin.

hata alırsanız, XML dizininde lang_tr.XML dosyasının olduğunu kontrol edin. varsa, soruna kaldığınız yerden tartışmaya devam edebiliriz.