yonghu/yonghulist.aspx.vb

（完整代码） 1KB 


Partial Class yonghu_yonghulist
    Inherits System.Web.UI.Page
'用户信息管理页面
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            binddata()
        End If
    End Sub

    Public Sub binddata()
        '

      
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click


      


        Dim strSql As String
        Dim i As Integer
        Dim cBox As CheckBox
        strSql = ""
        For i = 0 To GridView1.Rows.Count - 1
            cBox = CType(GridView1.Rows(i).FindControl("CheckBox"), CheckBox)
            If cBox.Checked = True Then
                strSql = strSql & " DELETE FROM yonghu WHERE yhid = '" & GridView1.Rows(i).Cells(1).Text.ToString().Trim() & "'; "

            End If
        Next

        

        
        DBHelp.ExecuteNonQuery(strSql, Nothing)
	  Response.Write("<script language='javascript'>alert('操作成功');window.location.href='yonghulist.aspx';</script>")
     



    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读 AI

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。