関数 writeSlt(arrstr,arrstrValue,selectedstr)
'arrstr オプションに表示される値、arrstrValue オプションの実際の値、selectedstr 選択されるデフォルト値
'文字列を配列に分割し、選択したオプションを出力し、同じ長さになるように selectedstr arrstr&arrstrValue を選択します
arr=split(arrstr,",")
arrValue=split(arrstrValue,",")
j=0
do while j<=ubound(arr)
if トリム(arrValue(j))=trim(selectedstr) then
response.write "<option value='" & arrValue(j) & "' selected>" & arr(j) & "</option>"
それ以外
response.write "<option value='" & arrValue(j) & ''>" & arr(j) & "</option>"
終了する場合
j=j+1
ループ
終了関数
データをデータベースから読み取ってカンマ区切りの文字列を形成し、select の <option>
関数 getArrString(table,fld,cond,sortfld) を
動的に生成できます。
'指定されたテーブルの指定されたフィールドのデータを取得し、カンマ区切りの文字列を返します
set rs=server.createobject("adodb.recordset")
sql="「 & テーブルから " & fld & " を選択」
len(cond)>0の場合
sql=sql & " where " & cond
終了する場合
len(sortfld)>0の場合
sql=sql & " 並べ替え " & sortfld
終了する場合
rs.SQL、conn、1、1を開く
そうでない場合 (rs.bof または rs.EOF)
do while not rs.EOF
getArrString=getArrString & トリム(rs(fld)) & ","
rs.次へ移動
ループ
終了する場合
getArrString=left(getArrString,len(getArrString)-1)
rs.閉じる
rs=何も設定しない
終了関数