这是一个选择列表 希望你能看懂
<select size="1" name="xxlx" style="height:18px; width:90px;">
<option value="">全部</option>
<%
if instr(xxlx,"|")>0 then
dim xxlxArr,ixxlx
xxlxArr=split(xxlx,"|")
for ixxlx = 0 to ubound(xxlxArr)
if sxxlx=xxlxArr(ixxlx) then
Response.write"<option value="&xxlxArr(ixxlx)&" selected>"&xxlxArr(ixxlx)&"</option>"
else
Response.write"<option value="&xxlxArr(ixxlx)&">"&xxlxArr(ixxlx)&"</option>"
end if
next
else
Response.write"<option value="&xxlx&">"&xxlx&"</option>"
end if
%>
</select>