главная -> статьи -> сетевые приложения | |
Работа с базами данных
Основные приемы работы с БД 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 |