QueryString' den Gelen Veriyi 255 Karakterlik Parçalara Bölmek

Bu derste veritabanındaki tek bir alana sığmayacak verileri bölüyoruz.

Bu derste veritabanındaki tek bir alana sığmayacak verileri bölüyoruz.


<%

deger = Request("veri") ' QueryString' den aldığımız "veri" değerini "deger" olarak atadık. 

Dim veri(7) ' veri adında bir dizi oluşturuk veri(0), veri(1) ... veri(6) [toplam 7 veri]

part = 0 ' geçerli dizi elemanını belirtmek için (dizi index numarası)

Sub Islem ' bir Sub tanımladık

If Len(deger) > 255 Then ' deger 255 karakterden büyükse

veri(part) = Mid(deger, 1, 255) ' geçerli dizi elemanı deger' in ilk 255 karakterini aldı

deger = Mid(deger, 255, Len(deger)) ' deger değişkeninden ilk 255 karakter çıkarıldı

part = part + 1 ' dizi index numarası 1 arttırıldı (sonraki dizi elemanına gidecek)

End If

End Sub

If Len(deger) > 255 Then Islem ' deger 255 karakterden büyükse "işlem" sub çalıştır

%>



Bu kod çalıştırıldığında eğer deger 255 karakterden büyükse veri(0) dan başlayıp veri(6) ya kadar bölecektir.

Veritabanına şu şekilde yerleştirmelisiniz.


rs("veri1")=veri(0)

rs("veri2")=veri(1)



Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

slm arkadaşım sifrelemiş asp konu var onu nasıl düzenleyebilirim yardımcı olabilirmisniz
Bayt şifrelemeyse ve şifreyi biliyorsan bu programla çözebilirsin; http://yunusapplications.com/?p=indir&d=1255

Yukarı Git