Описание структуры Internet-магазина

Описание структуры Internet-магазина. Объект изучения Internet-магазин продажи автомобилей ООО Шторм-сервис . Карта сайта Структура ASP-модулей Схема данных, отображающая связи в таблицах Марки и Авто , представлена на рисунке 1 Рис.1 Internet Explorer.Рис.2 Страница Марки без регистрации Рис.3 Страница Марки после регистрации Рис.4 Страница Авто без регистрации Рис.5 Страница Авто после регистрации Рис.6 Страница Форма добавления модели Рис.7 Страница Форма добавления автомобиля Рис.8 Страница Добавленная модель Рис.9 Страница Добавленный автомобиль Рис.10 Страница Удаленная марка Рис.11 Страница Удаленный автомобиль Рис.12 Страница Форма регистрации Программный код ASP-модулей. Модуль header.asp lt center gt lt table border 1 gt lt tr gt lt td gt lt img src storm.jpg width 300 high 150 gt lt td gt lt td gt lt font color CC0000 gt ООО Шторм-сервис lt font gt lt td gt lt table gt Модуль footer.asp lt br gt Интернет-салон ООО Шторм-сервис lt br gt Модуль mark.asp lt Language VBScript gt lt html gt lt head gt lt title gt Модели lt title gt lt body bgcolor Skyblue gt lt include file header.asp gt lt username request username userpassword request userpassword gt lt 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 gt lt check exec check user marin username , userpassword set rss dbsub.Execute check gt lt do while not rss.eof gt lt if rss username then else cck yes end if gt lt rss.MoveNext Loop rss.Close gt lt br gt lt if cck yes then gt lt a href form mod.asp gt Добавить модель lt a gt lt end if gt lt br gt lt table border 0 gt lt tr align center gt lt td gt Список моделей lt td gt lt tr gt lt Do While not RS. EOF gt lt tr gt lt td gt lt a href avto.asp?p1 lt RS kodmark gt check lt cck gt gt lt RS namemark gt lt a gt lt td gt lt if cck yes then gt lt td gt lt a href del mark.asp?kodmark lt RS kodmark gt namemark lt RS namemark gt gt Удалить lt a gt lt td gt lt end if gt lt tr gt lt RS.MoveNext Loop RS.Close gt lt table gt lt br gt lt include file footer.asp gt lt body gt lt html gt Модуль avto.asp lt html gt lt head gt lt title gt Автомобили lt title gt lt body bgcolor Skyblue gt lt include file header.asp gt lt 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 gt lt Session Kodmark Kodmark gt lt p2 exec get avto marin kodmark gt lt set RS dbsub.execute p2 gt lt br gt lt br gt lt table border 0 gt lt tr align center gt lt td gt Список автомобилей lt td gt lt tr gt lt Do While not RS.EOF gt lt tr gt lt td gt lt RS modelavto gt lt td gt lt if check yes then gt lt td gt lt a href del avto.asp?kodavto lt RS kodavto gt modelavto lt RS modelavto gt gt Удалить lt a gt lt end if gt lt tr gt lt RS.MoveNext Loop RS.Close gt lt table gt lt if check yes then gt lt br gt lt a href form av.asp gt Добавить автомобиль lt a gt lt br gt lt br gt lt br gt lt end if gt Модуль form mod.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt form method GET action add mod.asp gt lt br gt Название модели lt br gt lt input type text name namemark id namemark gt lt br gt lt input type submit value Добавить модель name submit gt lt br gt lt include file footer.asp gt lt body gt lt html gt Модуль form av.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt form method GET action add av.asp gt Код марки lt br gt lt input type text name kodmark id kodmark gt lt br gt Модель lt br gt lt input type text name modelavto id modelavto gt lt br gt Скорость lt br gt lt input type text name skorost id skorost gt lt br gt Мощность lt br gt lt input type text name ls id ls gt lt br gt Расход топлива lt br gt lt input type text name rashod id rashod gt lt br gt Привод lt br gt lt input type text name privod id privod gt lt br gt Цена lt br gt lt input type text name cena id cena gt lt br gt lt input type submit value Добавить name submit gt lt br gt lt include file footer.asp gt lt body gt lt html gt Модуль add mod.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt br gt lt br gt lt br gt Добавлена модель lt br gt lt br gt Название модели lt br gt lt request namemark gt lt br gt lt namemark Request namemark gt lt spar Server PL-SRV01 Database webtest UID webtest PWD webtest set dbsub server.createobject adodb.connection dbsub.provider sqloledb dbsub.open spar gt lt BR gt lt pins exec add marks marin namemark set RS dbsub.Execute pins gt lt include file footer.asp gt lt body gt lt html gt Модуль add av.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt kodmark Session Kodmark gt lt modelavto Request modelavto gt lt skorost Request skorost gt lt ls Request ls gt lt rashod Request rashod gt lt privod Request privod gt lt cena Request cena gt lt br gt lt br gt lt br gt Добавлен автомобиль lt br gt lt br gt Модель lt br gt lt request modelavto gt lt bsp gt lt br gt Скорость lt br gt lt request skorost gt lt br gt Мощность lt br gt lt request ls gt lt br gt Расход топлива lt br gt lt request rashod gt lt br gt Привод lt br gt lt request privod gt lt br gt Цена lt br gt lt request cena gt lt br gt lt spar Server PL-SRV01 Database webtest UID webtest PWD webtest set dbsub server.createobject adodb.connection dbsub.provider sqloledb dbsub.open spar gt lt BR gt lt pins exec add avto marin kodmark , modelavto , skorost , ls , rashod , privod , cena set RS dbsub.Execute pins gt Модуль del mark.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt kodmark request kodmark namemark request namemark spec request spec set dbsub server.createobject adodb.connection par Server PL-SRV01 Database webtest UID webtest PWD webtest dbsub.provider sqloledb dbsub.open par gt lt prem exec del mark marin kodmark set RS dbsub.Execute prem gt Марка удалена lt br gt lt br gt Наименование марки lt namemark gt lt bsp gt lt br gt lt include file footer.asp gt lt body gt lt html gt Модуль del avto.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt lt kodavto request kodavto modelavto request modelavto set dbsub server.createobject adodb.connection par Server PL-SRV01 Database webtest UID webtest PWD webtest dbsub.provider sqloledb dbsub.open par gt lt prem exec del avto marin kodavto set RS dbsub.Execute prem gt Модель удалена lt br gt lt br gt Наименование модели lt modelavto gt lt bsp gt lt br gt lt include file footer.asp gt lt body gt lt html gt Модуль reg.asp lt html gt lt body bgcolor Skyblue gt lt include file header.asp gt Регистрация lt FORM method GET action mark.asp gt lt TABLE gt lt TR gt lt TD gt lt LABEL for username gt Пользователь lt LABEL gt lt TD gt lt INPUT type text name username id username gt lt td gt lt tr gt lt TR gt lt TD gt lt LABEL for userpassword gt Пароль lt LABEL gt lt TD gt lt INPUT type text name userpassword id userpassword gt lt td gt lt tr gt lt tr gt lt td gt lt input type submit value Вход name submit gt lt tr gt lt td gt lt table gt lt FORM gt lt include file footer.asp gt lt body gt lt html gt Хранимые процедуры, на которые ссылаются 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.