除了提醒你先注册该控件之外,
另外再给你一个ASP例子吧(可以保证是没有问题的):
<select size="1" name="selDepID" Style="WIDTH: 145px">
<option value=-1 selected><%=strDefault%></option>
<%
Dim  objCorp
Dim  rsDep     
    Set  rsDep = Server.CreateObject("ADODB.RecordSet")
                                 
    Set  objCorp = Server.CreateObject("ProjName.clsName")
    Set  rsDep = objCorp.GetDepByOptn ()
   %>
   <% 
If Not(rsDep is Nothing) Then '如果表中有数据则进行追加
Do While Not rsDep.EOF %>
<% Response.Write "<option value='" %>
<% = rsDep("ID") %><% Response.Write "'>" %>
<% = rsDep("Name") %>
<% Response.Write "</option>" %>
<% rsDep.MoveNext %>
<% Loop %>
<% End If %>
</select>
<%
Set rsDep = Nothing
Set objCorp = Nothing
%>