كتب وظيفة إخراج خيار عام للاختيار

دالة writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr القيمة التي سيتم عرضها في الخيار، arrstrValue القيمة الفعلية للخيار، Selectedstr القيمة الافتراضية التي سيتم تحديدها
'قم بتقسيم سلسلة إلى مصفوفة، وقم بإخراج الخيار المحدد، وحدد المحدد str arrstr&arrstrValue ليكون له نفس الطول
آر = سبليت (arrstr، "،")
arrValue = سبليت (arrstrValue، "،")
ي=0
افعل بينما j<=ubound(arr)
إذا تقليم (arrValue (j)) = تقليم (selectedstr) إذن
Response.write "<option value='" & arrValue(j) & "' المحدد>" & arr(j) & "</option>"
آخر
Response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
نهاية إذا
ي=ي+1
حلقة
وظيفة النهاية

يمكن قراءة البيانات من قاعدة البيانات لتكوين سلسلة مفصولة بفواصل لإنشاء

وظيفة <option> getArrString(table,fld,cond,sortfld)

'احصل على بيانات الحقل المحدد في الجدول المحدد وقم بإرجاع سلسلة مفصولة بفواصل
مجموعة rs=server.createobject("adodb.recordset")
sql = "حدد" & fld & "من" & الجدول
إذا لين (كوند)> 0 ثم
sql=sql & "حيث" & cond
نهاية إذا
إذا كان len(sortfld)>0 إذن
sql=sql & "الترتيب حسب" &sortfld
نهاية إذا
rs.Open SQL، كون، 1،1
إن لم يكن (rs.bof أو rs.EOF) ثم
تفعل في حين لا rs.EOF
getArrString=getArrString & Trim(rs(fld)) & "،"
rs.MoveNext
حلقة
نهاية إذا
getArrString=left(getArrString,len(getArrString)-1)
إغلاق
تعيين RS=لا شيء
وظيفة النهاية