网页功能: 加入收藏 设为首页 网站搜索  
一个ASP写的侧边菜单栏
发表日期:2005-01-25作者:yagas[转贴] 出处:CSDN  

 

同于工作的必要,无意之中写出了一个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;&nbsp;&nbsp;&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
%>

使用方法:
<%
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写的侧边菜单栏
本类热点文章
  ASP获得网卡的MAC地址
  默认点击下载pdf等文件而不是在浏览器中..
  纯ASP结合VML生成完美图-折线图
  利用ASP实现事务处理的方法
  ASP的分页函数
  酷月历(公、农历)
  ASP操作Excel技术总结
  数据库连接函数大全
  ASP中取得图片宽度和高度的类
  ASP连接11种数据库语法总结
  ASP 编程中20个非常有用的例子
  用InstallShield打包ASP程序
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00456