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,"'","&#39;")
			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()
%>