效果：

代码：

<%
' 数据库：database.mdb
' 表：category
' 字段：id,name,parentid
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
Sub BindCategory(parentid, level)
    Dim rsCategory, strSQL
    strSQL = "SELECT * FROM category WHERE parentid=" & parentid
    Set rsCategory = Server.CreateObject("ADODB.Recordset")
    rsCategory.Open strSQL, conn, 1, 3
    Do While Not rsCategory.EOF
        Response.Write "<option value='" & rsCategory("id") & "'>" & String(level, "-") & rsCategory("name") & "</option>"
        BindCategory rsCategory("id"), level + 1
        rsCategory.MoveNext
    Loop
    rsCategory.Close
    Set rsCategory = Nothing
End Sub
%>
<select>
    <option value='0'>请选择分类</option>
    <% BindCategory 0, 1 %>
</select>