Alper tarafından, 22 Temmuz 2009 tarihinde yazıldı. Bulunduğu kategori: ASP
3
Hazırlamakta olduğum blog uygulamasının içinde takvim kullanmam gerekti. İlk olarak hazırladığım örnek statik bir sayfaydı ve sadece bulunduğumuz ayın günlerini gösteriyordu. Bir müddet bu şekilde kullandıktan sonra dinamik bir takvimin daha güzel olacağını düşünerek geliştirmeye başladım.
Bu aşamada ilk önce, önceki ve sonraki ayları gösterecek şekilde kodları düzenledim. Daha sonra her ay değişiminde sayfanın yenilenmesini engellemek için ajax kullanmaya karar verdim. Bu işlemi en kolay JQuery ile halledeceğimi düşündüm. JQuery Documentation ve eburhan.com sayfalarında bulunan örneklere de bakarak JQuery kullanmaya karar verdim.
Hazırladığım örnek uygulamayı buradan indirebilir ya da çalışan versiyonu buradan görebilirsiniz.
Alper tarafından, 03 Temmuz 2009 tarihinde yazıldı. Bulunduğu kategori: ASP
33
Bu scriptin farklı bir versiyonunu
burada görebilirsiniz.
Bugün, otomatik tamamlama (auto complete) olarak geçen bu sistemin ASP versiyonu için R10 forumda bir istek gördüm ve bu sayfadaki PHP ile yapılmış versiyonu ASP ile yapmaya karar verdim. Sadece sorgulama yapılan sayfayı asp için uyarladım. Geri kalan tüm kodlar orijinal siteye aittir.
Ayrıca veritabanı olarak Hakan Şen’in yapmış olduğu İller ve İlçeler Veritabanı’nın MS Access versiyonunu kullandım.
Script içinde kullanılan kodlar aslında oldukça basit..
Javascript
function lookup(inputString) {
if(inputString.length == 0) {
// herhangi bir değer girilmemişse sonuç kutuyu gösterme
$('#suggestions').hide();
} else {
$.post("sorgu.asp", {queryString: ""+inputString+""}, function(data){
//sorgu.asp sayfasından dönen sonuç sıfırdan büyükse sonuç kutusunu göster
if(data.length >0) {
$('#suggestions').show();
$('#autoSuggestionsList').html(data);
}
});
}
}
function fill(thisValue) {
$('#inputString').val(thisValue);
setTimeout("$('#suggestions').hide();", 200);
}İlk fonksiyon sorgu.asp sayfasını kullanarak veritabanından uyan kayıtları çekmeye ve kullanıcıya göstermeye yarıyor.
İkinci fonksiyon ise sonuç kutusundan seçilen değerin inputa aktarılmasını ve sonra kutunun gizlenmesini sağlıyor.
ASP (sorgu.asp)
'Veritabanı bağlantımızı oluşturuyoruz
Set conn = Server.CreateObject("ADODB.Connection")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("iller.mdb")
conn.open dsn
'Formdan gelen veriyi alıyoruz
aranan = Request.Form("queryString")
'Recordset açılıyor
Set RS=Server.CreateObject("ADODB.Recordset")
'Gelen veriyi veritabanında sorgulayacak sql cümlesini yazıyoruz
Sql = "Select * From ilceler Where ilce Like '" & aranan & "%' Order By ilce"
RS.Open Sql, conn, 1, 3
If RS.RecordCount > 0 Then 'Veritabanından dönen kayıt sayısı sıfırdan büyükse
i = 1
'Toplam 10 kayıt listeliyoruz
Do While Not RS.EOF And i < 11
Response.Write ("<li onClick=""fill('"&RS("ilce")&"');"">"&RS("ilce")&"</li>")
i = i + 1
RS.MoveNext
Loop
End If
RS.Close
conn.CloseUygulamanın çalışan versiyonunu görmek için buraya, indirmek için buraya tıklayınız. Umarım işinize yarar.
Alper tarafından, 09 Haziran 2009 tarihinde yazıldı. Bulunduğu kategori: ASP
0
Üyelik sistemlerinde üye olan kişinin e-posta adresini doğrulamak için bir e-posta gönderilir. Kimi zaman bu e-postalarda MNh39h02zYI gibi bir aktivasyon kodu görülür. Bu şekilde bir kod oluşturmak için alttaki fonksiyonu kullanabilirsiniz.
Function KodOlustur(KacKarakter)
Dizi = Array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","w","v","x","y","z","1","2","3","4","5","6","7","8","9") 'Karakter dizisi
ToplamKarakter = 35 'Dizideki karakter sayısı
For i = 1 To KacKarakter 'Kodun uzunluğu kadar döngüye girer
Randomize
rastgele = Rnd()
TekKod = Dizi(Int(((ToplamKarakter - 1) * rastgele) + 1))
ToplamKod = ToplamKod & TekKod
Next
KodOlustur = ToplamKod
End FunctionKodun kullanım şekli ise şu şekilde:
Response.Write KodOlustur(8) 'sekiz karakter uzunluğunda rastgele kod üretir
