#152006/5/13 19:39:11
已经做到这里了,帮我看看,下边应该怎么做,好吗?
一级导航放在:myarry1()里边,这是一维数组
二级导航防在:myarry2()里边,这是二维数组
<!-- #include file="conn.asp" -->
<%
set rs1=server.createobject("adodb.recordset")
sql="select id,theme from wlj_theme"
rs1.open sql,conn,1,1
set rs2=server.createobject("adodb.recordset")
sql="select idno,title from wlj_title"
rs2.open sql,conn,1,1
%>
<%
dim myarry1()
dim myarry2()
dim x
dim y
x=0
redim myarry1(rs1.recordcount)
redim myarry2(rs1.recordcount-1,rs2.recordcount-1)
if ((not rs1.bof) and (not rs1.eof)) then
do until rs1.eof
myarry1(x)=rs1("theme")
'response.write("<br>"&myarry1(x)&":")
if ((not rs2.bof) and (not rs2.eof)) then
y=0
do until rs2.eof
if rs2("idno")=rs1("id") then
myarry2(x,y)=rs2("title")
'response.write(myarry2(x,y)&" ")
end if
rs2.movenext
y=y+1
loop
rs2.movefirst
end if
rs1.movenext
x=x+1
loop
x=x-1
y=y-1
end if
%>
<html>
<head><title>郁闷死我了</title>
<SCRIPT language=javascript>
<!--
function showMenu(oSrc,e,sCont,n)
{
var lay;
lay=document.getElementById("topicPrompt");
lay.style.visibility='visible';
if(n==0){
var x=document.body.scrollLeft + e.clientX - e.offsetX + oSrc.offsetLeft+20;
var y=document.body.scrollTop + e.clientY - e.offsetY + oSrc.offsetTop + 18;
lay.style.left=x;
lay.style.top=y;
n=1;
}
else{
lay.style.left=x;
lay.style.top=y;
}
}
function hideMenu(s)
{
var lay=document.getElementById(s);
if(lay) lay.style.visibility='hidden';
}
//-->
</SCRIPT>
</head>
<DIV id=topicPrompt onMouseOver="showMenu(this,event,"1111",1)" onmouseout="hideMenu('topicPrompt')"
style="BORDER-RIGHT: #dddddd 1px solid; PADDING-RIGHT: 0px; BORDER-TOP: #dddddd 1px solid; PADDING-LEFT: 12px; Z-INDEX: 1; BACKGROUND: #ffffff; FILTER: progid:DXImageTransform.Microsoft.Shadow(Strength=7, Direction=135, color=#aaaaaa); VISIBILITY: hidden; PADDING-BOTTOM: 0px; BORDER-LEFT: #dddddd 1px solid;LINE-HEIGHT: 22px; PADDING-TOP: 8px; BORDER-BOTTOM: #dddddd 1px solid; POSITION: absolute; HEIGHT: 30px"></DIV>
<table border=1><tr>
<%
for i=0 to ubound(myarry1)-1
%>
<td><a href="xxx.asp" onmouseover="showMenu(this,event,"520",0)" onmouseout="hideMenu('topicPrompt')"><%=myarry1(i)%></a></td>
<%next%>
</tr></table>
<%
'for j=0 to ubound(myarry2,2)
'response.write(myarry2(i,j))
'next
rs1.close
set rs1=nothing
rs2.close
set rs2=nothing
conn.close
set conn=nothing
%>