Главная » Готовые бесплатные работы » Компьютерные сети » Рефераты

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

Реферат^* по компьютерным сетям

Дата добавления: 14 июня 2006

Язык реферата: Русский

Word, rtf, 9.7 Мб

Реферат можно скачать бесплатно

Скачать

Данная работа не подходит - план Б:

Создаете заказ

Выбираете исполнителя

Готовый результат

Исполнители предлагают свои условия

Автор работает

Заказать

Не подходит данная работа?

Вы можете заказать написание любой учебной работы на любую тему.

Заказать новую работу

^* Данная работа не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, предназначенной для использования в качестве источника материала при самостоятельной подготовки учебных работ.

Очень похожие работы

01-ПИ Марьин Д. И.

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

Объект изучения – Internet-магазин продажи автомобилей «ООО «Шторм-сервис»».

Карта сайта:

Структура ASP-модулей:

Схема данных, отображающая связи в таблицах «Марки» и «Авто», представлена на рисунке 1:

Рис.1 Схема данных

Представление Internet-магазина в Microsoft Internet Explorer.

Рис.2 Страница «Марки» без регистрации

Рис.3 Страница «Марки» после регистрации

Рис.4 Страница «Авто» без регистрации

Рис.5 Страница «Авто» после регистрации

Рис.6 Страница «Форма добавления модели»

Программный код ASP-модулей.

Модуль header.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

<%Do While not RS.EOF%>

<% if cck="yes" then %>

end if

<%RS.MoveNext

Loop

RS.Close%>

Список моделей:

&check=<%=cck%>">

<%=RS("namemark")%>

&namemark=<%=RS("namemark")%>">

Удалить

Модуль 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)%>

<%Do While not RS.EOF%>

<% if check="yes" then

<%RS.MoveNext

Loop

RS.Close%>

Список автомобилей:

<%=RS("modelavto")%>

&modelavto=<%=RS("modelavto")%>">Удалить

<%end if%>

if check="yes" then

Добавить автомобиль

<%end if%>

Модуль form_mod.asp:

Название модели:

Модуль form_av.asp:

Код марки

Модель

Скорость

Мощность

Расход топлива

Привод

Цена

Модуль add_mod.asp:

Добавлена модель:

Название модели:

<%=request("namemark")%>

<% namemark=Request("namemark") %>

<% spar="Server=PL-SRV01;Database=webtest;UID=webtest;PWD=webtest"

set dbsub=server.createobject("adodb.connection")

dbsub.provider="sqloledb"

dbsub.open(spar)

<% pins="exec add_marks_marin """&namemark&""""

set RS=dbsub.Execute(pins)

Модуль add_av.asp:

<% kodmark=Session("Kodmark") %>

<% modelavto=Request("modelavto") %>

<% skorost=Request("skorost") %>

<% ls=Request("ls") %>

<% rashod=Request("rashod") %>

<% privod=Request("privod") %>

<% cena=Request("cena") %>

Добавлен автомобиль:

Модель:

<%=request("modelavto")%>

Скорость:

<%=request("skorost")%>

Мощность:

<%=request("ls")%>

Расход топлива:

<%=request("rashod")%>

Привод:

<%=request("privod")%>

Цена:

<%=request("cena")%>

<% spar="Server=PL-SRV01;Database=webtest;UID=webtest;PWD=webtest"

set dbsub=server.createobject("adodb.connection")

dbsub.provider="sqloledb"

dbsub.open(spar)

<% pins="exec add_avto_marin """&kodmark&""","""&modelavto&""","""&skorost&""","""&ls&""","""&rashod&""","""&privod&""","""&cena&""""

set RS=dbsub.Execute(pins)

Модуль del_mark.asp:

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)

prem=" exec del_mark_marin "&kodmark&""

set RS=dbsub.Execute(prem)

Марка удалена:

Наименование марки:

<%=namemark%>

Модуль del_avto.asp:

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)

prem=" exec del_avto_marin "&kodavto&""

set RS=dbsub.Execute(prem)

Модель удалена:

Наименование модели:

<%=modelavto%>

Модуль reg.asp:

Регистрация

Пользователь:

Пароль:

Хранимые процедуры, на которые ссылаются ASP-модули.

Процедура get_avto_marin:

CREATE PROCEDURE dbo.get_avto_marin

@kodmark int

SELECT * FROM dbo.avto_marin

WHERE (kodmark=@kodmark)

Процедура add_marks_marin:

CREATE PROCEDURE dbo.add_marks_marin

@namemark varchar(50)

INSERT INTO dbo.marks_marin(namemark)

VALUES (@namemark)

Процедура 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)

INSERT INTO dbo.avto_marin(kodmark,modelavto,

skorost,ls,rashod ,privod,cena)

VALUES (@kodmark,@modelavto,@skorost, @ls,

@rashod, @privod, @cena)

Процедура del_mark_marin:

CREATE PROCEDURE dbo.del_mark_marin

@kodmark int

DELETE FROM dbo.marks_marin

WHERE (kodmark=@kodmark)

Процедура del_avto_marin:

CREATE PROCEDURE dbo.del_avto_marin

@kodavto int

DELETE FROM dbo.avto_marin

WHERE (kodavto=@kodavto)

Процедура check_user_marin:

CREATE PROCEDURE dbo.check_user_marin

@username varchar(50), @userpassword varchar(50)

SELECT * FROM dbo.users_marin

WHERE (username=@username)

AND (userpassword=@userpassword)