A side menu bar written by ASP

Demo: http://goaler.xicp.net/demo/colspanmenu.asp

<%
Class menus

Public title, ID, image, titlecolor, target, background, headimage, height, width, bgcolor, Style
Private menuitem, menustr

Private sub class_initialize
Title = ""
Id = ""
Menuitem = ""
Image = ""
Titlecolor = "#000000"
Target = "_ blank"
Background = ""
Headimage = ""
Height = "20"
Width = "100%"
Bgcolor = ""
Style = ""
Script
End sub

Private sub class_terminate
Title = ""
Id = ""
Menuitem = ""
End sub

Public Function additem (byval nitem, byval nurl)
Menuitem = menuitem & "<tr> <TD style = 'font-size: 12px; 'align = 'left'> & nbsp; {$ image} <a href = '"& nurl &" 'target =' "& target &" 'class = '"& Style &"'> "& nitem &" </A> </TD> </tr>"
End Function

Public sub show ()
Menustr = "<Table border = 0 width = '" & width & "'style = 'border: 1px solid #999999; 'bgcolor = '"& bgcolor &"'> <tr> <TD Height = '"& Height &" 'onclick = menus (' "& ID &"') bgcolor = '"& bgcolor &" 'valign = 'bottom 'style = '"&_
"Font-size: 12px; color:" & titlecolor & "; cursor: hand; 'background = '" & Background & "'align = 'left'> & nbsp; & nbsp; {$ headimage} "& Title &" </TD> </tr> </table> <Div id = "& CHR (34) & ID & CHR (34) & "style =" & CHR (34 )&_
"Display: none;" & CHR (34) & "> <Table width = 100% border = 0 style = 'border-left: 1px solid #999999; border-right: 1px solid #999999; border-bottom: 1px solid #999999; '> "& menuitem &" </table> </div>"
 
If image <> "" then
Menustr = Replace (menustr, "{$ image}", image)
Else
Menustr = Replace (menustr, "{$ image }","")
End if
 
If headimage <> "" then
Menustr = Replace (menustr, "{$ headimage}", headimage)
Else
Menustr = Replace (menustr, "{$ headimage }","")
End if
 
Response. Write menustr
End sub

Private function script ()
Dim JScript
 
JScript = "<script language =" & CHR (34) & "JavaScript" & CHR (34) & "type =" & CHR (34) & "text/JavaScript" & CHR (34 )&_
">" & Vbcrlf & "<! -- "& Vbcrlf &" function menus (STR) {"& vbcrlf &" Var OBJ; If (document. getelementbyid (STR) {"& vbcrlf &_
"OBJ = Document. getelementbyid (STR );"&_
"If (obj. style. display = "& CHR (34) &" NONE "& CHR (34) &") {obj. style. display = "& CHR (34) & CHR (34 )&_
";} Else {obj. style. display = "& CHR (34) &" NONE "& CHR (34) &" ;}}// --> </SCRIPT>"
 
Response. Write JScript
End Function

Public sub addnew ()
Title = ""
Id = ""
Menuitem = ""
Menustr = ""
End sub

Public sub openitem (byval Itemid)

End sub

End Class
%>

Usage:
<%
Dim newmenus
Set newmenus = new menus
Newmenus. Target = "" 'Open Mode
Newmenus. bgcolor = "#336699" 'main tag background color
Newmenus. titlecolor = "# ffffff" 'main tab font color
Newmenus. Height = "10px" 'height
Newmenus. Style = "A1" 'subtag Style
Newmenus. width = "100%" 'menu width

Newmenus. addnew
Newmenus. Title = "Portal"
Newmenus. ID = "menu1"
Newmenus. additem "Netease", "http://www.163.com"
Newmenus. additem "Sohu", "http://www.sohu.com"
Newmenus. Show

Newmenus. addnew
Newmenus. Title = "personal website"
Newmenus. ID = "menu2"
Newmenus. additem "iebsoft Studio", "http://iebsoft.512j.com"
Newmenus. additem "rented space", "http://107814.hxidc.com"
Newmenus. Show

Newmenus. addnew
Newmenus. Title = "website news management"
Newmenus. ID = "menu3"
Newmenus. additem "News list ","#"
Newmenus. additem "image news ","#"
Newmenus. additem "news management ","#"
Newmenus. Show

Set newmenus = nothing
%>

From: http://goaler.xicp.net/ShowLog.asp? Id = 509