|
<html> <head> <LINK HREF=""egomenu.css""
TYPE="text/css" REL="stylesheet"> <title>...:::Ego Design:::...</title> <style type="text/css"> BODY
{ scrollbar-face-color:
#0000ff; scrollbar-shadow-color:
#00005a; scrollbar-highlight-color:
#ffffff; scrollbar-3dlight-color:
#000000; scrollbar-darkshadow-color:
#00005a; scrollbar-track-color:
#00005a; scrollbar-arrow-color: #ffffff; } </style> </head> <% Sub buildDesign(name, link, level, subs, optName) if
level = 0 then exit sub if
level = 1 then Response.Write
"<center><h1>" target = "Hauptframe" if
subs > 0 then link
= "menu.asp?show" & optName & "=1" target
= "_self" end
if
if link <> "" then
Response.Write "<a target=""" & target &
""" href=""""" & link &
""">" Response.Write name if link <> "" then
Response.Write "</a>" Response.Write
"</h1></center>" else if
link <> "" then Response.Write "<a
href=""""" & link & """>" for
i=2 to level Response.Write
" " next if
link <> "" then Response.Write "</a>" Response.Write
name & "<br>" end
if End Sub Sub writeOption (name, link, show, parentID, level) if
parentID = -1 then Set
rs = DBIExecRS("SELECT * FROM MenuOption where MOParentID is null") else Set
rs = DBIExecRS("SELECT * FROM MenuOption where MOParentID=" &
parentID) end
if buildDesign
name, link, level, rs.RecordCount, parentID if
show=true then while
not rs.eof if
Request.QueryString("show" & rs("MOID")) =
"1" then writeOption
rs("MOName"), rs("MOLink"), true, rs("MOID"),
level + 1 else writeOption
rs("MOName"), rs("MOLink"), false, rs("MOID"),
level + 1 end
if rs.movenext wend end
if Set
rs = nothing End Sub %> <body> <SCRIPT LANGUAGE=VBSCRIPT RUNAT=SERVER
SRC=""dbi.vbs"></SCRIPT> <% writeOption
"", "", true, -1, 0 %> </body> </html> |
