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 rs=server.createobject("adodb.recordset")
　　sql="select " & fld & " from " & table
　　if len(cond)>0 then
　　 sql=sql & " where " & cond
　　end if
　　if len(sortfld)>0 then
　　 sql=sql & " order by " & sortfld
　　end if
　　rs.Open sql,conn,1,1
　　if not (rs.bof or rs.EOF) then
　　 do while not rs.EOF
　　  getArrString=getArrString & trim(rs(fld)) & ","
　　  rs.MoveNext
　　 loop
　　end if
　　getArrString=left(getArrString,len(getArrString)-1)
　　rs.Close
　　set rs=nothing
　　end function