一个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 & "left'> {$Image}class='"& Style &"'>" & nItem & "
"
End Function
Public Sub Show()
menuStr = " "font-size:12px;color:"&TitleColor&";cursor: hand;' background='"&Background&"' align='left'> {$HeadImage}" & Title & "
chr(34) & ID & chr(34) & " style=" &chr(34) & _
"display:none;"& chr(34) & ">left:1px solid #999999;border-right:1px solid #999999;border-bottom:1px solid #999999;'>" & menuItem & " "
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 = "
chr(34)&"javascript"&chr(34)&"type="&chr(34)&"text/javascript"&chr(34)& _
">"&vbcrlf&""
response.Write JScript
End Function
Public Sub AddNew()
Title = ""
ID = ""
menuItem = ""
menuStr = ""
End Sub
Public Sub OpenItem(Byval ItemID)
End Sub
end class
%>
使用方法：
以下是代码片段：
<%
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
%> |
关联文档