función writeSlt(arrstr,arrstrValue,str seleccionada)
'arrstr El valor que se mostrará en la opción, arrstrValue El valor real de la opción, selectedstr El valor predeterminado que se seleccionará
'Dividimos una cadena en una matriz, generamos la opción seleccionada y seleccionamos selectedstr arrstr&arrstrValue para que tenga la misma longitud
arr=dividir(arrstr,",")
arrValue=dividir(arrstrValue,",")
j=0
hacer mientras j<=ubound(arr)
si trim(arrValue(j))=trim(selectedstr) entonces
respuesta.escribir "<opción valor='" & arrValue(j) & "' seleccionado>" & arr(j) & "</option>"
demás
respuesta.escribir "<opción valor='" & arrValue(j) & "'>" & arr(j) & "</option>"
terminar si
j=j+1
bucle
función final
Los datos se pueden leer desde la base de datos para formar una cadena delimitada por comas para generar dinámicamente la
función <opción> de selección getArrString(table,fld,cond,sortfld)
'Obtiene los datos del campo especificado en la tabla especificada y devuelve una cadena separada por comas
establecer rs=servidor.createobject("adodb.recordset")
sql="seleccione "& fld & " de " & tabla
si len(cond)>0 entonces
sql=sql & "dónde" & cond
terminar si
si len(sortfld)>0 entonces
sql=sql & "ordenar por" & sortfld
terminar si
rs.Abrir sql,conn,1,1
si no (rs.bof o rs.EOF), entonces
hacer mientras no rs.EOF
getArrString=getArrString & trim(rs(fld)) & ","
rs.MoverSiguiente
bucle
terminar si
getArrString=izquierda(getArrString,len(getArrString)-1)
rs.Cerrar
establecer rs = nada
función final