| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 807 人关注过本帖
标题:运算符丢失是怎么回事
只看楼主 加入收藏
huaihai
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2008-10-31
收藏
 问题点数:0 回复次数:3 
运算符丢失是怎么回事
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
 "Data Source=C:\Inetpub\wwwroot\WebApplication1\data\db1.mdb")
        cn.Open()
        Dim sql As String
        sql = "select UserName,PassWord,manage from denglu where UserName='" & TextBox1.Text & "' PassWord='" & TextBox2.Text & "'"
        Dim cmd As New OleDbCommand(sql, cn)
        Dim sdr As OleDbDataReader

        sdr = cmd.ExecuteReader()

        If (sdr.Read()) Then
            Session("users") = Me.TextBox1.Text
            Session("pass") = Me.TextBox2.Text

            Session("Role") = sdr.GetInt32(2)
            If Session("Role").ToString = "1" Then Response.Redirect("admin.aspx")
        Else
            Response.Redirect("main.aspx")
        End If


        Me.RegisterStartupScript("alert", "<script language='javascript'> alert('用户登陆失败,请重新输入!!')</script>")


        sdr.Close()

        cn.Close()
看着段代码有什么错误    谢谢
搜索更多相关主题的帖子: 运算符 
2008-10-31 20:21
铲铲
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:506
专家分:0
注 册:2006-5-2
收藏
得分:0 
If (sdr.Read()) Then

你这里很明显IF的写法很有C语言的风格阿,呵呵。把外面那个括号去掉!

铲铲是也
2008-11-01 00:51
star_hlx
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-11-1
收藏
得分:0 
登陆
谁能给我中登陆和密码验证代码  谢谢
2008-11-01 21:48
铲铲
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:506
专家分:0
注 册:2006-5-2
收藏
得分:0 

铲铲是也
2008-11-02 00:44
快速回复:运算符丢失是怎么回事
数据加载中...
 
   



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

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