针对select写了一个通用的option输出函数

'author:chjpeng

'email:chjpeng@163.com

function writeSlt(arrstr,arrstrValue,selectedstr)

'arrstr 要显示在option里面的值，arrstrValue option的实际值，selectedstr要选中的默认值

'将一个字串分割为数组，输出select的option，并选中selectedstr arrstr&arrstrValue长度要一致

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>"

else

response.write "<option value='" & arrValue(j) & "'>" & arr(j) & "</option>"

end if

j=j+1

loop

end function

可以从数据库中读出数据，形成逗开分隔的字符串，来动态生成select的<option>

function getArrString(table,fld,cond,sortfld)

'获取一个指定表中指定字段指字条件的数据，返回一个以逗号分隔的字符串

set rsdq=server.createobject("adodb.recordset")

sqldq="select " & fld & " from " & table

if len(cond)>0 then

sqldq=sqldq & " where " & cond

end if

if len(sortfld)>0 then

sqldq=sqldq & " order by " & sortfld

end if

rsdq.Open sqldq,conn,1,1

if not (rsdq.bof or rsdq.EOF) then

do while not rsdq.EOF

getArrString=getArrString & trim(rsdq(fld)) & ","

rsdq.MoveNext

loop

end if

getArrString=left(getArrString,len(getArrString)-1)

rsdq.Close

set rsdq=nothing

end function