edit.aspx.vb

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

Imports System.Data
Imports System.data.OleDb
Imports System.Configuration.ConfigurationManager
Partial Class WebDisk_Message_Edit
    Inherits System.Web.UI.Page
    Dim strconn, strsql As String
    Dim myconn As oledbconnection
    Dim cmd As oledbcommand

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AppSettings("databasepath"))
        myconn = New OleDbConnection(strconn)
        If Not Page.IsPostBack Then
            strsql = "SELECT UserName,Title,UserFace,Email,HomePage,UserSex,UserAge,Qicq,MessageBody,AdminReply,TimeInsert 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()
                    txtUserName.Text = dr.Item(0).ToString
                    txtTitle.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>"
                    txtMessageBody.Text = dr.Item(8).ToString
                    txtAdminReply.Text = dr.Item(9).ToString
                    lblTimeInsert.Text = dr.Item(10).ToString
                End While
                dr.Close()
            Catch
                myconn.Close()
                Response.Redirect("error.aspx?error=post")
            End Try
            myconn.Close()
        End If
        'end if
    End Sub

    '确认编辑
    Sub editbtn_Click(ByVal Sender As Object, ByVal e As ImageClickEventArgs)
        txtUserName.Text = Replace(txtUserName.Text, Chr(39), "&apos;")
        txtTitle.Text = Replace(txtTitle.Text, Chr(39), "&apos;")
        txtMessageBody.Text = Replace(txtMessageBody.Text, Chr(39), "&apos;")
        txtAdminReply.Text = Replace(txtAdminReply.Text, Chr(39), "&apos;")
        If txtAdminReply.Text <> "" Then
            strsql = "UPDATE Message SET UserName='" & txtUserName.Text & "',Title='" & txtTitle.Text & "',MessageBody='" & txtMessageBody.Text & "',AdminReply='" & txtAdminReply.Text & "' where ID=" & Request.QueryString("ID")
        Else
            strsql = "UPDATE Message SET UserName='" & txtUserName.Text & "',Title='" & txtTitle.Text & "',MessageBody='" & txtMessageBody.Text & "' where ID=" & Request.QueryString("ID")
        End If
        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
End Class