01-ПИ Марьин Д. И.
Описание структуры Internet-магазина.
Объект изучения – Internet-магазин продажи автомобилей «ООО «Шторм-сервис»».
Схема данных, отображающая связи в таблицах «Марки» и «Авто», представлена на рисунке 1:
Представление Internet-магазина в Microsoft Internet Explorer.
Программный код ASP-модулей.
|
ООО "Шторм-сервис" |
Модуль footer.asp:
Интернет-салон ООО "Шторм-сервис"
Модуль mark.asp:
<% @Language = VBScript%>
Модели
<%
username=request("username")
userpassword=request("userpassword")
%>
<%
set dbsub=server.createobject("adodb.connection")
par="Server=PL-SRV01;Database=webtest;UID=webtest;PWD=webtest"
dbsub.provider="sqloledb"
dbsub.open(par)
set RS=dbsub.Execute("Select * from marks_marin")
%>
<%
check=" exec check_user_marin """&username&""","""&userpassword&""""
set rss=dbsub.Execute(check)
%>
<%do while not rss.eof%>
<%
if rss("username")="" then
else
cck="yes"
end if
%>
<%
rss.MoveNext
Loop
rss.Close
%>
<% if cck="yes" then %>
Добавить модель
<%
end if
%>
Модуль avto.asp:
Автомобили
<%
check=request("check")
set dbsub=server.createobject("adodb.connection")
par="Server=PL-SRV01;Database=webtest;UID=webtest;PWD=webtest"
dbsub.provider="sqloledb"
dbsub.open(par)
kodmark=request("p1")
%>
<% Session("Kodmark")=Kodmark %>
<%
p2="exec get_avto_marin "&kodmark&""
%>
<% set RS=dbsub.execute(p2)%>
<%
if check="yes" then
%>
Добавить автомобиль
<%end if%>
Модуль form_mod.asp:
Хранимые процедуры, на которые ссылаются ASP-модули.
Процедура get_avto_marin:
CREATE PROCEDURE dbo.get_avto_marin
@kodmark int
AS
SELECT * FROM dbo.avto_marin
WHERE (kodmark=@kodmark)
GO
Процедура add_marks_marin:
CREATE PROCEDURE dbo.add_marks_marin
@namemark varchar(50)
AS
INSERT INTO dbo.marks_marin(namemark)
VALUES (@namemark)
GO
Процедура add_avto_marin:
CREATE PROCEDURE dbo.add_avto_marin
@kodmark int, @modelavto varchar(50),
@skorost varchar(50), @ls varchar(50),
@rashod varchar(50), @privod varchar(50), @cena varchar(50)
AS
INSERT INTO dbo.avto_marin(kodmark,modelavto,
skorost,ls,rashod ,privod,cena)
VALUES (@kodmark,@modelavto,@skorost, @ls,
@rashod, @privod, @cena)
GO
Процедура del_mark_marin:
CREATE PROCEDURE dbo.del_mark_marin
@kodmark int
AS
DELETE FROM dbo.marks_marin
WHERE (kodmark=@kodmark)
GO
Процедура del_avto_marin:
CREATE PROCEDURE dbo.del_avto_marin
@kodavto int
AS
DELETE FROM dbo.avto_marin
WHERE (kodavto=@kodavto)
GO
Процедура check_user_marin:
CREATE PROCEDURE dbo.check_user_marin
@username varchar(50), @userpassword varchar(50)
AS
SELECT * FROM dbo.users_marin
WHERE (username=@username)
AND (userpassword=@userpassword)
GO
4