【www.bbyears.com--导航菜单】
演示：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 & " {$Image}" & nItem & ""
End Function
Public Sub Show()
menuStr = " "font-size:12px;color:"&TitleColor&";cursor: hand;" background=""&Background&"" align="left"> {$HeadImage}" & Title & " "display:none;"& chr(34) & ">" & menuItem & ""