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
http://localhost:49330/WebSite/JiaoHuoList.aspx.vb
最新推荐文章于 2022-08-23 18:43:46 发布