将数组中的数据添加到下拉列表中

<%
'a1=array("dd","ff","aa","fff")
a="ASP网站开发全书,案例开发集锦,专家门诊开发答疑,ASP相关数据库技术,计算机应用技术,理想的社会主义,真的冬天里没有雪,天天的祝福天,如果有一天,理想的目标"
'split用于柝分数组
a1=Split(a,",")
%> 

<select name="select">
<% for i=0 to ubound(a1) %>
<option value="<%=a1(i)%>"><%=a1(i)%></option>
<%next%>
</select>

说明：
split(expression[,delimiter[,count]])
        expression:字符串表达式，必选
        delimiter 可选，标识子字符串界限的字符。如果省略则用空格作为分隔符。
         count 可选，用于返回子字符串的数目，-1指示返回所有的字符串

UBound函数

返回一个 Long 型数据，其值为指定的数组维可用的最大下标。

语法

UBound(arrayname[, dimension])

UBound 函数的语法包含下面部分：

部分	描述
arrayname	必需的。数组变量的名称，遵循标准变量命名约定。
dimension	可选的；Variant (Long)。指定返回哪一维的上界。1 表示第一维，2 表示第二维，以此类推。如果省略 dimension，就认为是 1。

说明

UBound 函数与 LBound 函数一起使用，用来确定一个数组的大小。LBound 用来确定数组某一维的上界。

对具有下述维数的数组而言，UBound 的返回值见下表：

Dim A(1 To 100, 0 To 3, -3 To 4)

语句	返回值
UBound(A, 1)	100
UBound(A, 2)	3
UBound(A, 3)	4