The code is as follows
<% 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 & "" End Function Public Sub Show() menuStr = " {$Image}" & nItem & "
{$HeadImage}" & Title & " |
##Usage method:
<% Dim NewMenus Set NewMenus = new menus NewMenus.Target = "" '打开方式 NewMenus.Bgcolor = "#336699" '主标签背景色 NewMenus.TitleColor = "#FFFFFF" '主标签字体颜色 NewMenus.Height = "10px" '高度 NewMenus.Style ="a1" '子标签样式 NewMenus.Width = "100%" '菜单宽度 NewMenus.AddNew NewMenus.Title = "门户网站" NewMenus.ID = "menu1" NewMenus.AddItem "网易", "http://www.163.com" NewMenus.AddItem "搜狐", "http://www.sohu.com" NewMenus.Show NewMenus.AddNew NewMenus.Title = "个人网站" NewMenus.ID = "menu2" NewMenus.AddItem "IEBSoft studio", "http://iebsoft.512j.com" NewMenus.AddItem "租用的空间", "http://107814.hxidc.com" NewMenus.Show NewMenus.AddNew NewMenus.Title = "网站新闻管理" NewMenus.ID = "menu3" NewMenus.AddItem "新闻列表", "#" NewMenus.AddItem "图片新闻", "#" NewMenus.AddItem "新闻管理", "#" NewMenus.Show Set NewMenus = Nothing %>
The above is the detailed content of A side menu bar written in ASP. For more information, please follow other related articles on the PHP Chinese website!