fungsi writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr Nilai yang akan ditampilkan dalam opsi, arrstrValue Nilai sebenarnya dari opsi, yang dipilihstr Nilai default yang akan dipilih
'Pisahkan string ke dalam array, keluarkan opsi yang dipilih, dan pilih Selectedstr arrstr&arrstrValue agar memiliki panjang yang sama
arr=berpisah(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
lakukan sambil j<=ubound(arr)
jika trim(arrValue(j))=trim(selectedstr) maka
respon.tulis "<nilai pilihan='" & arrValue(j) & "' dipilih>" & arr(j) & "</option>"
kalau tidak
respon.tulis "<nilai pilihan='" & arrValue(j) & "'>" & arr(j) & "</option>"
berakhir jika
j=j+1
lingkaran
fungsi akhir
Data dapat dibaca dari database untuk membentuk string yang dipisahkan koma untuk menghasilkan
fungsi <option> pilihan secara dinamis getArrString(table,fld,cond,sortfld)
'Dapatkan data bidang tertentu di tabel tertentu dan kembalikan string yang dipisahkan koma
set rs=server.createobject("adodb.recordset")
sql="pilih " & fld & " dari " & tabel
jika len(cond)>0 maka
sql=sql & " di mana " & lanjutan
berakhir jika
jika len(sortfld)>0 maka
sql=sql & " pesan berdasarkan " & sortfld
berakhir jika
rs.Buka sql, samb., 1,1
jika tidak (rs.bof atau rs.EOF) maka
lakukan selagi tidak rs.EOF
getArrString=getArrString & potong(rs(fld)) & ","
rs.MoveNext
lingkaran
berakhir jika
getArrString=kiri(getArrString,len(getArrString)-1)
rs.Tutup
atur rs=tidak ada
fungsi akhir