Function OpenDB() 
  On Error Resume Next
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =test.mdb"
  If Err Then
    err.Clear
    Set Conn = Nothing
    Response.Write "数据库链接错误"
    Response.End
  End If
  
  OpenDB=True
End Function

Function CheckNum(Byval Num)
  If Not Isnumeric(Num) Then
    CheckNum=0
    Exit Function
  End If
    CheckNum=Cint(Num)
End Function

Sub GetClassOption(Byval C_ID,Byval CoinStr)
  C_ID=CheckNum(C_ID)
  If C_ID<>0 Then
    Set Rs_CID=Conn.Execute("Select ID,Cate_name From Catogory Where Cate_Parent="&C_ID)
    Do While Not Rs_CID.Eof
      Response.Write("<option value="""&Rs_CID("ID")&"""")
      If ClassID=int(Rs_CID("ID")) Then Response.Write(" selected=""selected"" ")
      Response.Write(">"&CoinStr&""&Rs_CID("Cate_name")&"</option>"&vbcrlf)
      Call GetClassOption(Rs_CID("ID"),"    "&CoinStr)
    Rs_CID.Movenext
    Loop
    Rs_CID.Close
    Set Rs_CID=Nothing
  End If
End Sub

<select name="ClassID" id="ClassID">
        <option value="0">请选择分类</option>
    <%Set Rs=Conn.Execute("select ID,Cate_name From Catogory Where Cate_Parent=0 Order by ID")
    Do While Not Rs.Eof
      Response.Write("<option value="""&Rs("ID")&"""")
      Response.Write(">├"&Rs("Cate_name")&"</option>"&vbcrlf)
      Call GetClassOption(Rs("ID"),"    |-")
    Rs.Movenext
    Loop
    Rs.Close
    Set Rs=Nothing
    %>
      </select>