Yazılım Geliştirme Uzmanı & E-Ticaret Danışmanı
Classic Asp , Excel , Ms Project, Excel VBA , E-Ticaret , Mobil , Desktop
Tel : 0 534 797 31 21 , Mail : baranseren@gmail.com

Kategoriler

Sitelerim

Önerdiklerim

PSC - NSLookup For Asp 08.04.2011

Türkticaret.NEt te iken yazmış olduğum Planet Source Code`da yayınlanan NSLOOKUP fonksiyonunu Asp içerisinden kullanmaya yarayan Fonksiyonum.



`##################################################

`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  



Tags :


Yazının Devamı

PSC - Database Finder 08.04.2011

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



Tags :


Yazının Devamı