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
Planet Source Code ` da yayınlanan klasördeki veritabanlarını bulmak için yazdığım Fonksiyon.
`**************************************
` Name: Database Finder
` Description:This code finds out the database files in folders and lists them.
` It is an open source code and can be improved.
` By: Baran SEREN
`
` Inputs:None
` Returns:Database name `Assumes:None
`
`**************************************
`#######################################
`#######################################
`# Bu Script Baran SEREN tarafından webdersleri.com üyelerinin Asp eğitimleri bölümünde Dosya #
`# Sistem Nesnesinin Kullanımını örneklemek için Molly e verilen ödev olan Veritabanını bulan bir #
`# Fonksiyon yazma Ödevinin cevap dosyasıdır. Uygulama da kullanılan tüm kodlar örnek olarak #
`# yazılmıştır. Genel olarak File System i açıklayan bu örnek orjinal haliyle eğitim materyali olarak #
`# Kullanılabilinir. #
`#######################################
Function VeritabanisimleriniGosteren(Klasoryolu) Set FileSystemObject=Server.CreateObject("Scripting.FileSystemObject") Set Klasor=FileSystemObject.GetFolder(Server.Mappath(Klasoryolu)) Set KlasordekiDosyalar=Klasor.files For Each Dosya in KlasordekiDosyalar If UCase(FileSystemObject.GetExtensionName(Dosya))="MDB" Then DatabaseName = (Dosya.Name) Response.Write DatabaseName & " End iF Next Set KlasordekiDosyalar=Nothing Set Klasor=Nothing Set FileSystemObject=Nothing End Function
Gereklilikler konusunda yazı ekleyebilirim ama şehir içinde 120 km yol yaptıran TÜV e helal olsun diyorum
- Vergi Borcunuz olmayacak
- Tüp varsa sızdırmazlık için aracınızın tüp markası neyse oradan iyicene sızdırma konusunda baktırın
- Fren balatalarınızı değiştirin
- Farlarınızı ayarlattırın.
- Trafik Sigortanız yoksa yaptırın.
Mühendisler Odasına gidip tüp sızdırmazlık belgesi alıyorsunuz ( 25 YTL )
Muayene için gecikme zammı ile birlikte ( 180 TL )
Bakım felan filan için ( 300 TL )
Toplamda : 600 TL civarı gidiyor bilgilerinize.