| 組權限 |
<%
dim rs,subrs
set rs=conn.exec("select MenuID, MenuName, (select Count(*) from {prefix}Menu as b where MenuStatus=1 and b.ParentID=a.MenuID ) from {prefix}Menu as a where MenuStatus=1 and ParentID=0 order by MenuOrder","r1")
do while not rs.eof
echo ""&rs(1)
echo "
"
' echo rs(0)&""& rs(1)&"
"
set subrs=conn.exec("select MenuID, MenuName from {prefix}Menu where MenuStatus=1 and ParentID="&rs(0)&" order by MenuOrder","r1")
do while not subrs.eof
echo ""&subrs(1)
subrs.moveNext
loop
rs.moveNext
echo "
"
loop
%>
|