关于网站的二级导航菜单

请教各位:我的网站的一级和二级分类需要在后台添加,我想在首页上显示导航栏的时候,鼠标经过每个栏目时,会自动显示此栏目的二级分类,我应该怎么实现?
'一级分类
if class1<>"" or class2<>"" then
dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select id,class1 from [class1] where id="&class1&" order by paixu desc"
rs2.open sql2,conn,1,1
if rs2.bof or rs2.eof then
response.redirect "/"
end if
dim tit
tit=rs2("class1")
rs2.close
set rs2=nothing
end if
以上代码显示一级分类,那二级应该如何实现?