NS의 CSDN 포럼의 왼쪽 목록과 유사한 비교적 간단한 페이지
설명하다:
1. 1.
데이터 이름 : tree.mdb
테이블 이름 : 트리
테이블 구조 : ID (자체 편집) PID (번호) 내용 (텍스트) 링크 (텍스트)
2.
사진 : endnode.gif acrapsed.gif back.gif (둘 다 IMG 디렉토리에서 직접 수정할 수 있습니다)
3 ..
암호:
<!-#include file = "conn.inc"->
<html>
<헤드>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<meta name = "일반"content = "Microsoft FrontPage 4.0">
<title> 무제한 목록 </title>
<!-
Fason (2003-5-12)
->
<스타일>
.node {
글꼴 크기 : 12px;
패딩 : 0 0 2 0;
왼쪽 마진 : 10;
높이 : 22px;
}
img {
수직 정상 : 중간;
너비 : 11px;
높이 : 11px;
}
A {텍스트 결정 : 없음;
.deeptree {
너비 : 100%;
높이 : 100%;
Backgound-Color :#f2f2f2;
오버플로 : 자동;
}
</스타일>
</head>
<바디 bgcolor =#f2f2f2>
<BOBR>
<div>
<%
newid = request.querystring ( "id")
if newid = ""또는 Cint (newid) <0 thatn newid = 0
isnumeric (newid)이라면
Listtree (Cint (Newid))
끝 If
기능 listree (ID)
희미한 Rs
Dim Imgfolder, Imgfile
Dim Link, Href, Painthref
Dim Target, Ahref, 클릭
대상 = "main" '지정 프레임 워크 이름
imgfolder = "img/" '기본 경로
rs = conn.execute ( "count ( *)에서 count ( *)을 어린이로서 trye에서 PID ="& id & ")에서 트리에서 PID를 선택하십시오. pid ="& id. ))
그렇지 않다면 그렇다면
PRENTHREF = request.ServerVariables ( "url") & "? id ="& rs ( "페인트")
ID <> 0 인 경우 response.write "<div class = 'node'nowrap = true> <a href = '"& pernthref & "'onfocus = 'blur ()'> <img src = '& imgfolder &"back .gif 'border = 0> </a> <a href =' "& pernthref &" '> 이전 카탈로그 </a> </div> "& vbcrlf
rs.eof가 아니라
rs ( "children")> 0 인 경우
img = imgfolder "collapset.gif"
href = request.servervariables ( "url") & "? id ="& rs ( "id")
클릭 = "onclight =" "location.href = '"& href & "'" ""
또 다른
img = imgfolder "endnode.gif"
href = "JavaScript : void (0)"
끝 If
그렇지 않은 경우 (rs ( "link"). 그러면
ahref = rs ( "링크")
또 다른
ahref = "JavaScript : void (0)"
대상 = "_ self"
끝 If
link = "<a href = '"& ahref & "'target = '"& target & "'title = '"& rs ( "content") & "" "&"> ">" "content") & "&" </a> "</a>
response.write "<div class = 'node'nowrap = true> <a href = '"& href & "'onfocus = 'blur ()'> <img src = '"& img & "'border = 0> < /a> ""& link & "</div>" "
rs.movenext
고리
rs.close : set rs = nothing
끝 If
엔드 기능
conn.close : set conn = nothing
%>
</div>
</nobr>
</body>
</html>
conn.inc :
<%
Dim Conn
set conn = server.createobject ( "adodb.connection")
conn.open "공급자 = microsoft.jet.oledb.4.0; data source ="& server.mappath ( "tree.mdb") & "; 지속 보안 정보 = false" "
%>
4. 테스트 : IE6, NS7, Mozilla 테스트 중에 통과했습니다.