Table Structure
ID INT
Menuname Nvarchar 50
Menuurl nvarchar 255
Parentid Int
Step int
<% '========================== ===================== Data source '=========================== ==================== DIM RS, SQL, RSCountSet RS = Server.createObject ("AdoDb.Recordset") SQL = "Select * from menu Order BY ID ASC" rs.open sql, conn, 1,1rscount = rs.recordcount '=================================== =========== 'Deposit data in array' ================================= ============== Dim Menu (100, 3) "needs to be changed according to the number of records DIM ITEMSTRINGFOR I = 0 to RsCount-1 if = 0 to rscount-1 ife.eof or 帖子 帖子 帖子(RS ("Menuurl")) <> "" "" "" ") &" "" "&" "" & "" "& r (" menuname ") & r (" menuname ") & r (" menuname ") &"
'=============================================== implemented Menu '============================================== DIM CSS' Style Dim Ourstr, Stepinfosub GetMenu (PARENTID) for J = 0 To Ubound (Menu, 1) IF ParentId = MENU (J, 2) Then Stepinfo = MENU (J, 3) CSS = "Step" & StepInfo 'Control Output Style IF CINT (Stepinfo) = 1 damtr = "
GetMenu Menu (j, 0) end if end if next end sub%>