计算机毕业设计会员主界面介绍：
5.2 会员主界面
在IE里运行本系统，出现系统的主界面，包括登陆信息、文件下载、博客信息、日志信息等模块，输入登录信息,系统登录到会员的页面，会员除了上面的基本使用功能外，还包含会员自己的功能：会员信息、会员博客、我的日志、我的评论、博客空间等功能。如图所示：
|
以下是引用片段：
相关代码如下：
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 & " |
"
Dim strTmpLx As String = ""
strTmpLx = "" & ?lbid=" & tmpda.Rows(i)("编号").ToString() + "" & 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)("主题") + "<" + Convert.ToDateTime(tmpda.Rows(i)("时间").ToString()).Date.ToShortDateString() & ""
Next
'显示日志 文件下载等信息
strXx = if (document.all!=null){this.stop()}' ='if (document.all!=null){' " & tmp
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第9页为计算机毕业论文博客日志管理......