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