一个ASP写的侧边菜单栏
程序员文章站
2022-03-31 15:51:40
...
代码如下
<% 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'> {$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'> {$HeadImage}" & Title & "</td></tr></table><p 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></p>" 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 %>
使用方法:
<% 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 %>
以上就是一个ASP写的侧边菜单栏 的详细内容,更多请关注其它相关文章!
上一篇: C++ 多线程编程总结
下一篇: PHP4实际应用经验篇6_PHP教程
推荐阅读
-
MySql实战篇:写一个简单的存储过程,完成订单定时任务
-
用python写的一个wordpress的采集程序
-
怎样用 Python 写一个股票自动交易的程序?(不包含交易算法)?
-
创建一个完整的ASP.NET Web API项目
-
还在为小三角形切图?使用纯CSS写一个简单的三角形_html/css_WEB-ITnose
-
Python写的一个定时重跑获取数据库数据
-
初来乍到,PHP setcookie怎么能正确使用?我写的代码只能设置两个中的一个,怎么办?
-
创建一个完整的ASP.NET Web API项目
-
asp.net实现在XmlTextWriter中写入一个CDATA的方法
-
在ASP.NET 2.0中操作数据之六十:创建一个自定义的Database-Driven Site Map Provider