Hakan ŞEN Kişisel Günce - Kategori : Programlama / http://www.hakansen.com

Ağustos 7

ASP Mid fonksiyonu

Yorumlar (1) Tarih : 7 Ağustos 2007 Salı Saat: 20:43:27
Kategoriler : Makale, Programlama
Etiketler : mid, asp, vb, function, fonksiyon

ASP de en çok kullanılan fonksiyonlardan bir diğeri de Mid fonksiyonudur.

Kod:
Mid (Metin, Başlangıç, [Uzunluk])


Gönderilen ifade de belirtilen karekter pozisyonundan itibaren istenilen kadar değeri geri gönderir.

Kod:
Mid (string_ifade, başlangıç_noktası,[alınacak karakter sayısı])


Alıcanacak karakter sayısı opsiyoneldir. Eğer belirtilmezse ifadenin sonuna kadar alacaktır.
Kod:
Mid ("HAKAN ŞEN", 4, 2)

ifadesinde geriye dönen değer AN olacaktır.

Ağustos 7

ASP inStr fonksiyonu

Yorumlar (1) Tarih : 7 Ağustos 2007 Salı Saat: 20:40:26
Kategoriler : Makale, Programlama
Etiketler : instr, asp, vb, function, fonksiyon

ASP de çok sık kullanılan fonksiyonlardan bir tanesi inStr`dir.

Kod:
InStr ([Kaçınıcı Harften,] Neyinİçinde, Neyi, Nasıl)


Bir string ifade içindeki aranacak olan başka bir string ifadenin kaçıncı pozisyonda olduğunu belirler.

Kullanımı;
Kod:
InStr (Başlangıç, aranacak ifade, aranan_ifade)


Örneğin;
HAKAN ŞEN kelimesi içinde ş harfinin kaçıncı pozisyonda olduğunu bulalım;
Kod:
Deger=InStr (1, "HAKAN ŞEN", "Ş")

Geri dönen değer 7 dir. Burada HAKAN ŞEN ifadesi içinde 1. harfden başlayarak Ş harfinin kaçıncı eleman olduğunu bulduruyoruz.

Ağustos 7

İller ve İlçeler Veritabanı (MS Access & Mysql)

Yorumlar (6) Tarih : 7 Ağustos 2007 Salı Saat: 01:32:07
Kategoriler : Referanslar, Makale, Programlama, Diğer
Etiketler : ms access, mysql, türkiye, iller, il, ilçeler, ilçe, veritabanı

Hazıylayacağım bir site için iller ve ilçelerin bulunacağı bir veritabanına ihtiyaç duydum, ve araştırmalarım sonucunda bir veritabanı oluşturdum.

Veritabanını http://www.hakansen.com/Kod/il-ilce-veritabani.asp adresinde bulabilrisiniz.

Hem Mysql hemde mdb mersiyonu mevcuttur.

Ağustos 6

xmlHTTP ile url kontrolü

Yorumlar (1) Tarih : 6 Ağustos 2007 Pazartesi Saat: 21:14:49
Kategoriler : Makale, Programlama
Etiketler : xml, xmlhttp, asp, url kontrolü, fonksiyon,

xmlHTTP Kullanarak sorgulanmak istenen URL`nin var olup olmadığını kontrol etmek mümkündür.

kayit.kisaltiyor.us adresinde kısaltılacak urller girildiğinde öyle bir adresin var olup olmadığını kontrol etmek için kullanıyordum, bir yerlerde işinize yarayabilir.

Kod:
    Function GETHTTP(adres)

               On Error Resume Next 

          Set StrHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 

               StrHTTP.Open "GET" , adres, False 

               StrHTTP.sEnd 

                    If Err.Number = -2147012889 Then 

                    Mesaj =   "<font style=""color:red;"">DNS Yanıt vermiyor, Siteye ulaşılamadı</font>"

                    ElseIf Err.Number = -2147012867 Then 

                    Mesaj =   "<font style=""color:red;"">Url Bulunamadı</font>"

                    Else

                    Mesaj = "Url Bulundu Çalışıyor"

                    End If

               GETHTTP = Mesaj 

          Set StrHTTP = Nothing 

     End Function 





strUrl = Request("url")

If strUrl = "" Then strUrl = "www.hakansen.com"

If Mid(strUrl,1,7) <> "http://" Then strUrl = "http://"&strUrl



Veri = GETHTTP(strUrl)

Response.Write Veri


strUrl değişkenini request("url") nesnesi ile aldık ama bunu başka bir siteden input değeri ile post veya get methodu ile bir formdan gönderip de işlem yapabilirsiniz.

Ağustos 6

BinaryToString Fonksiyonu

Yorumlar (0) Tarih : 6 Ağustos 2007 Pazartesi Saat: 20:12:05
Kategoriler : Makale, Sorun Giderme, Programlama
Etiketler : BinaryToString, xmlhttp, binary, string, fonksiyon, asp

Binary verileri stringlere çevirmeye yarayan bir fonksiyon, xmlHTTP ile veri çektiğimizde gelen binary verileri süzmemize yarayacaktır.

Kod:
Private  Function BinaryToString(Binary) 

     Dim  cl1, cl2, cl3, pl1, pl2, pl3 

     Dim  L 

        cl1 = 1 

        cl2 = 1 

        cl3 = 1 

        L = LenB(Binary) 

 

     Do  While cl1<=L 

          pl3 = pl3 &  Chr(AscB(MidB(Binary,cl1,1))) 

          cl1 = cl1 + 1 

          cl3 = cl3 + 1 

          If  cl3>300  Then 

                     pl2 = pl2 & pl3 

                     pl3 = "" 

                     cl3 = 1 

                     cl2 = cl2 + 1 

                      If  cl2>200  Then 

                             pl1 = pl1 & pl2 

                              pl2 = "" 

                              cl2 = 1 

                      End  If 

                  End If 

     Loop 

     BinaryToString = pl1 & pl2 & pl3 

 End Function


eXTReMe Tracker