ฟังก์ชั่น writeSlt (arrstr, arrstrValue, selectedstr)
'arrstr ค่าที่จะแสดงในตัวเลือก, arrstrValue มูลค่าที่แท้จริงของตัวเลือก, ที่เลือกstr ค่าเริ่มต้นที่จะเลือก
'แยกสตริงออกเป็นอาร์เรย์ ส่งออกตัวเลือกที่เลือก และเลือก Selectstr arrstr&arrstrValue เพื่อให้มีความยาวเท่ากัน
arr=แยก(arrstr,",")
arrValue=split(arrstrValue,",")
เจ=0
ทำในขณะที่ j<=ubound(arr)
ถ้า trim(arrValue(j))=trim(selectedstr) แล้ว
response.write "<option value='" & arrValue(j) & "' เลือกแล้ว>" & arr(j) & "</option>"
อื่น
response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
สิ้นสุดถ้า
เจ=เจ+1
วนซ้ำ
ฟังก์ชั่นสิ้นสุด
ข้อมูลสามารถอ่านได้จากฐานข้อมูลเพื่อสร้างสตริงที่คั่นด้วยเครื่องหมายจุลภาคเพื่อสร้าง
ฟังก์ชัน <option> ของ Select แบบไดนามิก getArrString(table,fld,cond,sortfld)
'รับข้อมูลของฟิลด์ที่ระบุในตารางที่ระบุและส่งกลับสตริงที่คั่นด้วยเครื่องหมายจุลภาค
ตั้งค่า rs=server.createobject("adodb.recordset")
sql="เลือก " & fld & " จาก " & table
ถ้า len(cond)>0 แล้ว
sql=sql & " โดยที่ " & cond
สิ้นสุดถ้า
ถ้า len(sortfld)>0 แล้ว
sql=sql & " เรียงลำดับตาม " & sortfld
สิ้นสุดถ้า
rs.เปิด sql,conn,1,1
ถ้าไม่ใช่ (rs.bof หรือ rs.EOF) แล้ว
ทำในขณะที่ไม่ใช่ rs.EOF
getArrString=getArrString & ตัด (rs (fld)) & ","
rs.MoveNext
วนซ้ำ
สิ้นสุดถ้า
getArrString=ซ้าย(getArrString,len(getArrString)-1)
rs.ปิด
ตั้งค่า rs=nothing
ฟังก์ชั่นสิ้นสุด