giveme.aspx.vb

来自「asp做的新闻系统」· VB 代码 · 共 129 行

Imports System

Imports System.Data.OleDb

Public Class giveme
    Inherits System.Web.UI.Page

    Protected WithEvents Table1 As System.Web.UI.WebControls.Table
    Protected WithEvents ddlpic As System.Web.UI.WebControls.DropDownList
    Protected WithEvents imghead As System.Web.UI.WebControls.Image
        Protected WithEvents txtname As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtqq As System.Web.UI.WebControls.TextBox
        Protected WithEvents txthttp As System.Web.UI.WebControls.TextBox
        Protected WithEvents content As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtaddr As System.Web.UI.WebControls.TextBox
        Protected WithEvents txtemail As System.Web.UI.WebControls.TextBox
        Protected WithEvents send As System.Web.UI.WebControls.Button
        Protected WithEvents abort As System.Web.UI.WebControls.Button



#Region " Web Form Designer Generated Code "

        'This call is required by the Web Form Designer.
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

        End Sub

        Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
            'CODEGEN: This method call is required by the Web Form Designer
            'Do not modify it using the code editor.
            InitializeComponent()
        End Sub

#End Region


        'Put user code to initialize the page here

        Private Sub rw(ByVal sf)
            Response.Write(sf)
        End Sub
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim i As Integer
            If Not IsPostBack Then

                For i = 1 To 60
                    ddlpic.Items.Add(i.ToString)
                Next
                ddlpic.SelectedIndex = 0
            End If
        End Sub


        Function HTMLEncode(ByVal fString)

            fString = fString.replace(">", "&gt;")
            fString = fString.replace("<", "&lt;")

        fString = fString.replace(Chr(32), "&nbsp;")
        fString = fString.replace(Chr(34), "&quot;")
        fString = fString.replace(Chr(39), "&#39;")
        fString = fString.replace(Chr(13), "")
        fString = fString.replace(Chr(10) & Chr(10), "</P><P> ")
        fString = fString.replace(Chr(10), "<BR> ")
            HTMLEncode = fString

        End Function




        Public Sub CreateMyOleDbCommand(ByVal myExecuteQuery As String, _
        ByVal myConnectionString As String)
            Dim myConnection As New OleDbConnection(myConnectionString)
            Dim myCommand As New OleDbCommand(myExecuteQuery, myConnection)
            myCommand.Connection.Open()
            myCommand.ExecuteNonQuery()
            myConnection.Close()
        End Sub


        Private Sub ddlpic_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlpic.SelectedIndexChanged
            imghead.ImageUrl = "./img/" & ddlpic.SelectedItem.Text.Trim + ".gif"
        End Sub

        Private Sub send_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles send.Click
            Dim strtmp As String
            Dim ssql As String
            Dim stxtname As String
            Dim stxtaddr As String
            Dim stxtqq As String
            Dim stxtemail As String
            Dim stxthttp As String
            Dim stxtcontent As String

        Dim mySelectConn As String = _
           "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("abc.mdb")
            ' ssql= System.Web.HttpUtility.UrlEncode(txtname.Text,System.Text.Encoding.UTF8)
            stxtname = HTMLEncode(txtname.Text)
            stxtaddr = HTMLEncode(txtaddr.Text)
            stxtqq = HTMLEncode(txtqq.Text)
            stxtemail = HTMLEncode(txtemail.Text)
            stxthttp = HTMLEncode(txthttp.Text)
            stxtcontent = HTMLEncode(content.Text)


        ssql = "insert into ly values ("
            ssql = ssql & "'" & stxtname.Replace("'", "''") & "',"

            ssql = ssql & "'" & stxtaddr.Replace("'", "''") & "',"
            ssql = ssql & "'" & stxtqq.Replace("'", "''") & "',"
            ssql = ssql & "'" & stxtemail.Replace("'", "''") & "',"
            ssql = ssql & "'" & stxthttp.Replace("'", "''") & "',"
            ssql = ssql & "'" & stxtcontent.Replace("'", "''") & "',"
            ssql = ssql & "'" & DateTime.Now.ToString() & "',"
            ssql = ssql & "'" & Request.ServerVariables("REMOTE_HOST") & "',"
            ssql = ssql & "'" & ddlpic.SelectedItem.Text.Trim & "')"
            ' rw(ssql)
            CreateMyOleDbCommand(ssql, mySelectConn)
        Response.Redirect("index.aspx")

        End Sub

        Private Sub abort_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles abort.Click
        Response.Redirect("index.aspx")
        End Sub
    End Class