Demonstration: http://asp2004.net/temp/treemenu/favorite.asp <% @ language = "vbscript" CodePage = "936"%>
Network Bookmarks Title> head> <% action = Request.QueryString ("action") if action = "save "Thendim A (10) a (0) = 0t = Request.form (" TT ") T = Split (TT, CHR (13)) for i = 0 to Ubound (T) -1S = Split (t (i) CHR (9)) Conn.execute ("INSERT INTO MENU (ID1, Menuname, URL) Values (" & A (S (0) -1) & ", '" & S (1) & "', '" & S 2) & "')") IF S (2) = "" "SET RS = conn.execute (" SELECT TOP 1 ID AS MENU ORDER BY ID DESC ") A (S (0)) = rs (" TP ") end ifnextresponse.redirect (" index.asp ") ELSE%> First adjust the Internet security area to the bottom.
Press the "Load" button, you may be prompted: "The interactions on this page may not be safe. Do you want this interaction?" Select Yes, favorites content It can be loaded. Press the Submit button to save your favorites.