reply.aspx.vb

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

Imports System.Data
Imports System.data.OleDb
Imports System.Configuration.ConfigurationManager
Partial Class WebDisk_Message_Reply
    Inherits System.Web.UI.Page
    Dim strconn, strsql As String
    Dim myconn As oledbconnection
    Dim cmd As OleDbCommand
    '提交回复
    Sub Replybtn_Click(ByVal Sender As Object, ByVal e As ImageClickEventArgs)
        'ubb码转换
        ' Dim newubb As ubbcode = New ubbcode
        NewReply.Text = Server.HtmlEncode(NewReply.Text)
        strsql = "UPDATE Message SET AdminReply='" & NewReply.text & "' WHERE ID=" & Request.QueryString("ID")
        cmd = New oledbcommand(strsql, myconn)
        Try
            myconn.open()
            cmd.ExecuteNonQuery()
            myconn.close()
        Catch
            myconn.close()
            Response.Redirect("error.aspx?error=post")
        End Try
        Response.Redirect("message.aspx?page=" & Request.QueryString("page"))
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '未登陆则自动跳转到登陆页面
        'if session("Admin") is nothing then
        '	response.Redirect("login.aspx")
        'else
        '连接数据库
        strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AppSettings("databasepath"))
        myconn = New OleDbConnection(strconn)
        strsql = "SELECT UserName,Title,MessageBody,AdminReply FROM Message WHERE ID=" & Request.QueryString("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
                lblMessageBody.Text = dr.Item(2).ToString
                '判断管理员回复内容是否存在
                If Not dr.Item(3) Is DBNull.Value Then
                    OldReply.Text = dr.Item(3).ToString
                Else
                    PnlReply.Visible = "false"
                End If
            End While
            dr.Close()
            myconn.Close()
        Catch
            myconn.Close()
            Response.Redirect("error.aspx?error=post")
        End Try
        'end if
    End Sub
End Class