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