Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
            Dim str As String
            Dim passstr As String
            passstr = Trim(CStr(TextBox2.Text))
            str = "'" & TextBox1.Text & "'"
            Dim sql As String = "select * from adminlist where 帐号=" & Trim(str)
            ‘在数据库中搜索帐号为textbox1.text的数据’
            Dim connstr As String = "server=localhost;uid=sa;pwd=;database=book"
            Dim myconn As New SqlClient.SqlConnection(connstr)
            Dim da As New SqlClient.SqlDataAdapter(sql, myconn)
            Dim ds As New DataSet
            da.Fill(ds, "adminlist")
            Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)
           If ds.Tables("adminlist").Rows.Count = 1 Then
    ’判断帐号密码是否和数据库匹配’
                If passstr = Trim(ds.Tables("adminlist").Rows(0)("密码")) Then
                    Response.Redirect("book.aspx")
                Else
                    Response.Write("密码错误!")
                End If
            Else
                Response.Write("用户名不存在!")
            End If
        End Sub
    End Class

像VB

不了解 ，新手 ，多多关照

是VB

能不能帮我注释下  ？ 这只是一部分代码

怎么注释？

+

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
     Dim str As String    //定义字符串变量
     Dim passstr As String  //定义字符串变量
     passstr = Trim(CStr(TextBox2.Text)) //把输入内容变成字符串，在去掉头尾空格，为什么要用CStr，不用好像也可以阿。
     str = "'" & TextBox1.Text & "'"  //给输入内容再添加上引号
     Dim sql As String = "select * from adminlist where 帐号=" & Trim(str) //定义字符串变量，SQl语句
     ‘在数据库中搜索帐号为textbox1.text的数据’
     Dim connstr As String = "server=localhost;uid=sa;pwd=;database=book" //数据库连接字符串
     Dim myconn As New SqlClient.SqlConnection(connstr)   //定义数据库连接
     Dim da As New SqlClient.SqlDataAdapter(sql, myconn)  //定义数据接收器
     Dim ds As New DataSet   //定义数据集
     da.Fill(ds, "adminlist")  //进行数据填充
     Dim dacomm As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da) //定义 命令生成器
    If ds.Tables("adminlist").Rows.Count = 1 Then   //如果行数为 1
’判断帐号密码是否和数据库匹配’
         If passstr = Trim(ds.Tables("adminlist").Rows(0)("密码")) Then //如果输入密码与数据库中密码一致
             Response.Redirect("book.aspx")   //网页跳转到 book.aspx
         Else
             Response.Write("密码错误!")     //网页显示 密码错误!"
         End If
     Else
         Response.Write("用户名不存在!") //网页显示 用户名不存在!"
     End If
 End Sub
End Class