逻辑应该是这样的,没测试
----------------------------------
<%
dim x=1
for i=1 to rs.Recordcount
    if rs(i).length>x then
        rs(i).length=x
    end if
next
%>
<select style="width:<%=x%>;">