树形分类代码如何改成以下样式？

如题，我要改成 http://www.longfacn.com/Main/Product.asp左边那个产品分类的效果，如何改啊？？

function pageMenu(ParentID,i,level)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from NwebCn_ProductSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by Sequence asc"
rs.open sql,conn,1,1
if conn.execute("select ID from NwebCn_ProductSort Where ViewFlag"&Language&" and ParentID=0").eof then
response.write "暂无相关信息"
else
do while not rs.eof
if ParentID=0 then
response.write "<img src=""Images/arrow_05.gif"">&nbsp;&nbsp;<a href=""ProductList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
else
if i=1 then
response.write "<img src=""Images/arrow_06.gif"" margin-left:"&i*20&"px;"">&nbsp;&nbsp;<a href=""ProductList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
else
response.write "<img src=""Images/arrow_06.gif"" margin-left:"&i*18&"px;"">&nbsp;&nbsp;<a href=""ProductList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
end if
end if
i=i+1
if i<level then call pageMenu(rs("ID"),i,level)
i=i-1
rs.movenext
loop
end if
rs.close
set rs=nothing
end function

像这情况,直接用JS控制就好了.用如果鼠标放在那文字上面显示什么,离开就不显示.可以用ID来控制具体内容