| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 652 人关注过本帖
标题:这段代码是用什么编译的?什么语言啊?
只看楼主 加入收藏
qq634564111
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2012-1-5
结帖率:33.33%
收藏
已结贴  问题点数:10 回复次数:6 
这段代码是用什么编译的?什么语言啊?
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
搜索更多相关主题的帖子: server database localhost 帐号 
2012-06-03 11:30
one_june
Rank: 4
等 级:业余侠客
帖 子:139
专家分:212
注 册:2010-3-14
收藏
得分:0 
像VB
2012-06-03 19:27
逍遥十年醉
Rank: 2
等 级:论坛游民
帖 子:3
专家分:10
注 册:2012-6-3
收藏
得分:0 
不了解 ,新手 ,多多关照
2012-06-03 19:53
zwffff
Rank: 4
等 级:业余侠客
威 望:1
帖 子:58
专家分:224
注 册:2007-11-13
收藏
得分:10 
是VB

欢迎加入.Net技术交流群:90925122
2012-06-03 20:53
qq634564111
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2012-1-5
收藏
得分:0 
回复 4楼 zwffff
能不能帮我注释下  ? 这只是一部分代码
2012-06-03 22:59
zwffff
Rank: 4
等 级:业余侠客
威 望:1
帖 子:58
专家分:224
注 册:2007-11-13
收藏
得分:0 
回复 5楼 qq634564111
怎么注释?

欢迎加入.Net技术交流群:90925122
2012-06-06 18:10
wumingchenxi
Rank: 6Rank: 6
等 级:侠之大者
威 望:6
帖 子:96
专家分:457
注 册:2012-6-6
收藏
得分:0 
+

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
2012-06-07 08:40
快速回复:这段代码是用什么编译的?什么语言啊?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016883 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved