?版??搴?Access,瀛?娈碉?ClassID锛?涓婚??锛?,ParentClassID,ClassName锛?3涓?瀛?娈甸?芥??????????
< !DOCTYPE html PUBLIC " -//W3C//DTD XHTML 1.0 Transitional//EN " " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd " >
< html xmlns = " http://www.w3.org/1999/xhtml " >
< head >
< title > ASP??????绫繪?版??搴??? </ title >
< meta http - equiv = " Content-Type " content = " text/html; charset=gb2312 " />
< meta name = " Generator " content = " EditPlus " >
< meta name = " Author " content = " Dicky;QQ:25941 " >
< meta name = " Keywords " content = " Dicky;QQ:25941;ASP??????绫繪?版??搴??? " >
< meta name = " Description " content = " Dicky;QQ:25941;ASP??????绫繪?版??搴??? " >
</ head >
< body >
< %
Const IsSql = 0 ' 瀹?涔??版??搴?绫誨??,1涓?QL Server,0涓?ccess
Function OpenConn(Conn) ' ??寮??版??搴?杩???
Dim ConnStr
If IsSql = 1 Then ' 濡?????SQL Server?版??搴?
' SQL Server?版??搴?杩??ュ?????ㄦ?峰?????ㄦ?峰???????版??搴?????杩??ュ??锛????扮??ocal锛?澶??扮??P锛?
Dim SqlUsername,SqlPassword,SqlDatabaseName,SqlLocalName
SqlUsername = " sa "
SqlPassword = ""
SqlDatabaseName = " TreeDb "
SqlLocalName = " (local) "
ConnStr = " Provider = Sqloledb; User ID = " & SqlUsername & " ; Password = " & SqlPassword & " ; Initial Catalog = " & SqlDatabaseName & " ; Data Source = " & SqlLocalName & " ; "
Else ' 濡?????Access?版??搴?
Dim Db
' 绗?涓?娆′嬌?ㄨ?蜂慨?規??澶??版??搴??闆??骞剁?稿?淇??規?版??搴???绉幫?濡?灏?Dicky.mdb淇??逛負Dicky.asp(?叉?㈡?舵??涓?杞?ccess?版??搴?)
Db = " TreeDB.mdb "
ConnStr = " Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
End If
On Error Resume Next
Set Conn = Server.CreateObject( " ADODB.Connection " )
Conn.Open ConnStr
If Err Then
' Err.Clear
Set Conn = Nothing
Response.Write " ?版??搴?杩??ュ?洪??锛?璇鋒??ヨ??ュ??涓層?? "
Response.End
End If
End Function
Function CloseConn(Conn) ' ?抽???版??搴?杩???
If IsObject (Conn) Then
Conn.Close
Set Conn = Nothing
End If
End Function
Function Echo(Str) ' 杈??哄??绗?覆骞舵?㈣?
Response.Write Str & VbCrlf
End Function
Call OpenConn(Conn)
' 瀹?涔?绗?涓?绾у??绫?
Sub MainFl()
Dim Rs
Set Rs = Conn.Execute( " SELECT ClassID,ClassName FROM Class WHERE ParentClassID IS NULL " )
If Not Rs.Eof Then
Do While Not Rs.Eof
Echo( " <div><label id="" " & Trim (Rs( " ClassID " )) & " "">+ " & Trim (Rs( " ClassName " )) & " </label> " )
Call Subfl(Rs( " ClassID " ), " |- " ) ' 寰???瀛?绾у??绫?
Echo( " </div> " )
Rs.MoveNext
If Rs.Eof Then Exit Do ' ?蹭?????姝誨驚??
Loop
End If
Set Rs = Nothing
End Sub
' 瀹?涔?瀛?绾у??绫?
Sub SubFl(FID,StrDis)
Dim Rs1
Set Rs1 = Conn.Execute( " SELECT ClassID,ClassName FROM Class WHERE ParentClassID = ' " & FID & " ' " )
If Not Rs1.Eof Then
Do While Not Rs1.Eof
Echo( " <div id="" " & Trim (Rs1( " ClassID " )) & " ""> " & StrDis & Trim (Rs1( " ClassName " )) & " </div> " )
Call SubFl( Trim (Rs1( " ClassID " )), " | " & Strdis) ' ??褰?瀛?绾у??绫?
Rs1.Movenext: Loop
If Rs1.Eof Then
Rs1.Close
Exit Sub
End If
End If
Set Rs1 = Nothing
End Sub
' ?????存?ヨ???ainFl()灏辮?浜?
MainFl()
Call CloseConn(Conn)% >
</ body >
</ html >