ASP multi-level menu (beautification)

xiaoxiao2021-03-06  84

Table Structure

ID INT

Menuname Nvarchar 50

Menuurl nvarchar 255

Parentid Int

Step int

<% '========================== ===================== Data source '=========================== ==================== DIM RS, SQL, RSCountSet RS = Server.createObject ("AdoDb.Recordset") SQL = "Select * from menu Order BY ID ASC" rs.open sql, conn, 1,1rscount = rs.recordcount '=================================== =========== 'Deposit data in array' ================================= ============== Dim Menu (100, 3) "needs to be changed according to the number of records DIM ITEMSTRINGFOR I = 0 to RsCount-1 if = 0 to rscount-1 ife.eof or 帖子 帖子 帖子(RS ("Menuurl")) <> "" "" "" ") &" "" "&" "" & "" "& r (" menuname ") & r (" menuname ") & r (" menuname ") &"

'=============================================== implemented Menu '============================================== DIM CSS' Style Dim Ourstr, Stepinfosub GetMenu (PARENTID) for J = 0 To Ubound (Menu, 1) IF ParentId = MENU (J, 2) Then Stepinfo = MENU (J, 3) CSS = "Step" & StepInfo 'Control Output Style IF CINT (Stepinfo) = 1 damtr = "

& menu (j, 1) & "" elseif cint (step "" else outstr = "
& menu (j, 1) &" "endiff Response.write (outstr) IF Menu (j, 0) <> "" "" "

GetMenu Menu (j, 0) end if end if next end sub%> menu < / title> <style type = "text / css"> <! - body {margin: 0px; font: Normal 12px Song; Scrollbar-Face-Color: # 799ae1; scrollbar-highlight-color: # 799ae1; scrollbar-shadow -COLOR: # 799AE1; SCROLLBAR-dARKSHADOW-COLOR: # 799AE1; SCROLLBAR-3DLIGHT-COLOR: # 799AE1; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR: #AABFEC;} div.step0 {background-color : # 037bc2; Height: 18px; Width: 150px; font-weight: bold; color: #ffff; text-align: center;} div.step1 {height: 18px; cursor: hand; padding-left: 10px;} Div .step2 {height: 18px; Cursor: Hand; Padding-left: 40px;} Div {font-size: 12px;} Table {font-size: 12px;} A: link {color: # 002084; Text-Decoration: NONE } A: visited {text-decoration: none; color: # 002084;} A: hover {text-decoration: underline;} A: Active {text-decoration: underline;}. kuang {border: 1px solid # 5582d2; Background-color: # f1f1f1;} -> </ stop> </ head> <body BGColor = "# 8caae6"> <br> <table width = "160" border = "0" align = "center" cellpadding = "0" cellspacing = "0" class = "kuang"> <tr> <td height = "8" align = "center" bgcolor = "# 002f5e"> <img src = "./ pic / dot.gif" width = "1" height = "1"> </ td> </ tr> <TR > <Td height = "25" align = "center"> <span class = "menu_title> <a href="main.asp" target=ma> <b> management home page </ b> </A></p> <p>| <a href="../login/logout.asp" target=_top> <b> Exit Management </ b> </a> <a href="menu_list.asp" target=ma> <b> </ B> </a> </ span> </ td> </ tr> <tr> <td align = "center"> <% call getmenu (0)%> </ td> </ tr> </ table> <br> </ body> </ html></p> <p><% '================================================ ????????????????????? data source '=========================== =================== DIM RS, SQL, RSCountSet RS = Server.createObject ("AdoDb.Recordset") SQL = "Select * from menu Order BY ID ASC" RS .open SQL, CONN, 1, 1RSCOUNT = r.RecordCount '==================================== ========== '? ????? Use the data into the array' ============================ ================== Dim Menu (35, 3)? 'The number of DIM ITEMSTRINGFOR I = 0 to RSCount-1? if = 0 to RsCount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = 0 to rscount-1? if = BOF THEN EXIT for? IF TRIM (RS ("Menuurl")) <> "" Itemstring = "" "" "" ")" "ELSE? Itemstring = RS (" MENUNAME ")? END IF? MENU (i, 0) = rs ("ID")? MENU (i, 1) = itemstring? MENU (i, 2) = RS ("ParentID")? MENU (I, 3) = RS ("STEP")? Rs.MovenextNext</p> <p>'=============================================== ?? ??? Implement menu '============================================ == DIM CSS? 'Style SUB GETMENU (PARENTID)? For j = 0 to Ubound (menu, 1) ?? if ParentId = MENU (J, 2) Then ?? CSS = "Step" & menu (J, 3)? "Response.write (" "& menu (j, 1) &") ?? if menu (j, 0) <> "" "" GetMenu Menu (j, 0) ?? end if ?? Endiff? Next? End sub%></p> <p>Copyright by lonz</p></div><div class="text-center mt-3 text-grey"> 转载请注明原文地址:https://www.9cbs.com/read-122057.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>) </div><div></div></div></div><ul class="postlist list-unstyled"> </ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="122057" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved </div><div class="col text-right">Processed: <b>0.046</b>, SQL: <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script> var debug = DEBUG = 0; var url_rewrite_on = 1; var url_path = './'; var forumarr = {"1":"Tech"}; var fid = 1; var uid = 0; var gid = 0; xn.options.water_image_url = 'view/img/water-small.png'; </script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script> var forum_url = 'list-1.html'; var safe_token = 'qN_2BnLORa_2Fj_2Bw_2FCzy1vdBFfe6B5FYqRu4rYlmopVesTAaL1p_2FwOZT6oLfnbc8NMn_2BrQy3_2FLeXyNAiMk9PZsYxFA_3D_3D'; var body = $('body'); body.on('submit', '#form', function() { var jthis = $(this); var jsubmit = jthis.find('#submit'); jthis.reset(); jsubmit.button('loading'); var postdata = jthis.serializeObject(); $.xpost(jthis.attr('action'), postdata, function(code, message) { if(code == 0) { location.reload(); } else { $.alert(message); jsubmit.button('reset'); } }); return false; }); function resize_image() { var jmessagelist = $('div.message'); var first_width = jmessagelist.width(); jmessagelist.each(function() { var jdiv = $(this); var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width(); var jmessage_width = Math.min(jdiv.width(), maxwidth); jdiv.find('img, embed, iframe, video').each(function() { var jimg = $(this); var img_width = this.org_width; var img_height = this.org_height; if(!img_width) { var img_width = jimg.attr('width'); var img_height = jimg.attr('height'); this.org_width = img_width; this.org_height = img_height; } if(img_width > jmessage_width) { if(this.tagName == 'IMG') { jimg.width(jmessage_width); jimg.css('height', 'auto'); jimg.css('cursor', 'pointer'); jimg.on('click', function() { }); } else { jimg.width(jmessage_width); var height = (img_height / img_width) * jimg.width(); jimg.height(height); } } }); }); } function resize_table() { $('div.message').each(function() { var jdiv = $(this); jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); }); } $(function() { resize_image(); resize_table(); $(window).on('resize', resize_image); }); var jmessage = $('#message'); jmessage.on('focus', function() {if(jmessage.t) { clearTimeout(jmessage.t); jmessage.t = null; } jmessage.css('height', '6rem'); }); jmessage.on('blur', function() {jmessage.t = setTimeout(function() { jmessage.css('height', '2.5rem');}, 1000); }); $('#nav li[data-active="fid-1"]').addClass('active'); </script>