黑马程序员技术交流社区

标题: 登录验证的多种方式举例，希望可以贴代码！ [打印本页]

作者: ♂张耕明 时间: 2012-10-23 00:44
标题: 登录验证的多种方式举例，希望可以贴代码！
登录验证的多种方式举例，希望可以贴代码！

作者: chens2865 时间: 2012-10-23 10:07
这个无非就是从数据库中查数据嘛！因为代码量很大，这里就不贴出来了。这个很简单滴。详细请看下杨中科老师的视频关于ADO.NET部分你自然就明白了.

作者: ♂张耕明 时间: 2012-10-23 11:03

chens2865 发表于 2012-10-23 10:07
这个无非就是从数据库中查数据嘛！因为代码量很大，这里就不贴出来了。这个很简单滴。详细请看下杨中科老 ...

你肯定是没看清楚，我就例举一下这几种验证吧。分别是：表单验证、windows验证、角色验证、证书验证

作者: chens2865 时间: 2012-10-23 12:55
那就不懂了。抱歉

作者: 丁艳姣 时间: 2012-10-23 14:08
这个是不是你想要的答案

数据库SQL验证方式

第一: 导入空间imports System.Data.SqlCilent
第二: 定义封装
dim con as SqlConnection
dim com as SqlCommand
dim dr  as SqlDataReader
第三: 定义连接方式与加载数据库
dim str as string="Integrated Security=false;uid=sa;database=VBTest;server=10.4.7.20"
第四: 实现连接
con = New SqlConnection(str)
      com = New SqlCommand("select * from 人员表", con)
      con.Open()
      dr = com.ExecuteReader
      While dr.Read
         MsgBox(dr.GetString(0))
      End While
      dr.Close()
      con.Close()

SQL Server2000 数据库本地验证方式

第一: 导入空间imports System.Data.SqlCilent
第二: 定义封装
dim con as SqlConnection
dim com as SqlCommand
dim dr  as SqlDataReader
第三: 定义连接方式与加载数据库
      Dim str As String = "database=VBTest;server=10.4.7.20;Integrated Security=true"
第四: 实现连接
con = New SqlConnection(str)
      com = New SqlCommand("select * from 人员表", con)
      con.Open()
      dr = com.ExecuteReader
      While dr.Read() '读数据
         MsgBox(dr(0))
      End While
      dr.Close()
      con.Close()

Access 数据库带密码验证方式

第一: 导入空间imports System.Data.OleDb
第二: 定义封装
Dim acon As OleDbConnection
   Dim acom As OleDbCommand
   Dim adr As OleDbDataReader
第三: 定义连接方式与加载数据库
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:VBTest.mdb; Jet OLEDB:Database Password=123"
第四: 实现连接
acon = New OleDbConnection(str)
      acom = New OleDbCommand("select * from 人员表", acon)
      Try
         acon.Open()
         MsgBox("Ok")
         adr = acom.ExecuteReader
         While adr.Read
            MsgBox(adr(0))
         End While
      Catch ex As Exception
         MsgBox(ex.Message)
      End Try
      adr.Close()
      acon.Close()

Access 数据库不带密码验证方式

第一: 导入空间imports System.Data.OleDb
第二: 定义封装
Dim acon As OleDbConnection
   Dim acom As OleDbCommand
   Dim adr As OleDbDataReader
第三: 定义连接方式与加载数据库
Dim str As String = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:VBTest1.mdb"
第四: 实现连接
acon = New OleDbConnection(str)
      acom = New OleDbCommand("select * from 人员表", acon)
      Try
         acon.Open()
         MsgBox("Ok")
         adr = acom.ExecuteReader
         While adr.Read
            MsgBox(adr(0))
         End While
      Catch ex As Exception
         MsgBox(ex.Message)
      End Try
      adr.Close()
      acon.Close()

作者: ♂张耕明 时间: 2012-10-23 14:13

丁艳姣发表于 2012-10-23 14:08
这个是不是你想要的答案

这不是我要的答案，你理解错了！

作者: 丁艳姣 时间: 2012-10-23 14:18

♂张耕明发表于 2012-10-23 14:13
这不是我要的答案，你理解错了！

那你再给我说具体点

作者: ♂张耕明 时间: 2012-10-23 14:30
<form></form>//通过form表单提交的验证称为表单验证。windows验证就看http://www.cnblogs.com/fish-li/archive/2012/05/07/2486840.html#_label0。
角色验证就比如你在操作某个文件时，提示你没有权限。证书验证比如网银中大量使用到的，用过就明白。

欢迎光临黑马程序员技术交流社区 (http://bbs.itheima.com/)

黑马程序员IT技术论坛 X3.2