顶部的function head里源码:
<%
function Head()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag=1 order by Sequence asc"
rs.open sql,conn,1,1
response.Write("<table width=950 border=0 align=center cellpadding=0 cellspacing=0 background="&SitePath&"Images/menu.gif>")
response.Write("<tr><td >")
response.Write("<table width='99%' height=30 border=0 cellpadding=0 cellspacing=0 >")
if rs.bof and rs.eof then
response.write "<tr><td height='28' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr>"
do
response.write "<td height='30' align='center'><a href='"&rs("NavUrl")&"'><b><FONT size=2.9 color="&rs("FontCor")&">"&rs("NavName")&"</font></b></a></td>"
rs.movenext
loop until rs.eof
response.write "</tr>"
end if
response.Write("</table>")
response.Write("</td></tr></table>")
rs.close
set rs=nothing
End function
%>
一个导航实际上就是一个栏目版块,下拉菜单的内容即为各导航指向的版块的顶级分类。(能在下拉菜单做出下级的分类更好)
<%
function Head()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from Navigation where ViewFlag=1 order by Sequence asc"
rs.open sql,conn,1,1
response.Write("<table width=950 border=0 align=center cellpadding=0 cellspacing=0 background="&SitePath&"Images/menu.gif>")
response.Write("<tr><td >")
response.Write("<table width='99%' height=30 border=0 cellpadding=0 cellspacing=0 >")
if rs.bof and rs.eof then
response.write "<tr><td height='28' align='center'><font color='white'>暂无导航链接</font></td></tr>"
else
response.write "<tr>"
do
response.write "<td height='30' align='center'><a href='"&rs("NavUrl")&"'><b><FONT size=2.9 color="&rs("FontCor")&">"&rs("NavName")&"</font></b></a></td>"
rs.movenext
loop until rs.eof
response.write "</tr>"
end if
response.Write("</table>")
response.Write("</td></tr></table>")
rs.close
set rs=nothing
End function
%>
一个导航实际上就是一个栏目版块,下拉菜单的内容即为各导航指向的版块的顶级分类。(能在下拉菜单做出下级的分类更好)