?? displaytitle.aspx
字號:
<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.Oledb" %>
<Script Language="VB" runat="Server">
'定義公共連接對象
Dim conn As OledbConnection '聲明一個(gè)OledbConnection對象
'定義公共的DataAdapter對象
Dim Da As oledbdataAdapter
'定義公共的DataSet
Dim ds As New DataSet()
'定義公共的連接字符串
Dim SQLStr As String
Sub Page_Load(Sender As Object,e As Eventargs)
'首先建立數(shù)據(jù)連接
conn=New OledbConnection() '建立一個(gè)oledbConnection對象
'設(shè)定連接字符串ConnectionString
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("Discuss.mdb")
'打開連接
conn.Open()
'選出最近的十條記錄，按照Id的降序排列
SQLstr="Select top 10 * from content"
SQLstr &=" where parent=0 Order by ID desc"
da=New OleDbDataAdapter(SQLstr,conn)
da.Fill(ds,"head")
'對于一條記錄生成一顆樹
Tree("head")
conn.close()
End sub
'Tree函數(shù)采用遞歸生成樹
Sub tree(lasttab As String)
Dim rowid As Integer '定義記錄錄號
Dim content,img,aux,item As String 'HTML元素的ID
Dim tr As dataRow
Dim tablename As String '定義樹的表名
Response.Write("<table border=0>")
'遍歷當(dāng)前表中的記錄
For Each tr In ds.Tables(lasttab).rows
rowid=tr.Item("ID")
'將當(dāng)前記錄的子節(jié)點(diǎn)生成一張表
tablename="table" & rowid
SQLstr="Select * from content"
SQLstr &=" where Parent=" & rowid
da=New OleDbDataAdapter(SQLstr,conn)
da.Fill(ds,tablename)
'檢測時(shí)候存在子節(jié)點(diǎn)，如果存在繼續(xù)使用遞歸來生成樹，如果不存在，退出遞歸
If ds.Tables(tablename).rows.count=0 then
'如果當(dāng)前節(jié)點(diǎn)已經(jīng)是葉節(jié)點(diǎn)，顯示當(dāng)前節(jié)點(diǎn)，退出遞歸
Response.Write("<tr>")
Response.Write("<td>")
img="img" & rowid
Response.Write("<p align='right'><img id=" &Img & " src='minus.gif' WIDTH='9' HEIGHT='9'></p>")
Response.Write("</td>")
Response.Write("<td><font face='楷體_GB2312' size='2'><strong>" & tr.Item("subject") & "——" & tr.Item("Sender") & tr.Item("SendDate") & "</strong></font></a></td>")
Response.Write (" </tr>")
'如果不是葉節(jié)點(diǎn)，則繼續(xù)遞歸顯示
Else
content="content" & rowid
img="img" & rowid
aux="Aux" & rowid
item="Item" & rowid
'顯示信息頭
Response.Write("<tr>")
Response.Write("<td language='JavaScript' onMouseUp='turnit("& Content &","& Img &"," & Aux & ");' style='CURSOR: hand'>")
Response.Write("<p align='right'><img id=" &Img & " src='plus.gif' WIDTH='9' HEIGHT='9'></p>")
Response.Write("</td>")
Response.Write("<td id=" & item & " language='JavaScript' onMouseUp='turnit("& Content &","& Img &"," & Aux & ");' style='CURSOR: hand'><font face='楷體_GB2312' size='2'><strong>" & tr.Item("subject") & "——" & tr.Item("Sender") & tr.Item("SendDate") & "</strong></font></a></td>")
Response.Write (" </tr>")
Response.Write("<td id=" & Aux & " style='DISPLAY: none'></td>")
Response.Write ("<td id=" & Content & " style='DISPLAY: none'>")
'將遞歸深度加深
tree(tablename)
End If
next
Response.Write("</Table>")
End Sub
</Script>
<script lanuage="javascript">
function turnit(ss,ii,aa)
{
if (ss.style.display=="none")
{ss.style.display="";
aa.style.display="";
ii.src="minus.gif";
}
else
{ss.style.display="none";
aa.style.display="none";
ii.src="plus.gif";}
}
</script>
<Html>
<Head>
<title>歡迎進(jìn)入論壇!</Title>
</Head>
<Body>
</Body>
</Html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -