функция writeSlt (arrstr, arrstrValue, selectedstr)
'arrstr Значение, отображаемое в опции, arrstrValue Фактическое значение опции selectedstr Выбираемое значение по умолчанию
'Разбить строку на массив, вывести выбранную опцию и выбрать selectedstr arrstr&arrstrValue, чтобы она имела одинаковую длину
arr=split(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
делать, пока j<=ubound(arr)
если Trim(arrValue(j))=trim(selectedstr) тогда
response.write "<option value="" & arrValue(j) & "' selected>" & arr(j) & "</option>"
еще
response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
конец, если
j=j+1
петля
конечная функция
Данные можно считывать из базы данных для формирования строки, разделенной запятыми, для динамического создания
функции <option> select getArrString(table,fld,cond,sortfld)
'Получаем данные указанного поля в указанной таблице и возвращаем строку, разделенную запятыми
set rs=server.createobject("adodb.recordset")
sql="select " & fld & " from " & table
если len(cond)>0, то
sql=sql & "где" & cond
конец, если
если len(sortfld)>0, то
sql=sql & "упорядочить по" и sortfld
конец, если
rs.Open sql,conn,1,1
если нет (rs.bof или rs.EOF), то
делай пока не rs.EOF
getArrString=getArrString & Trim(rs(fld)) & ","
rs.MoveNext
петля
конец, если
getArrString = влево (getArrString, len (getArrString)-1)
rs.Close
установить rs=ничего
конечная функция