>백엔드 개발 >C#.Net 튜토리얼 >ASP로 작성된 사이드 메뉴바

ASP로 작성된 사이드 메뉴바

怪我咯
怪我咯원래의
2017-03-31 11:30:072873검색

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=&#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
%>

ASP로 작성된 사이드 메뉴바
ASP로 작성된 사이드 메뉴바
사용법:

으르르르르르

ASP로 작성된 사이드 메뉴바

위 내용은 ASP로 작성된 사이드 메뉴바의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명:
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.