的各种操作和功能。
(2)能够在实际的事例中灵活运用oracle的有关知识。
(3)能够编写出满足某种要求的功能。
内容: 1. 数据库结构设计 2. 目录结构与通用模块 3. 管理主界面与登录程序设计 4. 公告信息管理模块设计 5. 商品类别管理模块
设计 6. 商品管理模块设计 7. 订单管理模块设计 8. 系统主界面与登录程序设计 9. 设计商品
查询及购买模块 三、功能模块 根据分析,为了较好的实现网站,系统应实现以下基本功能: 1.后台管理方面: 1)商品订单管理:主要实现商品分类管理、添加与修改商品、管理订单、 投诉订单、反馈信息、商品留言管理等功能。 2)管理网站用户:主要实现用户管理、后台管理员管理等功能。 3)新闻公告管理:主要实现新闻添加(支持图片新闻) 、修改删除等功能。 4)网站常规设置:主要实现网站设置、首页广告、大类广告、小类广告、 友情链接、修改注册协议等功能的管理。 5)网站信息设置:主要实现汇款方式、送货方式、订购方式、售后服务等 内容的管理。 2.前台应用方面: 1)用户管理:主要实现用户注册、验证码登录陆、资料修改等功能。 2)用户订购:主要实现在线订购、在线支付、购物车、查看订单、订单投 诉、信息反馈等功能。 3)商品展示:主要实现二级分类展示、首页精品推荐、新品发布、销售排 行、分类模糊
搜索等功能。 4)网站信息:主要实现汇款方式、送货方式、订购方式、售后服务等功能。 5)首页功能:主要实现最新新闻、友情链接等功能。 四、数据库设计 数据库中所包含的表:
create sequence goodstype_id
minvalue 1
maxvalue 9999999
start with 1
increment by 1
cache 20;
create sequence basket_id
minvalue 1
maxvalue 9999999
start with 1
increment by 1
cache 20;
create sequence Board_id
minvalue 1
maxvalue 9999999
start with 1
increment by 1
cache 20;
create sequence goods_id
minvalue 1
maxvalue 9999999
start with 1
increment by 1
cache 20;
create or replace trigger basketTR
before insert on shopman.basket
for each row
begin
select basket_id.nextval into :NEW.id from dual;
end;
create or replace trigger boardTR
before insert on shopman.board
for each row
begin
select board_id.nextval into :NEW.id from dual;
end;
create or replace trigger goodsTR
before insert on shopman.goods
for each row
begin
select goods_id.nextval into :NEW.id from dual;
end;
create or replace trigger goodstypeTR
before insert on shopman.goodstype
for each row
begin
select goodstype_id.nextval into :NEW.id from dual;
end;
六、代码的编程
1、目录结构
Admin
Admin\images
Umages
User
Shop
2、通用模块
ConnDB.asp
<%
Dim Conn
Dim ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=OraOLEDB.Oracle.1;Pass
word=SHOPMAN;Persist Security
Info=True;User ID=SHOPMAN;Data Source=zkq "
Conn.Open ConnStr
%>
isAdmin.asp
<%
'从Session变量中读取用户信息
AdminId = Trim(Session("admin_id"))
Passwd = Trim(Session("admin_pwd"))
'用户名是否为空
If AdminId <> "" Then
sql = "Select * From Admin Where AdminId='" &; AdminId &; "' And Passwd='"
&; Passwd &; "'"
'是否存在此用户名
Set rs = Conn.Execute(sql)
If rs.EOF Then
Response.Redirect "Login.asp"
End If
Else
Response.Redirect "Login.asp"
End If
%>
isUser.asp\
<%
'从Session变量中读取
注册用户信息,并连接到数据库验证
UserId = Trim(Session("user_id"))
Pwd = Trim(Session("user_pwd"))
'如果用户名为空,则显示提示信息
If UserId = "" Then
Response.Write("不是注册用户,不能进入")
Response.End
Else
'连接数据库,进行身份验证
sql="SELECT * FROM Users WHERE UserId='" &; UserId &; "' AND Pwd='" &;
Pw