| |
<%
set rs=server.CreateObject("ADODB.RECORDSET")
ssql="SELECT TOP 10 [id],NavText,NavUrl,RedMethod FROM NavList WHERE ParentID=0 ORDER BY NavSort,ID"
rs.open ssql,conn,1,1
if rs.eof then
response.Write("网站栏目设置不正确，请与管理员联系!")
response.End()
else
for i=0 to 9
'response.Write rs("NavUrl")
' response.End()
dim sqlLb
sqlLb="select NavText,NavUrl,RedMethod from NavList where ParentID="&rs("id")&" ORDER BY NavSort,ID"
set rsLb=server.CreateObject("adodb.recordset")
rsLb.open sqlLb,conn,1,1
%>
- " target="<%=rs("RedMethod")%>" id="nav_<%=i%>" <%if not rsLb.eof then%> onmouseover="showMenu('nav_<%=i%>','subnav<%=i%>')" <%end if%>><%=rs("NavText")%>
<%
if not rsLb.eof then
%>
<%
end if
%>
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close()
set rs=nothing
%>
|
|