除了提醒你先注册该控件之外,
另外再给你一个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
%>
另外再给你一个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
%>
我将控件放在HTML文件中运行的很好,如果没有注册就没有办法执行。
但是放入ASP 文件中就不能调用了