subject.asp

来自「视频源代码 视频源代码」· ASP 代码 · 共 31 行

<%response.expires=0%>
<!--#include file="../admin/inc/conn.asp"-->
<%
sql="select categorypath,categoryname,categoryindex from category where categorysort='news' and categoryindex like '%.%' order by categoryid ASC"
rs.open sql,conn,1,1
if not rs.eof then
  category=rs.getrows
end if
rs.close

Set rs=nothing
Set conn=nothing

if isarray(category) then
  for i=0 to ubound(category,2)
    csort=split(category(2,i),".")
    if ubound(csort)=1 then
      for j=0 to ubound(category,2)
        jsort=split(category(2,j),".")
        if ubound(jsort)=2 and instr(category(2,j),category(2,i))>0 then
'response.write "document.write('[<a href="""&category(0,i)&""">"&category(1,i)&"</a>] <a href="""&category(0,i)&"/"&category(0,j)&""">"&category(1,j)&"</a>');"
response.write "document.write('<a href="""&category(0,i)&""">["&category(1,i)&"] "&category(1,j)&"</a><br>');"
        end if
        Set jsort=nothing
      next
    end if
    Set csort=nothing
  next
end if
Set category=nothing
%>