inc_top.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 21 行

<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 width=778>
<TBODY><TR><TD height=5></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=778>
<TBODY><TR><TD background=images/02.gif valign="middle" height="25" class=w align="center">
<A class=w href="../music.asp">音乐首页</A>－<%
Set rsnav= Server.CreateObject("ADODB.Recordset")
rsnav.open "select * from SClass order by Sclassid",conn,1,1
if rsnav.EOF then
response.write "没有栏目："
else
do while NOT rsnav.EOF
%><a class=w href="Singer_list_<%=rsnav("Sclassid")%>.html"><%=rsnav("Sclass")%></a>－<%
rsnav.MoveNext
loop
end if
rsnav.close
set rsnav=nothing
%></TD>
<TD background=images/02.gif width=10></TD></TR></TBODY></TABLE>
</body>