Yoğun iş tempomdan ara buldum sonunda arayüzü yeniden tasarladım , menülerin hazırlanması için biraz zaman gerek :)
Bsd Bayi Ağı içerisinde bulunan arama paneline JQuery ile Preloader uygulamasını ekledim.
Birkaç küçük bug vardı onları da düzenledim güzel işçilik oldu
Sinan Dayı gecikme için kusura bakma valla bi türlü fırsatım olmadı :)
Su Damlacıkları Anaokulu için Hazırladığım tasarım yayında...
Bsd otomotiv ana sayfasında bulunan orta kısımdaki resmin slide gösterisi şekline getirilmesi için çalışmayı tamamladım artık nivo slider destekli şekilde ana sayfada duyurular veritabanından gelecek şekilde ayarlanmıştır.
Yönetim panellerine tiny mce editörünü ekledim. :) yazılar daha güzel olsun maksadı ile tabiki
Yapmanız gereken sadece ioncube`un setup dosyalarını indireceksiniz ileri ileri diyerek kurulumu tamamlayın c:\windows\php.ini dosyasının son satırına gelip zend extension taglarını alttaki gibi yapıştırın. [Zend] zend_extension_ts = "C:\Program Files\SWsoft\Plesk\Additional\Php\extensions\ioncube_loader_win_4.3.dll" Yüklediğiniz yerdeki ioncube_loader_win_4.3.dll nin bilgisayardaki yerini göstermeniz gerekiyor. IIS i restart edin , yapabiliyorsanız server`a reset atın. hepsi bu kadar.
`################################################## `NsLookup Fonksiyonumun Başlangıcı Private Function NSlookup(strHost) Set oShell = Server.CreateObject("Wscript.Shell") `Shell Objecti yaratalım oShell.Run "%ComSpec% /c nslookup " & strHost & "> C:\" & strHost & ".txt", 0, True Set oFS = Server.CreateObject("Scripting.FileSystemObject") `geçici txt belgesini açarak verileri kontrol edelim Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt") `Okunan txt belgesini okuyalılm tempData = Null `Verileri Null olarak ayarlıyalım Data = Null `Veriler Null olarak ayarlansın i = 0 `Döngü için i=0 ile başlatıcaz Do While Not oTF.AtEndOfStream `Dosyanın Sonuna gelene Kadar devam edecek Data = Trim(oTF.Readline) `Sağından solundan boşluklarını alalım If i > 2 Then `2 kerede 2 ip numarası bize yeterli olacaktır. databoyut = len(data) data = mid(data,9,databoyut) IF data then tempData = tempData & Data & "
" `veriyi çıktı verecek şekilde ayarlıyalım. End IF End If `Koşulsonu i = (i + 1) `saglamaz ise i yi arttır `Dön `Kapat oFS.DeleteFile "C:\" & strHost & ".txt" `Sil Loop oTF.Close Set oFS = Nothing `Yok et NSlookup = tempData `Sonuc tempdata End Function `Fonksiyon biter . `################################################################
Private Function whoisResult(whoisURL, strMethod, strCheckString) Dim objXMLHTTP Dim strWhoisResultString Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP" ) objXMLHTTP.Open strMethod, whoisURL, False objXMLHTTP.SEnd strWhoisResultString = objXMLHTTP.ResponseText If InStr(1,strWhoisResultString,strCheckString,vbTextCompare) Then whoisResult = "Boşta" ElseIf InStr(1, strWhoisResultString, "Error" , vbTextCompare) Then whoisResult = "Hata!" Else whoisResult = "Dolu" End If Set objXMLHTTP = Nothing End Function