Funktion writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr Der in der Option anzuzeigende Wert, arrstrValue Der tatsächliche Wert der Option, selectedstr Der auszuwählende Standardwert
'Teilen Sie eine Zeichenfolge in ein Array auf, geben Sie die ausgewählte Option aus und wählen Sie selectedstr arrstr&arrstrValue aus, um dieselbe Länge zu haben
arr=split(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
do while j<=ubound(arr)
if trim(arrValue(j))=trim(selectedstr) then
Response.write "<option value='" & arrValue(j) & "' selected>" & arr(j) & "</option>"
anders
Response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"
Ende wenn
j=j+1
Schleife
Endfunktion
Daten können aus der Datenbank gelesen werden, um eine durch Kommas getrennte Zeichenfolge zu bilden, um die <Option>
-Funktion getArrString(table,fld,cond,sortfld)
von select dynamisch zu generieren.
'Holen Sie sich die Daten des angegebenen Felds in der angegebenen Tabelle und geben Sie eine durch Kommas getrennte Zeichenfolge zurück
set rs=server.createobject("adodb.recordset")
sql="select " & fld & " from " & table
wenn len(cond)>0 dann
sql=sql & " where " & cond
Ende wenn
wenn len(sortfld)>0 dann
sql=sql & " order by " & sortfld
Ende wenn
rs.Open sql,conn,1,1
wenn nicht (rs.bof oder rs.EOF), dann
tun, während nicht rs.EOF
getArrString=getArrString & trim(rs(fld)) & ","
rs.MoveNext
Schleife
Ende wenn
getArrString=left(getArrString,len(getArrString)-1)
rs.Schließen
setze rs=nichts
Endfunktion