Salinan kode adalah sebagai berikut:
<input name = "file" type = "file">
formsize = request.totalbytes
formdata = request.binaryRead (formsize)
bncrlf = chrb (13) & chrb (10)
Divider = LeftB (formdata, clng (instrb (formdata, bncrlf))-1)
DataStart = instrb (formdata, bncrlf & bncrlf) +4
DataEnD = Instrb (Datastart+1, FormData, Divider) -Datastart
mydata = midb (formdata, datastart, dataend)
formsize = request.totalbytes
Dapatkan jumlah maksimum byte yang diunggah
-----------------------------------------------------------------------------------------------------------------------------
formdata = request.binaryRead (formsize)
Dapatkan Formulir Data Formulir Biner
-----------------------------------------------------------------------------------------------------------------------------
bncrlf = chrb (13) & chrb (10)
Setel CRLF Enter Variabel Kode Break Line
------------------------------
Divider = LeftB (formdata, clng (instrb (formdata, bncrlf))-1)
Dapatkan data byte di sebelah kiri CRLF pertama
Instrb (formdata, bncrlf) -1 mesin memeriksa bahwa nilai bit byte biner CRLF dikurangi satu, yaitu data biner sebelum informasi bit flag. Perlu dicatat bahwa instrb mengembalikan clng, jadi menambahkan clng di sini tidak perlu
------------------------------
DataStart = instrb (formdata, bncrlf & bncrlf) +4
Dapatkan data gambar dan hapus posisi mulai dari informasi header yang ditambahkan oleh formulir formulir, yaitu, posisi awal byte dari data file nyata setelah formulir dikirimkan oleh tipe = file Anda
Posisi dua CRLFS +4 berturut -turut (yaitu, panjang satu CRLFG)
-------------------------------
DataEnD = Instrb (Datastart+1, FormData, Divider) -Datastart
Posisi data +1 yang diperoleh dari yang di atas digunakan sebagai nilai yang dihitung referensi untuk memeriksa akhir data. Deteksi posisi dimulai di Datastart+1 mengembalikan posisi informasi header pemisah bentuk biner pertama, dan kemudian mengurangi posisi relatif datastar
-----------------------------------------------------------------------------------------------------------------------------
mydata = midb (formdata, datastart, dataend)
midb () mengambil data bit star end dari data file unggah yang diperoleh dengan banyak tikungan dan belokan di atas
OK ---------------> Sekarang dengan bersih Ekstrak data sekunder yang diunggah
Catatan:
(1). Semua fungsi VB dari seri *B diproses oleh byte, dan mereka harus digunakan untuk menangani sistem sekunder.
(2) Setelah data formulir tipe = file dan jenis formulir yang sesuai dikirimkan, informasi header yang sesuai dilampirkan ke setiap bidang file.
Oleh karena itu, algoritma di atas harus digunakan untuk menemukan data file yang sebenarnya
(3). Pada saat yang sama, informasi header juga berisi data yang mengunggah nama file awal, seperti c: /aaa/aaa.jpg. Data formdata dapat diproses nama file uji pertama dari data domain file dari segmen tersebut.
(4). Algoritma ini berasal dari data format yang disediakan oleh spesifikasi "formulir" HTTP, sehingga setiap algoritma pemrosesan serupa!