cat.asp

来自「·用JAVA实现的对动态树状信息的管理。操作员可以通过IE浏览器查看整个树形结构」· ASP 代码 · 共 25 行

<%
sql="select * from cat  order by catid desc"
Set objrs= Server.CreateObject("ADODB.Recordset")
objrs.open sql,objconn,1,1
  if objrs.eof then
       
   else       
%>
  <%do while not objrs.eof%>
  <tr> 
    <td align=center width="100%"><a href="default.asp?catid=<%=objrs("catid")%>" target="_top"><%=objrs("catname")%></a></td>
  </tr> 
  <%objrs.movenext
	   loop%>
<%end if
objrs.close           
set objrs=nothing 
%>