showmsg.aspx.vb

来自「是可以运行的电子光盘 有程序与PPT介绍 对于学习VB。NET的有参考意义」· VB 代码 · 共 52 行

Imports System.Data
Imports System.data.OleDb
Imports System.Configuration.ConfigurationManager
Partial Class WebDisk_Message_Showmsg
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ID = Request.QueryString("ID")
            Dim strconn, strsql As String
            Dim myconn As oledbconnection
            Dim cmd As oledbcommand
            '连接数据库
            strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AppSettings("databasepath"))
            myconn = New oledbconnection(strconn)
            strsql = "SELECT UserName,Title,UserFace,Email,HomePage,UserSex,UserAge,Qicq,MessageBody,AdminReply,TimeInsert FROM Message WHERE ID=" & ID
            cmd = New oledbcommand(strsql, myconn)
            Dim dr As oledbdatareader
            Try
                myconn.open()
                dr = cmd.executereader()
                While dr.read()
                    lblUserName.Text = dr.item(0).tostring
                    lblTitle.Text = dr.item(1).tostring
                    lblUserFace.Text = "<img src='image/userface/image" & dr.item(2).tostring & ".gif'>"
                    lblEmail.Text = "<A href='mailto:" & dr.item(3).tostring & "' target=_blank>" & dr.item(3).tostring & "</A>"
                    lblHomePage.Text = "<A href='http://" & dr.item(4).tostring & "' target=_blank>http://" & dr.item(4).tostring & "</A>"
                    lblInfo.Text = "性别：" & dr.item(5).tostring & "，年龄：" & dr.item(6).tostring
                    lblQicq.Text = "<A href='http://wpa.qq.com/msgrd?V=1&Uin=" & dr.item(7).tostring & "&Site=By%20Dvbbs&Menu=yes' target=_blank>" & dr.item(7).tostring & "</A>"
                    lblMessageBody.Text = dr.item(8).tostring
                    '判断管理员回复内容是否存在
                    If Not dr.item(9) Is DBNull.Value Then
                        lblAdminReply.Text = dr.item(9).tostring
                    Else
                        PnlAdminReply.Visible = "false"
                    End If
                    lblTimeInsert.Text = dr.item(10).tostring
                End While
                dr.close()
                myconn.close()
            Catch
                myconn.close()
                Response.Redirect("error.aspx?error=post")
            End Try
        End If
    End Sub

    Protected Sub Imgback_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImgBack.Click
        Response.Redirect("message.aspx?page=" & Request.QueryString("page"))
    End Sub
End Class