站内搜索：

VB.NET博客系统(7)

来源：xiaoniu168.com 作者：本站原创添加时间：2011-11-27 点击数：28501

5.1系统主界面
在IE里运行本系统，出现系统的主界面，包括登陆信息、文件下载、博客信息、日志信息等模块。如图：

"
                    Dim strTmpLx As String = ""
                    strTmpLx = "" & tmpda.Rows(i)("名称").ToString() & "(" & tmpData.Get_Table("select count(*) from 博客 where 类别编号 ='" & tmpda.Rows(i)("编号").ToString() & "'").Rows(0)(0).ToString() & ")"
                    strTslb = strTslb & strTmpLx & >"
                Next
            End If
            '显示博客信息
            strCount = "博客：" & tmpData.Get_Table("select count(*) from 博客").Rows(0)(0).ToString() & "
" & "日志：" & tmpData.Get_Table("select count(*) from 日志").Rows(0)(0).ToString() & "
" & "评论：" & tmpData.Get_Table("select count(*) from 评论").Rows(0)(0).ToString() & "" & "新闻：" & tmpData.Get_Table("select count(*) from 新闻").Rows(0)(0).ToString() & "<>" & "文件：" & tmpData.Get_Table("select count(*) from 文件").Rows(0)(0).ToString()
            tmpda = tmpData.Get_Table("select * from 新闻 order by 时间 desc")
            Dim tmp As String = ""
            For i = 0 To tmpda.Rows.Count - 1
                tmp = tmp + "<=" & tmpda.Rows(i)("编号").ToString() + " target='blank'>" & tmpda.Rows(i)("主题") + "<" + Convert.ToDateTime(tmpda.Rows(i)("时间").ToString()).Date.ToShortDateString() & ">"
            Next

以下是引用片段：

相关代码如下：
If Not Page.IsPostBack Then
            '显示类别
            Dim tmpda As DataTable
            Dim i As Long
            tmpda = tmpData.Get_Table("select * from 类别")
            If tmpda.Rows.Count > 0 Then
                strTslb = ""
                For i = 0 To tmpda.Rows.Count - 1
                    strTslb = strTslb & "

〖资料来源:计算机毕业论文 www.xiaoniu168.com〗

第8页为计算机毕业论文会员主界面介绍......