新商品.aspx.vb

asp,vb.net编写,我的毕业设计,简单的网上购书系统,比较主流

Public Class 会员新商品

Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents ddlfl As System.Web.UI.WebControls.DropDownList
Protected WithEvents ddlcbs As System.Web.UI.WebControls.DropDownList
Protected WithEvents ddlwz As System.Web.UI.WebControls.DropDownList
    Protected WithEvents Tbisbn As System.Web.UI.WebControls.TextBox
Protected WithEvents Tbsm As System.Web.UI.WebControls.TextBox
Protected WithEvents Tbzz As System.Web.UI.WebControls.TextBox
Protected WithEvents Tbrq As System.Web.UI.WebControls.TextBox
Protected WithEvents Tbbj As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbyj As System.Web.UI.WebControls.TextBox
Protected WithEvents Tbsl As System.Web.UI.WebControls.TextBox
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents Tbzy As System.Web.UI.WebControls.TextBox

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
    '不要使用代码编辑器修改它。
    InitializeComponent()
End Sub

#End Region
Dim sqlstr As String
Dim myd As New main
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If Not IsPostBack Then
            sqlstr = "select 分类名 from 书籍分类表"
        ddlfl.DataSource = myd.rearr(sqlstr, "")
        ddlfl.DataBind()
            sqlstr = "select 出版社 from 出版社表"
        ddlcbs.DataSource = myd.rearr(sqlstr, "")
        ddlcbs.DataBind()
            ddlwz.DataSource = ConfigurationSettings.AppSettings("文字").Split(","c)
            ddlwz.DataBind()
    End If
End Sub

    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dim ss As String
        sqlstr = "exec insj '" & Tbsm.Text & "','" & _
                    ddlcbs.SelectedItem.Text & "','" & Tbisbn.Text & "','" & _
                    Tbzz.Text & "','" & ddlwz.SelectedItem.Text & "','" & _
                    ddlfl.SelectedItem.Text & "','" & Tbrq.Text & "','" & _
                        Tbyj.Text & "','" & Tbbj.Text & "','" & _
                        Tbsl.Text & "','" & Session("yhm") & "','" & Tbzy.Text & "'"
        ss = myd.exesql(sqlstr)

        If ss = "T" Then

            ss = ss.Replace(vbCrLf, "")
            Response.Redirect("message.aspx?msg=" & "新商品添加成功！")
        End If

    End Sub

    Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Response.Redirect("主页.asp")
    End Sub
End Class