write.aspx.vb

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

Imports System.Data
Imports System.data.OleDb
Imports System.Configuration.ConfigurationManager
Partial Class WebDisk_Message_Write
    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
            '初始化头像下拉列表
            Dim shtI As Short
            Dim liA As ListItem
            For shtI = 1 To 18
                liA = New ListItem(shtI)
                Drpface.Items.Add(shtI)
            Next
            '初始化年龄下拉列表
            For shtI = 10 To 70
                liA = New ListItem(shtI)
                Drpage.Items.Add(shtI)
            Next
        End If
    End Sub

    Protected Sub Imgbtn_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles Imgbtn.Click
        If Len(MessageBody.Text) < 300 Then
            Dim strconn, strsql As String
            Dim myconn As OleDbConnection
            Dim cmd As OleDbCommand
            '获取客户端IP
            Dim IP As String = Request.ServerVariables("REMOTE_ADDR")
            'ubb码转换
            '   Dim newubb As ubbcode = New ubbcode
            Title.Text = Server.HtmlEncode(Title.Text)
            MessageBody.Text = Server.HtmlEncode(MessageBody.Text)
            UserName.Text = Server.HtmlEncode(UserName.Text)
            strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(AppSettings("databasepath"))
            myconn = New OleDbConnection(strconn)
            strsql = "INSERT INTO Message (Title,MessageBody,UserName,UserSex,UserAge,Qicq,Email,HomePage,UserFace,UserIP,Miange) values ('" & Title.Text & "','" & MessageBody.Text & "','" & UserName.Text & "','" & Sex.SelectedItem.Value & "','" & Drpage.SelectedItem.Value & "','" & Qicq.Text & "','" & Email.Text & "','" & homepage.Text & "','" & Drpface.SelectedItem.Value & "','" & IP & "','" & Miange.SelectedItem.Value & "')"
            cmd = New OleDbCommand(strsql, myconn)
            Try
                myconn.Open()
                cmd.ExecuteNonQuery()
                myconn.Close()
            Catch ex As Exception
                myconn.Close()
                Response.Redirect("error.aspx?error=post")
            End Try

            '留言板采用降序排列，成功后自动返回留言首页
            Response.Redirect("message.aspx")
        Else
            Response.Redirect("error.aspx?error=postmax")
        End If
    End Sub
End Class