Default.aspx.vb
上传用户:bhp852
上传日期:2022-07-12
资源大小:22k
文件大小:1k
源码类别:

.net编程

开发平台:

Visual Basic

  1. Imports System.Data
  2. Imports System.Data.OleDb
  3. Partial Class _Default
  4.     Inherits System.Web.UI.Page
  5.     Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
  6.         Dim StrCnn As String
  7.         Dim StrSql As String
  8.         Dim Cnn As OleDbConnection
  9.         Dim Cmd As OleDbCommand
  10.         Dim Dr As OleDbDataReader
  11.         StrCnn = "Provider= Microsoft.Jet.Oledb.4.0;Data Source=" + Server.MapPath("User.DMB.mdb")
  12.         StrSql = "select * from usersheet where LoginName = '" + Login1.UserName + "' and userpass = '" + Login1.Password + "'"
  13.         Cnn = New OleDbConnection(StrCnn) '连接数据库
  14.         Cnn.Open()
  15.         Cmd = New OleDbCommand(StrSql, Cnn)
  16.         Dr = Cmd.ExecuteReader()
  17.         If (Dr.Read()) Then '判断当前用户输入的用户名密码是否与数据库中有匹配
  18.             Session("user") = Login1.UserName
  19.             Response.Redirect(Login1.DestinationPageUrl)
  20.         End If
  21.     End Sub
  22. End Class