Direkomendasikan: Asp menghasilkan string acak 13 digit html title /title body % Functiongen_key(digits) 'Definisikan dan inisialisasi array dimchar_array(80) 'Inisialisasi angka Fori=0To9 char_array(i)=CStr(i) Next 'Inisialisasi huruf besar Fori=10To35 char_array(i)= Chr(i +55) Berikutnya 'Inisialisasi huruf kecil Fori=36To61 char_array(i)=Chr
Menyimpan data menggunakan string interval dapat mengurangi jumlah kolom database yang akan ditulis, dan juga memfasilitasi perluasan data di masa mendatang.Misalnya: di forum, kepribadian pengguna memiliki kepribadian ganda, optimis, dewasa dan mantap, kekanak-kanakan dan nakal, lembut dan perhatian, dll. Nilai yang sesuai masing-masing adalah 0, 1, 2, 3, 4 Gunakan karakter spacer saat menyimpan data ini. String untuk menyimpan data ke dalam kolom teks. Format penyimpanan datanya adalah: 0|2|3|4|.
Saat menggunakan string interval untuk memisahkan berbagai data, nilai subskrip maksimum array yang dihasilkan ketika 0|2|3|4| dan 0|2|3|4 dipisahkan menggunakan fungsi Split seringkali berbeda perhatian, karakter spasi tambahan akan ditulis di paling kanan. Dengan cara ini, satu bagian data lagi akan dilintasi saat dikeluarkan. Untuk menghindari situasi ini, string harus terdeteksi.
Ide:
1. Periksa apakah ada string pengatur jarak di sisi kanan. Jika ada, Anda perlu mengurangi nilai subskrip maksimum array sebanyak satu.
2. Jika tidak ada, langsung kembalikan subskrip maksimum dari array aslinya.
Kode:
DimTempStr,TempArr,TempItem
TempStr=Item pertama 1|Item kedua 1|Item ketiga|
TempArr=Pisahkan(TempStr,|)
Respon.WriteTempStr&<br/>
ForTempItem=0ToUBoundStrToArr(TempStr,UBound(TempArr),|)
Respon.WriteTempArr(TempItem)&<br/>
Berikutnya
'************************
'Fungsi: UBoundStrToArr
'Fungsi: mendeteksi nilai subskrip maksimum dari string asli yang diubah menjadi array
'Parameter: cCheckStr (string yang akan dideteksi)
'cUBoundArr (menghasilkan nilai subskrip maksimum dari array)
'cSpaceStr (string spasi)
'Kembali: nilai subskrip maksimum dari array
'***************************
Fungsi PublikUBoundStrToArr(OlehValcCheckStr,OlehValcUBoundArr,OlehValcSpaceStr)
IfInstr(cCheckStr,cSpaceStr)=0Lalu
UBoundStrToArr=cUBoundArr
Fungsi Keluar
AkhirJika
DimTempSpaceStr,UBoundValue
TempSpaceStr=Mid(cCheckStr,Len(cCheckStr)-Len(cSpaceStr)+1)' Dapatkan karakter spasi di sisi kanan string
IfTempSpaceStr=cSpaceStrThen'Jika ada karakter spasi di sisi paling kanan string, nilai subskripnya harus -1
Nilai UBound=cUBoundArr-1
Kalau tidak
Nilai UBound=cUBoundArr
AkhirJika
UBoundStrToArr=Nilai UBound
Fungsi Akhir
Bagikan: ASP+AJAX membuat perintah pencarian mirip dengan Google File utamanya adalah: Index.html mengimplementasikan fungsi, kotak teks, memasukkan konten dan mengimplementasikan fungsi kueri search.asp prompt, memungkinkan konten yang dimasukkan dalam kotak teks untuk ditanyakan ke database, dan kemudian mengembalikannya ke klien fungsi koneksi database conn.asp untuk mengimplementasikan Bagian inti xmlhttp.jsAJAX terhubung ke database dan digunakan untuk mentransfer data klien ke server dan kemudian mentransfer data server ke server.