http://localhost:49330/WebSite/JiaoHuoList.aspx.vb

Partial Class JiaoHuoList
    Inherits System.Web.UI.Page

    Private sds As SqlDataSource = New SqlDataSource()
    Private username As String = ""
    Private userpass As String = ""

    Public Sub New()
        Me.sds.ProviderName = "System.Data.Odbc"
        Me.sds.ConnectionString = "Dsn=mydata"
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Cookies("username") Is Nothing Or Request.Cookies("userpass") Is Nothing Then
            Response.Redirect("~/Default.aspx")
        End If

        username = Request.Cookies("username").Value
        userpass = Request.Cookies("userpass").Value

        Me.sds.SelectCommand = "select count(*) from t_user where username = ? and userpass = ? and c = 1"
        Me.sds.SelectParameters.Add(1, username)
        Me.sds.SelectParameters.Add(2, userpass)
        Dim dv As System.Data.DataView = Me.sds.Select(DataSourceSelectArguments.Empty)

        If dv(0)(0) = 0 Then
            Response.Redirect("~/Default.aspx")
        End If

        Me.sds.SelectCommand = "select count(*) from t_shoplist where username = ?"
        Me.sds.SelectParameters.Add(1, username)
        dv = sds.Select(DataSourceSelectArguments.Empty)

        If dv(0)(0) = 0 Then
            Me.sds.InsertCommand = "insert into t_shoplist (fenlei, bianma, goodsname, danwei,danjia, username) select fenlei, bianma, goodsname, danwei,danjia, ? from t_goods"
            Me.sds.InsertParameters.Clear()
            Me.sds.InsertParameters.Add(1, username)
            Me.sds.Insert()
        End If

        If IsPostBack Then
            Return
        End If

        Me.bangding()
    End Sub

    Private Sub bangding()
        Me.sds.SelectCommand = "select * from t_shoplist where username = ? order by bianma asc"
        Me.sds.SelectParameters.Clear()
        Me.sds.SelectParameters.Add(1, username)
        Me.Repeater1.DataSource = Me.sds
        Me.Repeater1.DataBind()
    End Sub

    Protected Sub btn_save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_save.Click
        Me.sds.UpdateCommand = "update t_shoplist set fenlei = ?, bianma = ?, goodsname = ?, danwei = ?, danjia = ?, shuliang = ?, username = ? where p_shop_id = ?"
        For i As Integer = 0 To Me.Repeater1.Items.Count - 1
            Me.sds.UpdateParameters.Clear()
            Me.sds.UpdateParameters.Add(1, CType(Me.Repeater1.Items(i).FindControl("lbl_fenlei"), Label).Text)
            Me.sds.UpdateParameters.Add(2, CType(Me.Repeater1.Items(i).FindControl("lbl_bianma"), Label).Text)
            Me.sds.UpdateParameters.Add(3, CType(Me.Repeater1.Items(i).FindControl("lbl_goodsname"), Label).Text)
            Me.sds.UpdateParameters.Add(4, CType(Me.Repeater1.Items(i).FindControl("lbl_danwei"), Label).Text)
            Me.sds.UpdateParameters.Add(5, CType(Me.Repeater1.Items(i).FindControl("lbl_danjia"), Label).Text)
            Me.sds.UpdateParameters.Add(6, Val(CType(Me.Repeater1.Items(i).FindControl("tb_shuliang"), TextBox).Text))
            Me.sds.UpdateParameters.Add(7, username)
            Me.sds.UpdateParameters.Add(8, CType(Me.Repeater1.Items(i).FindControl("hf_p_shop_id"), HiddenField).Value)
            Me.sds.Update()
        Next
        Response.Redirect("~/JiaoHuoList.aspx")
    End Sub

    Protected Sub btn_submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_submit.Click
        Me.sds.InsertCommand = "insert into t_jiaohuolist (fenlei, bianma, goodsname, danwei, danjia, shuliang, username) values (?, ?, ?, ?, ?, ?, ?)"
        For i As Integer = 0 To Me.Repeater1.Items.Count - 1
            Me.sds.InsertParameters.Clear()
            Me.sds.InsertParameters.Add(1, DirectCast(Me.Repeater1.Items(i).FindControl("lbl_fenlei"), Label).Text)
            Me.sds.InsertParameters.Add(2, DirectCast(Me.Repeater1.Items(i).FindControl("lbl_bianma"), Label).Text)
            Me.sds.InsertParameters.Add(3, DirectCast(Me.Repeater1.Items(i).FindControl("lbl_goodsname"), Label).Text)
            Me.sds.InsertParameters.Add(4, DirectCast(Me.Repeater1.Items(i).FindControl("lbl_danwei"), Label).Text)
            Me.sds.InsertParameters.Add(5, DirectCast(Me.Repeater1.Items(i).FindControl("lbl_danjia"), Label).Text)
            Me.sds.InsertParameters.Add(6, Val(DirectCast(Me.Repeater1.Items(i).FindControl("tb_shuliang"), TextBox).Text))
            Me.sds.InsertParameters.Add(7, username)
            Me.sds.Insert()
        Next
        Me.sds.DeleteCommand = "delete from t_shoplist where username = ?"
        Me.sds.DeleteParameters.Clear()
        Me.sds.DeleteParameters.Add(1, username)
        Me.sds.Delete()
        Response.Redirect("~/JiaoHuoList.aspx")
    End Sub

End Class