;tree where id="&id&") as parent from tree T where pid="&id)
if not rs.eof then
parentHref=Request.ServerVariables("URL")&"?id="&rs("parent")
if id<>0 then Response.Write "<div class=’node’ nowrap=true><a href=’"&parentHref&"’ onfocus=’blur()’><img src=http://www.dvbbs.net/tech/asp/’"&imgFolder&"back.gif’ border=0></a> <a href=’"&parentHref&"’>上一级目录</a></div>"&VbCrLf
do while not rs.eof 
if rs("children")>0 then
img=imgFolder+"collapsed.gif"
href=Request.ServerVariables("URL")&"?id="&rs("id")
click="onclick=""location.href=http://www.dvbbs.net/tech/asp/’"&href&"’"""
else
img=imgFolder+"endnode.gif"
href="javascript:void(0)"
end if
if not isNull(rs("link")) then
ahref=rs("link")
else
ahref="javascript:void(0)"
target="_self"
end if
link="<a href=’"&ahref&"’ target=’"&target&"’ title=’"&rs("content")&"’ "&click&">"&rs("content")&"</a>"
Response.Write "<div class=’node’ nowrap=true><a href=’"&href&"’ onfocus=’blur()’><img src=http://www.dvbbs.net/tech/asp/’"&img&"’ border=0></a> "&link&"</div>"
rs.movenext
loop
rs.close:set rs=nothing
end if
end function
conn.cl

上一页  [1] [2] [3] 下一页

在google里搜索更多无限级分类

	Web www.51ec.org

上一篇信息学院： 无组件实现文件上传/下载

下一篇信息学院： 网址和邮件地址的转换函数