ASP_分隔字符串生成列表选项

<%

Function AutoOption(arr)

Dim i

for i=0 to ubound(arr)

op=op+"<option value="&arr(i)&">"&arr(i)&"</option>"

next

AutoOption=op

End Function

%>

<form id="form1" name="form1" method="post" action="">

<select name="select">

<option>请选择</option>

<%

arr=Split("ABC|DEF|GH","|")

'arr=Split(GetSel("SK_Ptype"),vbcrlf) '硬回车

response.Write AutoOption(arr)

%>

</select>

</form>