< !-- #include virtual='Include/database.asp' -->
< %
set rs=Server.CreateObject("ADODB.RecordSet")

sql="SELECT menu_name, menu_link, menu_bgcolor, menu_color,id FROM enter_individual WHERE (parent_id = (SELECT id FROM enter_individual WHERE menu_flag = 'root' )) " '查詢(xún)得到根節(jié)點(diǎn)
rs.Open sql,conn,1,1
Response.Write "< table width=100% border=0 cellspacing=1 cellpadding=0 align=center>< tr bgcolor=#3399CC valign=bottom align=center>"
sumnum=rs.RecordCount
myArray=rs.GetRows()
rs.Close ()
widd=780/sumnum '從一級(jí)子菜單數(shù)目判斷彈出菜單x坐標(biāo)的遞增像素
dim i
i=0
defaultbgcolor="#3399cc" '指定默認(rèn)底色
defaultcolor="#ffffff" '指定默認(rèn)字體顏色
defaultlink="#" '指定默認(rèn)鏈接
posit_x=0 'x位置
flag=1 '標(biāo)志，作為菜單彈出方向 1表示向右，0表示向左
'Response.Write myArray(4,6)
while i Response.Write "< td height=20 bgcolor="&myArray(2,i)&" width="&widd&">< a href="&myArray(1,i)&" onmouseover=java script:a"&myArray(4,i)&".style.display='block' onmouseout=java script:a"&myArray(4,i)&".style.display='none' >< font color="&myArray(3,i)&" >"&myArray(0,i)&"< /a>< /td>"
'-----------------------------------------------

i=i+1
Wend
Response.Write "< /tr>< /table>"

i=0
while i posit_y=100 'y位置回到原位


If i>=(sumnum/2) Then '如果菜單進(jìn)入右半部分，則彈出轉(zhuǎn)向
flag=0
End If

'調(diào)用GetSubMenu 函數(shù) 設(shè)置該項(xiàng)一級(jí)菜單的下級(jí)菜單，以myArray(4,i) 即菜單id作為下級(jí)菜單所在div 的id

GetSubMenu myArray(4,i),posit_x,posit_y
posit_x=posit_x+widd '下一個(gè)一級(jí)菜單的子菜單的 x坐標(biāo)值增加一個(gè)單位
i=i+1

Wend

'使用遞規(guī)算法的到下級(jí)菜單的函數(shù)
'parent_id 父 id; posit_x 彈出層的左邊位置; posit_y 彈出層的離上面位置;

Function GetSubMenu(parent_id,posit_x,posit_y)
dim myArray
dim sumnum
dim i

'查詢(xún)子菜單的下級(jí)菜單
sql="SELECT menu_name, menu_link, menu_bgcolor, menu_color,id FROM enter_individual WHERE parent_id = "&parent_id&" AND user_id = '"&userid&"'"
rs.Open sql,conn,1,1

'如果下級(jí)菜單不存在，則層數(shù)減一 ，關(guān)閉數(shù)據(jù)庫(kù)鏈接，建立一個(gè)以父id為div id的空層，然后返回
If rs.EOF=true Then
level=level-1
rs.Close ()
'Response.Write parent_id
Response.Write "< div id='a"&parent_id&"' style='position: absolute; top: 4; left: -1; display: none; width: 0; height: 0'>< /div>"
Else

'如果存在取到數(shù)據(jù)庫(kù)數(shù)據(jù)，并調(diào)用SetSubMenu顯示菜單
sumnum=rs.RecordCount
myArray=rs.GetRows()
rs.Close ()
SetSubMenu myArray,sumnum,parent_id,posit_x,posit_y

'對(duì)數(shù)據(jù)進(jìn)行循環(huán)，遞規(guī)調(diào)用GetSubMenu
i=0
while i< sumnum
posit_y=posit_y*1+20 '遞規(guī)一次posit_y 加一個(gè)單位，
if level=0 Then '如果級(jí)數(shù)減到0 則回到1
level=1
End If
'If flag=1 Then
'GetSubMenu myArray(4,i),posit_x+level*widd,posit_y-level*20 '遞規(guī)調(diào)用GetSubMenu x，y坐標(biāo)延伸 level 個(gè)單位
'End If
If flag=0 Then
GetSubMenu myArray(4,i),posit_x-level*widd,posit_y-level*20 '遞規(guī)調(diào)用GetSubMenu x，y坐標(biāo)延伸 level 個(gè)單位
Else
GetSubMenu myArray(4,i),posit_x+level*widd,posit_y-level*20 '遞規(guī)調(diào)用GetSubMenu x，y坐標(biāo)延伸 level 個(gè)單位
End If

i=i+1
Wend
End If

End Function

'設(shè)置子菜單函數(shù)
'myArray 菜單數(shù)據(jù) ，sumnum 數(shù)組大小 ,parent_id 層的id ;
'posit_x 彈出層的左邊位置; posit_y 彈出層的離上面位置;

Function SetSubMenu (myArray,sumnum,parent_id,posit_x,posit_y)
dim i
parent_id="a"&parent_id '父菜單id前面加上a 作為層的id
hh=sumnum*20 '數(shù)組大小乘以20作為層的高度
Response.Write "< DIV onmouseover=java script:"&parent_id&".style.display='block' onmouseout=java script:"&parent_id&".style.display='none' ID='"&parent_id&"' STYLE='position: absolute; top:"&posit_y&"; left:"&posit_x&"; height:"&hh*1&"; width: "&widd&"; display:none;vertical-align: top'>< table width=100% border=0 cellspacing=1 cellpadding=0 >"
i=0
While i

myArray(0,i)=Trim(myArray(0,i))
myArray(1,i)=Trim(myArray(1,i))
myArray(2,i)=Trim(myArray(2,i))
myArray(3,i)=Trim(myArray(3,i))


If myArray(2,i)="" Then
myArray(2,i)=defaultbgcolor
End If

If myArray(3,i)="" Then
myArray(3,i)=defaultcolor
End If

If myArray(1,i)="" Then
myArray(1,i)=defaultlink
End If


Response.Write "< tr align=center >< td width=100% height=20 bgcolor="&myArray(2,i)&" onmouseover=java script:"&parent_id&".style.display='block';a"&myArray(4,i)&".style.display='block' onmouseout=java script:a"&myArray(4,i)&".style.display='none'>< a href='"&myArray(1,i)&"'>< font color="&myArray(3,i)&" >"&myArray(0,i)&"< /font>< /a>< /td>< /tr>"

i=i+1
Wend

Response.Write " < /table> < /DIV>"


End Function

Set rs=nothing
conn.Close ()
Set conn=nothing
% >