Построение интерфейса к базе данных с использованием ASP. Приобретение практических навыков построения интерфейса к базе данных MS Access с использование технологии ASP

Страницы работы

Содержание работы

Министерство образования Российской Федерации

Тульский государственный университет

Кафедра прикладной математики и информатики

Интернет технологии

Лабораторная работа № 3

Построение интерфейса к базе данных с использованием ASP.

Выполнил студент гр.                                                                                 

Принял                                                                                                                       Московский         

Тула-2004.

Цель работы.

Приобретение практических навыков построения интерфейса к базе данных MS Access с использование технологии ASP.

Задание.

Создать сайт, предоставляющий следующий интерфейс к базе данных MS Access: просмотр имеющихся записей; отбор записей по критерию; добавление записей при условии аутентификации пользователя.

Текст программы.

Файл index.htm

<html>

<head><title>Стартовая страница</title></head>

<body>

<form action="check.asp" method="post" >

<table border=0> <tr><td>Имя</td>

<td><INPUT type="text" name="user">

</td></tr>

<tr><td>Пароль</td><td>

<INPUT type="password" name="passwd"> </td></tr><tr><td>

</td><td><INPUT type="submit" value="Вход">

</td></tr></table>

</form>

</body>

</html>

Файл all.asp

<%

Set db = Server.CreateObject("ADODB.Connection")

db.Open "Base"

sSQL = "SELECT * FROM Книги ;"

Set rs = db.Execute(sSQL)

%>

<table border=0>

<%

Do While NOT Rs.EOF

%>

<tr>

<td><% Response.Write(rs.Fields ("Автор").value) %></td>

<td><% Response.Write(rs.Fields ("Название").value) %></td>

<td><% Response.Write(rs.Fields ("Год_издания").value) %></td>

<td><% Response.Write(rs.Fields ("Количество").value) %></td>

</tr>

<% Rs.MoveNext

Loop

%>

</table>

<%

db.Close

Set db = Nothing

%>

Файл check.asp

<%

nm = Request.Form("user")

ps = Request.Form("passwd")

Set db = Server.CreateObject("ADODB.Connection")

db.Open "Base"

sSQL = "SELECT Пароль FROM Пароль WHERE Имя='"+nm+"';"

Set rs = db.Execute(sSQL)

If rs.Fields("Пароль").value = ps Then 

Response.Redirect "choose.htm"

Else

Response.Write("Неверный пароль")

%>

<a href="index.htm">Вернуться назад</a>

<%

End If

db.Close

Set db = Nothing

%>

Файл choose.htm

<html>

<head><title>Выберите действие</title></head>

<body>

<a href="all.asp">Вывести все записи базы</a></br>

<a href="find.htm">Отобрать по критерию</a></br>

<a href="insert.htm">Пополнить базу</a></br>

</body>

</html>

Файл choose.asp

<%

year2 = Request.Form("user")

Set db = Server.CreateObject("ADODB.Connection")

db.Open "Base"

sSQL = "SELECT Количество FROM Книги WHERE Год_издания="+year2+";"

Set rs = db.Execute(sSQL)

res = 0

Do While NOT rs.EOF

res = res + rs.Fields("Количество").value

rs.MoveNext

Loop

Response.Write("Количество книг "+year2+" года равно ")

Response.Write(res)

db.Close

Set db = Nothing

%>

Файл find.asp

<%

year2 = Request.Form("user")

Set db = Server.CreateObject("ADODB.Connection")

db.Open "Base"

sSQL = "SELECT Количество FROM Книги WHERE Год_издания="+year2+";"

Set rs = db.Execute(sSQL)

res = 0

Do While NOT rs.EOF

res = res + rs.Fields("Количество").value

rs.MoveNext

Loop

Response.Write("Количество книг "+year2+" года равно ")

Response.Write(res)

db.Close

Set db = Nothing

%>

Файл find.htm

<html>

<head><title>Отбор по критерию</title></head>

<body>

<form action="find.asp" method="post" >

<table border=0> <tr><td>Введите год издания</td>

<td><INPUT type="text" name="user">

</td></tr>

<tr><td>

</td><td><INPUT type="submit" value="Отобрать">

</td></tr></table>

</form>

</body>

</html>

Файл insert.asp

<%

author2=Request.Form("author")

title2=Request.Form("title")

year2 = Request.Form("year")

number2=Request.Form("number")

Set db = Server.CreateObject("ADODB.Connection")

db.Open "Base"

sSQL = "INSERT INTO Книги (Автор,Название,Год_издания,Количество) VALUES ('"+author2+"','"+title2+"',"+year2+","+number2+");"

Response.Write(sSQL)

Set rs = db.Execute(sSQL)

db.Close

Set db = Nothing

%>

Файл insert.htm

<html>

<body>

<form action="insert.asp" method="post" >

<table border=0>

<tr><td>Автор</td><td><INPUT type="text" name="author"></td></tr>

<tr><td>Название</td><td><INPUT type="text" name="title"> </td></tr>

<tr><td>Год издания</td><td><INPUT type="text" name="year"> </td></tr>

<tr><td>Количество экземпляров</td><td><INPUT type="text" name="number"> </td></tr>

<tr><td></td><td><INPUT type="submit" value="Добавить"></td></tr>

</table>

</form>

</body>

</html>

Файл secret.asp

<html>

<head><title>Запрос</title></head>

<body>

<form action="ask.asp" method="post" >

<table border=0>

<tr>

<td>Год издания</td>

<td><INPUT type="text" name="year">

</td></tr>

<tr><td>

<INPUT type="submit" value="Вывести">

</td></tr>

</table>

</form>

</body>

</html>

Похожие материалы

Информация о работе

Тип:
Отчеты по лабораторным работам
Размер файла:
41 Kb
Скачали:
0