下拉菜单的option写法？

[leekeeny]

<select name="s1" onChange="changeselect1(this.value)">
<option>==请选择频道==</option>
<%
dim customer()
num = 0
i = 0

Dim rsClass1,sqlClass1
set rsClass1=server.createobject("adodb.recordset")
set rsClass11=server.createobject("adodb.recordset")
set rsClass12=server.createobject("adodb.recordset")
sqlClass11 = "select proto_id from proto_info where bizline = '"&request("bizline")&"'"
rsClass11.open sqlClass11,conn,1,1
protoid = rsClass11("proto_id")
if not rsClass11.eof then
sqlClass12 = "select distinct project_id from project_m where proto_id = '"&protoid&"'"
rsClass12.open sqlClass12,conn,1,1
do while not rsClass12.eof
projectid = rsClass12("project_id")
sqlClass1="SELECT distinct customer_name FROM customer_m WHERE project_id = '"&projectid&"' "
rsClass1.open sqlClass1,conn,1,1
recordnum = rsClass1.recordcount

do while not rsClass1.eof
num = num + recordnum
redim Preserve customer(num)

customer(i) = rsClass1("customer_name")

i = i + 1

rsClass1.movenext
loop
rsClass1.close
rsClass12.movenext
loop
rsClass12.close
end if
rsClass11.close
' response.write"<option value="&rsClass1("customer_name")&">"&rsClass1("customer_name")&"</option>"

%>

<%
mCount=i
For i=0 to mCount -1
For j=i+1 to mCount-1
If customer(i)=customer(j) Then
For k=j to mCount -1
customer(k)=customer(k+1)
Next
Redim Preserve customer(mCount-1)
mCount=mCount-1
End If
Next
Next
for i=0 to mCount
response.Write "<option value="customer(i)">"customer(i)"</option>"
next
%>

</select>

我的下拉菜单不知道为什么出不来。红色标记的写法正确吗？读取数据数据。

[leekeeny]

<select name="s1" onChange="changeselect1(this.value)"> 
<option>==请选择频道== </option> 
<% 
dim customer() 
num = 0 
i = 0 

Dim rsClass1,sqlClass1 
set rsClass1=server.createobject("adodb.recordset") 
set rsClass11=server.createobject("adodb.recordset") 
set rsClass12=server.createobject("adodb.recordset") 
sqlClass11 = "select proto_id from proto_info where bizline = '"&request("bizline")&"'" 
rsClass11.open sqlClass11,conn,1,1 
protoid = rsClass11("proto_id") 
if not rsClass11.eof then 
sqlClass12 = "select distinct project_id from project_m where proto_id = '"&protoid&"'" 
rsClass12.open sqlClass12,conn,1,1 
do while not rsClass12.eof 
projectid = rsClass12("project_id") 
sqlClass1="SELECT distinct customer_name FROM customer_m  WHERE project_id = '"&projectid&"' " 
rsClass1.open sqlClass1,conn,1,1 
recordnum = rsClass1.recordcount 
'begin
do while not rsClass1.eof '这段代码把所有数据读取出来存放到数据库当中
num = num + recordnum 
redim Preserve customer(num) 

customer(i) = rsClass1("customer_name") 

i = i + 1 

rsClass1.movenext 
loop 'end
rsClass1.close 
rsClass12.movenext 
loop 
rsClass12.close 
end if 
rsClass11.close 
' response.write" <option value="&rsClass1("customer_name")&">"&rsClass1("customer_name")&" </option>" 

%> 

<% '这段代码是为了把数组里面的重复数据删除。
mCount=i 
For i=0 to mCount -1 
    For j=i+1 to mCount-1 
        If customer(i)=customer(j) Then 
            For k=j to mCount -1 
                customer(k)=customer(k+1) 
            Next 
            Redim Preserve customer(mCount-1) 
            mCount=mCount-1 
        End If 
    Next 
Next 
for i=0 to mCount 
response.Write " <option value="customer(i)">"customer(i)" </option>" 
next 
%> 

</select> 

[孟子E章]

response.Write "<option value='" & customer(i) & "'>" & customer(i) & "</option>"

[leekeeny]

谢谢。我已经改了。但是发现了一个问题。他说我记录集为空。。。又没标注哪一行的错误。这咋解决呢？

[黑心]

把on error resume next这句注释了。

[wangyexb]

学习了

[freebirdyjl]

if mCount>-1 then
for i=0 to mCount
response.Write " <option value="""&customer(i)&""">"&customer(i)&" </option>"
next
end if

以上是标准写法，用单引号也行，不是HTML的标准显示