display.aspx

这是一个ASP.NET程序设计网页,制作比较简单,用的VB语言,在线论坛

<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.Oledb" %>
<Script Language="VB" runat="Server">
    '定义公共连接对象
    Dim conn As OledbConnection   '声明一个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)
    '首先建立数据连接
    conn=New OledbConnection()    '建立一个oledbConnection对象
    '设定连接字符串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函数采用递归生成树
Sub tree(lasttab As String)  
    Dim rowid As Integer   '定义记录录号
    Dim content,img,aux,item,body As String 'HTML元素的ID
    Dim tr As dataRow   
    Dim tablename As String '定义树的表名
    Response.Write("<table border=0>")
     '遍历当前表中的记录
     For Each tr In ds.Tables(lasttab).rows
         rowid=tr.Item("ID")
         '将当前记录的子节点生成一张表
         tablename="table" & rowid
         SQLstr="Select  * from content"
         SQLstr &=" where Parent=" & rowid
         da=New OleDbDataAdapter(SQLstr,conn)
         da.Fill(ds,tablename)
        '检测时候存在子节点，如果存在继续使用递归来生成树，如果不存在，退出递归
       If ds.Tables(tablename).rows.count=0 then
          '如果当前节点已经是叶节点，显示当前节点，退出递归
          Response.Write("<tr>")
          Response.Write("<td>")
          img="img" & rowid
          item="Item" & rowid
          Content="content" & rowid
          body="body" & rowid
          Response.Write("<p align='right'><img id=" &Img & " src='minus.gif' WIDTH='9' HEIGHT='9'></p>")
          Response.Write("</td>")
          Response.Write("<td id=" & item & " language='JavaScript' onMouseUp='turnout(" & body & ");' 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("<tr>")
        response.write("<td colspan=2 id=" & body & " style='DISPLAY: none'>" )
        Response.Write("<table border=0 bgcolor='grey'>")
        Response.Write("<tr><td></td>")
        Response.Write("<td><font size=1>" & tr.Item("body") &"</font></td>")
        Response.Write("</tr>")
        Response.Write("</table>")
        Response.Write("</td></tr>")
        '如果不是叶节点，则继续递归显示
       Else 
         content="content" & rowid
         img="img" & rowid
         aux="Aux" & rowid
         body="body" & 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='turnout(" & body & ");' 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("<tr>")
        response.write("<td colspan=2 id=" & body & " style='DISPLAY: none'>")
        Response.Write("<table border=0 bgcolor='grey'>")
        Response.Write("<tr><td></td>")
        Response.Write("<td><font size=1>" & tr.Item("body") &"</font></td>")
        Response.Write("</tr>")
        Response.Write("<tr><td></td>")
        Response.Write("<td><font size=1><a href=mailto:" & tr.Item("Email") & ">寄信给作者  </a>")
        Response.Write("<a href=post.aspx?ID=" & Tr.Item("id") & "&subject=" & tr.item("subject") & ">回复此文</a></font></td>")
        Response.Write("</tr>")
        Response.Write("</table>")
        Response.Write("</td></tr>")
        Response.Write("<tr>")
        Response.Write("<td id=" & Aux & "  style='DISPLAY: none'></td>")
        Response.Write ("<td id=" & Content & " style='DISPLAY: none'>")
        '将递归深度加深
        tree(tablename)
          Response.Write("</tr>")
    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";}
}
function turnout(bb)
{
 if (bb.style.display=="none") 
  {
    bb.style.display="";
   } 
 else
{
  bb.style.display="none";
}
}
</script>
<Html>
<Head>
<title>欢迎进入论坛!</Title>
</Head>
<Body bgcolor="lightgrey">
</Body>
</Html>