Maison  >  Article  >  développement back-end  >  Une barre de menu latérale écrite en ASP

Une barre de menu latérale écrite en ASP

怪我咯
怪我咯original
2017-03-31 11:30:072850parcourir

Une barre de menu latérale écrite en ASPLe code est le suivant

<% 
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=&#39;font-size:12px;&#39; align=&#39;left&#39;>    {$Image}<a href=&#39;" & nURL & "&#39; target=&#39;"&Target&"&#39; class=&#39;"& Style &"&#39;>" & nItem & "</a></td></tr>"
End Function
Public Sub Show()
 menuStr = "<table border=0 width=&#39;"& Width &"&#39; style=&#39;border:1px solid #999999;&#39; bgcolor=&#39;"& Bgcolor &"&#39;><tr><td height=&#39;"& Height &"&#39; Onclick=menus(&#39;" & ID & "&#39;) bgcolor=&#39;"& Bgcolor &"&#39; valign=&#39;bottom&#39; style=&#39;" & _
 "font-size:12px;color:"&TitleColor&";cursor: hand;&#39; background=&#39;"&Background&"&#39; align=&#39;left&#39;>  {$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=&#39;border-left:1px solid #999999;border-right:1px solid #999999;border-bottom:1px solid #999999;&#39;>" & 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
%>

Une barre de menu latérale écrite en ASP
Une barre de menu latérale écrite en ASP
Utilisation :

<%
Dim NewMenus
Set NewMenus = new menus
NewMenus.Target = "" &#39;打开方式
NewMenus.Bgcolor = "#336699" &#39;主标签背景色
NewMenus.TitleColor = "#FFFFFF" &#39;主标签字体颜色
NewMenus.Height = "10px" &#39;高度
NewMenus.Style ="a1" &#39;子标签样式
NewMenus.Width = "100%" &#39;菜单宽度
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
%>

Une barre de menu latérale écrite en ASP

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!

Déclaration:
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn