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.
Yeni oluşumlar ve Girişimler kapsamında diyarbakır teknokentte tur düzenledik incelemelerde bulunduk . Arge Tabanlı geliştirme için düşündüğümüz yeni girişimizin oluşum aşamaları değerlendirdik.