www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > default_menu_javascript.asp
<% Dim JCategory Dim JCategory_numRows Set JCategory = Server.CreateObject("ADODB.Recordset") JCategory.ActiveConnection = MM_oConn_STRING JCategory.Source = "SELECT * FROM ac_category WHERE ID > 0 ORDER BY VerticalPosition ASC, Name ASC" JCategory.CursorType = 0 JCategory.CursorLocation = 2 JCategory.LockType = 1 JCategory.Open() JCategory_numRows = 0 Repeat1__numRows = -1 Repeat1__index = 0 Category_numRows = Category_numRows + Repeat1__numRows Repeat2__numRows = -1 Repeat2__index = 0 Item_numRows = Item_numRows + Repeat2__numRows dim catID, catCount catID = 0 function printJItem(catID) Dim JItem Dim JItem_numRows Set JItem = Server.CreateObject("ADODB.Recordset") JItem.ActiveConnection = MM_oConn_STRING dim myCatID myCatID = "SELECT * FROM ac_item WHERE Category_ID = " & catID & " ORDER BY VerticalPosition ASC, Title ASC" JItem.Source = myCatID JItem.CursorType = 0 JItem.CursorLocation = 2 JItem.LockType = 1 JItem.Open() JItem_numRows = 0 dim JStr2, JStr3, JStr3b, JStr4, JStr5, rowCount rowCount = 0 if (JItem.pageSize > 0) then While (not JItem.EOF) JStr3 = JItem.Fields.Item("Title").Value JStr3b = Replace(JStr3,"'","'") JStr4 = JItem.Fields.Item("ID").Value JStr5 = JItem.Fields.Item("Content").Value dim publishableItem, strMenuVis, strStartDate, strEndDate strMenuVis = JItem.Fields.Item("VisibleMenu").Value strStartDate = JItem.Fields.Item("StartPub").Value strEndDate = JItem.Fields.Item("EndPub").Value dim publicationCheck1,publicationCheck2 publicationCheck1 = publicationCheck(strMenuVis,strStartDate,strEndDate) response.write("//print menu javascript" & vbLf) if (publicationCheck1 = "true") then hasMenuItems = catCount if ((JItem.Fields.Item("Type").Value="Page") or (JItem.Fields.Item("Type").Value="Iframe") or (JItem.Fields.Item("Type").Value="rss")) then JStr2 = "mm_menu_" & catID &".addMenuItem(""" & JStr3 & """,""getMenuItem('default.asp?itemID="& JStr4 & "&itemTitle="& JStr3b & "','"& JStr4 & "');"");" elseif (JItem.Fields.Item("Type").Value="Link") then JStr2 = "mm_menu_" & catID &".addMenuItem(""" & JStr3 & """,""window.open('" & JStr5 & "', '_top');"");" end if response.write(JStr2 & vbLf) end if Repeat2__index = Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rowCount = rowCount + 1 JItem.MoveNext() Wend end if JItem.Close() end function function publicationCheck(menuVisibility,startDate,endDate) publicationCheck = "false" dim publicationCheckItem1, publicationCheckItem2, publicationCheckItem3 if (menuVisibility = "true") then publicationCheckItem1 = "true" end if dim myStartCheck,myTimeNow,myEndCheck myTimeNow = Year(now) & "-" & Month(now) & "-" & Day(now) & " " & Hour(now) & ":" & Minute(now) & ":" & Second(now) myStartCheck = DateDiff("s", startDate, myTimeNow) if (myStartCheck > 1) then publicationCheckItem2 = "true" end if myEndCheck = DateDiff("s", myTimeNow, endDate) if (myEndCheck > 1) then publicationCheckItem3 = "true" end if if (publicationCheckItem1 = "true" and publicationCheckItem2 = "true" and publicationCheckItem3 = "true") then publicationCheck = "true" end if end function function hasItems(catCount) Dim JItem2 Dim JItem_numRows Set JItem2 = Server.CreateObject("ADODB.Recordset") JItem2.ActiveConnection = MM_oConn_STRING dim myCatID2 myCatID2 = "SELECT * FROM ac_item WHERE Category_ID = " & catCount & " ORDER BY VerticalPosition ASC, Title ASC" JItem2.Source = myCatID2 JItem2.CursorType = 0 JItem2.CursorLocation = 2 JItem2.LockType = 1 JItem2.Open() JItem_numRows = 0 while not JItem2.EOF and JItem_numRows < JItem2.PageSize dim HstrMenuVis, HstrStartDate, HstrEndDate HstrMenuVis = JItem2.Fields.Item("VisibleMenu").Value HstrStartDate = JItem2.Fields.Item("StartPub").Value HstrEndDate = JItem2.Fields.Item("EndPub").Value dim HpublicationCheck1 HpublicationCheck1 = publicationCheck(HstrMenuVis,HstrStartDate,HstrEndDate) if (HpublicationCheck1="true") then JItem_numRows = JItem_numRows + 1 end if JItem2.MoveNext wend dim JStr2, JStr3, JStr4, rowCount hasItems = JItem_numRows JItem2.Close() end function function printJCategory(catID) dim JStr1 if (Repeat1__index < 1) then JStr1 = "window.mm_menu_" & catID &" = new Menu(""root1"",155,27,""" & Item_Font_Type & """,""" & Item_Font_Size & """,""" & Item_Font_Color & """,""" & Item_Font_Color_Over & """,""" & Menu_item_bg & """,""" & Menu_item_over_bg & """,""left"",""middle"",3,0,200,-5,7,true,true,true,0,false,false);" else Repeat1__index = Repeat1__index + 1 JStr1 = "window.mm_menu_" & catID &" = new Menu(""root"",155,27,""" & Item_Font_Type & """,""" & Item_Font_Size & """,""" & Item_Font_Color & """,""" & Item_Font_Color_Over & """,""" & Menu_item_bg & """,""" & Menu_item_over_bg & """,""left"",""middle"",3,0,200,-5,7,true,true,true,0,false,false);" end if response.write(JStr1 & vbLf) printJItem(catID) response.write("mm_menu_" & catID & ".hideOnMouseOut=true;" & vbLf) response.write("mm_menu_" & catID & ".menuBorder=0;" & vbLf) response.write("mm_menu_" & catID & ".menuLiteBgColor='#ffffff';" & vbLf) response.write("mm_menu_" & catID & ".menuBorderBgColor='#000000';" & vbLf) response.write("mm_menu_" & catID & ".bgColor='" & Border_dark & "';" & vbLf) response.write("mm_menu_" & catID & ".myID='" & cStr(catID) & "';" & vbLf) 'add category id to javascript response.write(vbLf) end function %> <script type="text/javascript" language="JavaScript"> <!-- function mmLoadMenus() { if (window.mm_menu_4) return; <% While ((Repeat1__numRows <> 0) and (not JCategory.EOF)) catCount = JCategory.Fields.Item("ID").Value dim itemCheck, hasMenuItems itemCheck = hasItems(catCount) if (itemCheck > 0) then printJCategory(catCount) end if Repeat1__index = Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 JCategory.MoveNext() Wend %> //write the menus <% if (hasMenuItems <> "") then %> mm_menu_<%= hasMenuItems %>.writeMenus(); <% end if %> } function getMenuItem(myPage,myVal) { menuForm.action = myPage menuForm.objHidden.value = myVal; menuForm.submit(); } //--> </script> <% JCategory.Close() %>