главная -> статьи -> сетевые приложения
 
Работа с базами данных
  Основные приемы работы с БД access разберем на конкретных примерах.
 
  Подключение к базе данных (задача проверки допуска пользователя к ресурсу):
<% @LANGUAGE=VBScript%>
<% Option Explicit %>
<%
Dim dbConn, dbQuery, userRecset, userType, filePath
filePath = Server.MapPath("../base/main.mdb")
 If IsObject(Session("my_dbConn")) Then
  Set dbConn = Session("my_dbConn")
 Else
  Set dbConn = Server.CreateObject("ADODB.Connection")
  Call dbConn.Open("Provider=Microsoft.Jet.OLEDB.4.0; _
  Data Source= "+filePath)
  Set Session("my_dbConn") = dbConn
 End If
  Открываем таблицу пользователей, сверяем введенное имя и пароль, при наличии таковых в базе, направляем пользователя на страницу, соответствующую его уровню допуска.
dbQuery = "SELECT * FROM users"
Set userRecset = Server.CreateObject( "ADODB.Recordset" )
Call userRecset.Open(dbQuery, dbConn)
'On Error Resume Next
Call userRecset.MoveFirst()
While Not userRecset.EOF
  If Request("userName")=userRecset("u_name") AND _
    Request("userPass")=userRecset("u_pass") Then
    Session("loginfailure") = False
    Session("UID")= userRecset("U_ID")
    Session("u_type")= userRecset("type")	
    userRecset.Close
      If  Session("u_type")=1 Then  
        Call  Response.Redirect("intro_a.asp")  
      End If
   End If
  Call userRecset.MoveNext()
Wend
userRecset.Close
Session("loginfailure") = True
%>
Вот, собственно, и все.
 
  Обратите внимание!
  Файл базы данных размещен "../base/main.mdb"
 
  Активно используется объект Session,
даже: Set Session("my_dbConn") = dbConn, что в среде профессиональных программистов, занимающихся разработкой больших и серьезных ресурсов, считается не очень приличным.
 
  Но нам простительно, поскольку речь ведем о простых приложениях.
 
  Полезный совет
  Сделайте на рабочем столе ярлык http://localhost/iishelp/ к справке IIS, там же и справка по ASP

далее

   
  © 2007   Сединко А.М.
  © 2004 design by   kir
Hosted by uCoz