top.asp

来自「新的简单易用的公司管理系统」· ASP 代码 · 共 18 行

<div class=top><a href=index.asp><%=ewap_(69)%></a>&nbsp;
<%
dim rs_top,sql2
set rs_top=server.createobject("ADOdb.Recordset")
sql_top="select * from class where p_class=0 order by id asc"
rs_top.open sql_top,cn,1,1
do while not rs_top.eof
%>
<a href="Class_View.asp?cid=<%=rs_top("id")%>"><%=rs_top("class_name")%></a>&nbsp;
<%
rs_top.movenext
loop
rs_top.close
set rs_top=nothing
%>
</div>
<br/>