Вход

Описание структуры 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

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



© Рефератбанк, 2002 - 2017