|
发表于 2010-1-10 07:36:00
|
显示全部楼层
IP:江苏扬州
<!--#include file="conn/conn.asp" -->
<%
dim num
num=0
sub fl(ID) 'ID为传递来的值
set rs=server.createobject("adodb.recordset")
sql="select categoryID,ParentID from [category] where categoryID="& ID
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
num=num+1
response.write"<tr bgcolor='#FFFFFF'><td width=100 height=30>"& num &"</td><td width=100 height=30>"&rs("ParentID")&"</td></tr>"
fl(rs("ParentID")) '调用fl()函数,实现递归
end if
end sub
response.write"<table border=0 cellpadding=0 cellspacing=1 bgcolor='#ECECEC'>"
response.write"<tr bgcolor='#FFFFFF'><td width=100 height=30>"
response.write"categoryID</td><td width=100 height=30>ParentID</td></tr>"
fl(5) '调用函数,输出结果
response.write"</table>"
response.write"此ID共包含<font color=red>"& num &"</font>级分类<br>"
%> |
|