fonction writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr La valeur à afficher dans l'option, arrstrValue La valeur réelle de l'option, selectedstr La valeur par défaut à sélectionner
'Divisez une chaîne en un tableau, affichez l'option sélectionnée et sélectionnez selectedstr arrstr&arrstrValue pour avoir la même longueur
arr=split(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
faire pendant que j<=ubound(arr)
si trim(arrValue(j))=trim(selectedstr) alors
réponse.write "<option value="" & arrValue(j) & "' selected>" & arr(j) & "</option>"
autre
réponse.write "<option value="" & arrValue(j) & "'>" & arr(j) & "</option>"
finir si
j=j+1
boucle
fonction de fin
Les données peuvent être lues à partir de la base de données pour former une chaîne délimitée par des virgules afin de générer dynamiquement
la fonction <option> de select getArrString(table,fld,cond,sortfld)
'Récupère les données du champ spécifié dans la table spécifiée et renvoie une chaîne séparée par des virgules
set rs=server.createobject("adodb.recordset")
sql="select " & fld & " from " & table
si len(cond)>0 alors
sql=sql & " où " & cond
finir si
si len(sortfld)>0 alors
sql=sql & " trier par " & sortfld
finir si
rs.Open sql, conn, 1,1
sinon (rs.bof ou rs.EOF) alors
faire sans rs.EOF
getArrString=getArrString & trim(rs(fld)) & ","
rs.MoveNext
boucle
finir si
getArrString=gauche(getArrString,len(getArrString)-1)
rs.Fermer
définir rs = rien
fonction de fin