ASP‘De Gelen Verideki Çiftleri Nasıl Buluruz?
-
function cift_kontrol(veri)
Dim d, item, thekeys
secim = split(veri,";")
Set d = CreateObject("Scripting.Dictionary")
for Each item In secim
if not d.Exists(item) Then d.Add item, item
next
thekeys = d.keys
if d.count = 7 then
cift_kontrol = True
else
cift_kontrol = False
end if
end function
HolyOne: verdiğin kodla biraz oynadım. bu halde bir kaç gün test ediyim. bakalım tekrar geçebilcekler mi.
--
Bu arada opera 10.60 versiyonunda basit tinymce çalışmıyo.bende mi sorun var?
Toplam Hit: 1920 Toplam Mesaj: 12
