index.aspx.vb

留言版用ddd dd!

Imports System.Data
Imports System.Data.OleDb

Public Class WebForm1
    Inherits System.Web.UI.Page
    Public SqlTxt, SiteNote, AdminId, SiteName, SiteUrl, Email, SiteInfor, SiteTop, SiteButtom, HtmCode, StrAdminId As String
    Public BoardId, EditTxtId, PageSize As Integer
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents LbPageHead As System.Web.UI.WebControls.Label
    Protected WithEvents LbPageBtm As System.Web.UI.WebControls.Label
    Protected WithEvents LbPageBody As System.Web.UI.WebControls.Label
    Public SiteDate As Date
#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            Response.Cookies("HomePage").Value = Request.Url.ToString
            Response.Cookies("HomePage").Expires = DateTime.Now.AddDays(1)
        End If
        GiveSiteInfor()
        HtmCode = "<TABLE ALIGN=CENTER border=0 cellspacing=0><TR><td height=22 class=top width=10></td><TD width=650 class=top><marquee scrollamount=2 direction=left width=100%>" & SiteNote & "</marquee></TD><TD TITLE=我要自己的留言簿！！！ align=center  class=top width=90><A HREF=UserReg.aspx TARGET=_BLANK>申请BK留言簿</A></TD></TR></TABLE>"
        HtmCode += SiteTop
        HtmCode += "<TABLE ALIGN=CENTER border=0 cellspacing=0><TR><TD height=22 class=top width=10></td><td class=top width=420><A HREF=" & SiteUrl & ">" & SiteName & "</A></TD><TD class=top width=80><A HREF=MAILTO:" & Email & ">联系站长</A></TD><TD class=top width=120 align=right>留言簿创建时间：</TD><TD height=22 class=top>" & SiteDate & "</TD></TR></Table>"
        HtmCode += "<table ALIGN=CENTER border=0 cellspacing=0><TR bgcolor=#ebf2f8><TD height=5  width=10></TD><TD></TD><TD></TD></TR><TR bgcolor=#ebf2f8><TD></TD><TD><b>站点信息：</b>" & SiteInfor & "</TD><TD width=10></TD></TR><TR bgcolor=#ebf2f8><TD height=5></TD><TD></TD><TD></TD></TR></Table><table bgcolor=""Blue"" ALIGN=CENTER border=0 cellspacing=0><TR bgcolor=#6D6D6D><TD width=10></TD><TD><A href=TxtEdit.aspx?BdId=" & BoardId & "&act=AddNew><img src=img/new.gif></A></TD><TD align=right><a href=admin.aspx><img src=img/admin.gif></a></TD><TD width=10></TD></TR></TABLE><br>"
        LbPageHead.Text = HtmCode
        EditTxtId = Request.QueryString("TxtId")
        display()
        LbPageBody.Text = HtmCode
        LbPageBtm.Text = SiteButtom & "<Table align=center  border=0 cellspacing=0><tr><td align=center height=22 class=top>Supported By： <a href=http://www.blue1000.com> BK Designer </a>&nbsp; <a href=mailto:[e-mail]>Mail:[e-mail]</a></td></tr></table>"
    End Sub

    Public Sub GiveSiteInfor()
        StrAdminId = Request.QueryString("Id")
        If StrAdminId = "" Then
            SqlTxt = "SELECT * FROM AdminInfor WHERE AdminType = 1"
        Else
            SqlTxt = "SELECT * FROM AdminInfor WHERE AdminId = '" & StrAdminId & "'"
        End If
        Dim ObjCmd As OleDbCommand = AddCmd(SqlTxt)
        Dim ObjReader As OleDbDataReader = ObjCmd.ExecuteReader()
        If Not ObjReader.Read() Then
            StrAdminId = ""
            Response.Redirect("index.aspx")
            Response.End()
        End If
        BoardId = ObjReader.Item("AdminBoardId")
        AdminId = ObjReader.Item("AdminId")
        SiteName = ObjReader.Item("AdminSiteName")
        SiteUrl = ObjReader.Item("AdminSiteUrl")
        Email = ObjReader.Item("AdminEmail")
        SiteInfor = ObjReader.Item("AdminSiteInfor")
        SiteTop = ObjReader.Item("AdminSiteTop")
        SiteButtom = ObjReader.Item("AdminSiteButtom")
        PageSize = ObjReader.Item("AdminPageSize")
        SiteDate = ObjReader.Item("AdminSiteDate")
        SiteNote = "站内公告：" & ObjReader.Item("AdminSiteNote")
        ObjReader.Close()
        ObjCmd.Connection.Close()
        ObjCmd.Dispose()
    End Sub
    Public Function SqlCon()
        Dim ConnString As String = System.Configuration.ConfigurationSettings.AppSettings.Get("ConnStr") & Server.MapPath(System.Configuration.ConfigurationSettings.AppSettings.Get("MDBPath"))
        Dim ObjConn As New OleDbConnection
        ObjConn.ConnectionString = ConnString
        ObjConn.Open()
        Return ObjConn
    End Function
    Sub display()
        Dim StrUser, StrType As String
        If Not IsNothing(Request.Cookies("UserName")) Then StrUser = Request.Cookies("UserName").Value
        If Not IsNothing(Request.Cookies("UserType")) Then StrType = Request.Cookies("UserType").Value
        Dim I, J As Integer
        Dim ObjConn As OleDbConnection = SqlCon()
        Dim ObjAdp As New OleDbDataAdapter("Select * From TxtInfor Where TxtBoardId=" & BoardId, ObjConn)
        Dim ObjDs As New DataSet
        ObjAdp.Fill(ObjDs, "TxtInfor")
        Dim MyTable As DataTable = ObjDs.Tables("TxtInfor")
        Dim MainDv As DataView = New DataView(MyTable)
        Dim SubDv As DataView = New DataView(MyTable)
        MainDv.RowFilter = "TxtParentId = 0"
        MainDv.Sort = "TxtId Desc"
        Dim TotalNum, CurPage As Integer
        Dim StrFirstPage, StrPrePage, StrNextPage, StrLastPage As String
        If MainDv.Count < PageSize Then
            TotalNum = 1
        Else
            TotalNum = MainDv.Count / PageSize
        End If
        If Request.QueryString("page") = "" Then
            CurPage = 1
        Else
            CurPage = Request.QueryString("page")
        End If
        If CurPage > 1 Then
            StrFirstPage = "[<a href=index.aspx?id=" & StrAdminId & "&page=1><font color=#ffffff>第一页</font></a>]"
            StrPrePage = "[<a href=index.aspx?id=" & StrAdminId & "&page=" & CurPage - 1 & "><font color=#ffffff>上一页</font></a>]"
        Else
            StrFirstPage = ""
            StrPrePage = ""
        End If
        If CurPage < TotalNum Then
            StrLastPage = "[<a href=index.aspx?id=" & StrAdminId & "&page=" & TotalNum & "><font color=#ffffff>最后一页</font></a>]"
            StrNextPage = "[<a href=index.aspx?id=" & StrAdminId & "&page=" & CurPage + 1 & "><font color=#ffffff>下一页</font></a>]"
        Else
            StrLastPage = ""
            StrNextPage = ""
        End If
        HtmCode = ""
        HtmCode += "<table align=center><tr class=page><td width=10></td><td width=300 align=right>共计" & TotalNum & "页" & MainDv.Count & "条记录</td><td  width=140 align=center>目前第" & CurPage & "页</td><td width=70>" & StrFirstPage & "</td><td width=70>" & StrPrePage & "</td><td width=70>" & StrNextPage & "</td><td width=80>" & StrLastPage & "</td><td width=10></td></tr><table>"
        For I = (CurPage - 1) * PageSize To (CurPage * PageSize - 1)
            If I > MainDv.Count - 1 Then Exit For
            HtmCode += "<table align=center border=0 cellspacing=0 style=""WORD-BREAK: break-all;""><tr>"
            HtmCode += "<td Class=gbtitle height=21 width=120>&nbsp;" & MainDv.Item(I)("TxtWriter") & "</td><td Class=gbtitle width=15>&nbsp;</td>"
            HtmCode += "<td Class=gbtitle width=80></td><td Class=gbtitle width=50><a href=mailto:" & MainDv.Item(I)("TxtUserEmail") & "><img src=img/email.gif title=Email></a></td>"
            HtmCode += "<td Class=gbtitle width=50><A href=http://friend.qq.com/cgi-bin/friend/user_show_info?ln=" & MainDv.Item(I)("TxtUserQQ") & " target=_blank><img src=img/qq.gif title=QQ></a></td>"
            HtmCode += "<td Class=gbtitle width=50><A href=" & MainDv.Item(I)("TxtUserHomePage") & " Target=_blank width=30><img src=img/page.gif title=主页></A></td>"
            HtmCode += "<td Class=gbtitle width=195 align=center>" & MainDv.Item(I)("TxtDate") & "</td>"
            HtmCode += "<td Class=gbtitle width=60 align=right><a href=TxtEdit.aspx?BdId=" & BoardId & "&act=ReTo&TxtId=" & MainDv.Item(I)("TxtId") & ">回复</a></td>"
            If StrUser = MainDv.Item(I)("TxtDate") Or StrType = AdminId Then
                HtmCode += "<td Class=gbtitle width=60 align=right><a href=TxtEdit.aspx?BdId=" & BoardId & "&act=Modify&TxtId=" & MainDv.Item(I)("TxtId") & ">修改</a></td>"
                HtmCode += "<td Class=gbtitle width=60 align=right><a href=# onclick=""if (confirm('确实要删除此条记录吗？')) window.location='TxtEdit.aspx?BdId=" & BoardId & "&act=Del&TxtId=" & MainDv.Item(I)("TxtId") & "'"">删除</a></td>"
            Else
                HtmCode += "<td Class=gbtitle width=60 align=right></td>"
                HtmCode += "<td Class=gbtitle width=60 align=right></td>"
            End If
            HtmCode += "<td  Class=gbtitle width=10></td></tr><tr><td align=center bgcolor=#E0E0E0><img src=" & MainDv.Item(I)("TxtUserFace") & "></td>"
            If MainDv.Item(I)("TxtType") = 1 And StrUser <> MainDv.Item(I)("TxtDate") And StrType <> AdminId Then
                HtmCode += "<td></td><td colspan=8 width=615><br>----------------------------------<br><i>此帖只有版主可以看到</i><br>----------------------------------<br><hr><div>以下是回复：<br><I>"
            Else
                HtmCode += "<td></td><td colspan=8 width=615><b><br>" & MainDv.Item(I)("TxtSubject") & "</b><br>" & MainDv.Item(I)("TxtContent") & "<hr><div>以下是回复：<br><I>"
            End If
            SubDv.Sort = "TxtDate Desc"
            SubDv.RowFilter = "TxtParentId =" & MainDv.Item(I)("TxtId")
            For J = 0 To SubDv.Count - 1
                HtmCode += "<img src=img/Re.gif>" & SubDv.Item(J)("TxtContent") & "<br>"
            Next
            HtmCode += "</I></div></td><td width=10></td></tr></table>"
        Next
        HtmCode += "<table align=center><tr class=page><td width=10></td><td width=300 align=right>共计" & TotalNum & "页" & MainDv.Count & "条记录</td><td  width=140 align=center>目前第" & CurPage & "页</td><td width=70>" & StrFirstPage & "</td><td width=70>" & StrPrePage & "</td><td width=70>" & StrNextPage & "</td><td width=80>" & StrLastPage & "</td><td width=10></td></tr><table>"
    End Sub
    Public Function AddCmd(ByVal StrSql As String)
        Dim ObjConn As OleDbConnection = SqlCon()
        Dim ObjCmd As New OleDbCommand(StrSql, ObjConn)
        Return ObjCmd
    End Function
End Class