ASP+Oracle网上购物系统报告.doc
- 文档编号:1256837
- 上传时间:2022-10-19
- 格式:DOC
- 页数:33
- 大小:598KB
ASP+Oracle网上购物系统报告.doc
《ASP+Oracle网上购物系统报告.doc》由会员分享,可在线阅读,更多相关《ASP+Oracle网上购物系统报告.doc(33页珍藏版)》请在冰豆网上搜索。
一、背景
在互联网日益流行的今天,网络成为了人们获取信息的主要渠道,而在网络的大家庭中,电子商务则是一个热门,电子商务的一个最基本体现就是电子购物网站,从一定程度上讲它就是网上超市,也就是一种网上销售,人们利用网络购物,不需要再像传统的购物一样在街上东奔西跑,既可以节约时间,又可以节约精力,对于在网络上开店的企业来说,电子商务使得企业能直接面向最终客户,从而降低交易成本和客户售后咨询等服务费用,尤其是对无形产品的服务,现阶段企业开展电子商务以加强与客户的沟通和促进产品销售,对于买卖双方来说都是有益的。
二、实验目的
(1)进一步熟悉和掌握Oracle的各种操作。
(2)能够在实际的事例中灵活运用学到的有关知识。
(3)能够编写满足某种要求的功能。
三、实验内容
1.数据库结构设计
2.目录结构与通用模块
3.管理主界面与登录程序设计
4.公告信息管理模块设计
5.商品类别管理模块设计
6.商品管理模块设计
7.订单管理模块设计
8.系统主界面与登录程序设计
9.设计商品查询及购买模块
四、数据库设计
因为这门课程是ORACLE,所以这里我主要介绍ORACLE,ASP以前学过,不是这门课的主要内容,这里就简写ASP的内容,首先说下 就是数据库的设计,刚开始的时候按照书上的数据库原封不动的打下来的,可是运行的时候有错误,所以就上网查资料,最后给数据库每个表都加了主键,而且建了存储过程和触发器。
数据库和书上的一样,就是都添加了主键,下面我把存储过程和触发器加上。
createsequencegoodstype_id
minvalue1
maxvalue9999999
startwith1
incrementby1
cache20;
createsequencebasket_id
minvalue1
maxvalue9999999
startwith1
incrementby1
cache20;
createsequenceBoard_id
minvalue1
maxvalue9999999
startwith1
incrementby1
cache20;
createsequencegoods_id
minvalue1
maxvalue9999999
startwith1
incrementby1
cache20;
createorreplacetriggerbasketTR
beforeinsertonshopman.basket
foreachrow
begin
selectbasket_id.nextvalinto:
NEW.idfromdual;
end;
createorreplacetriggerboardTR
beforeinsertonshopman.board
foreachrow
begin
selectboard_id.nextvalinto:
NEW.idfromdual;
end;
createorreplacetriggergoodsTR
beforeinsertonshopman.goods
foreachrow
begin
selectgoods_id.nextvalinto:
NEW.idfromdual;
end;
createorreplacetriggergoodstypeTR
beforeinsertonshopman.goodstype
foreachrow
begin
selectgoodstype_id.nextvalinto:
NEW.idfromdual;
end;
五、IIS的配置
我的机子是WIN7系统,不好配置,上网找了好多资料,才把IIS配置好
控制面板----程序-----打开/关闭windows功能
按图进行设置
单击确定
退回到控制面板界面选择系统和安全-----管理工具--------Internet信息服务(IIS)管理器
双击Internet信息服务(IIS)管理器,会看到
右击DefaultWebSite选择管理网站-----高级设置
设置物理路径和应用程序池。
六、代码的编程
基本都是按书上打的,和说上的代码基本一样。
1、目录结构
Admin
Admin\images
Umages
User
Shop
2、通用模块
ConnDB.asp
<%
DimConn
DimConnStr
SetConn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=OraOLEDB.Oracle.1;Password=SHOPMAN;PersistSecurityInfo=True;UserID=SHOPMAN;DataSource=zkq"
Conn.OpenConnStr
%>
isAdmin.asp
<%
'从Session变量中读取用户信息
AdminId=Trim(Session("admin_id"))
Passwd=Trim(Session("admin_pwd"))
'用户名是否为空
IfAdminId<>""Then
sql="Select*FromAdminWhereAdminId='"&AdminId&"'AndPasswd='"&Passwd&"'"
'是否存在此用户名
Setrs=Conn.Execute(sql)
Ifrs.EOFThen
Response.Redirect"Login.asp"
EndIf
Else
Response.Redirect"Login.asp"
EndIf
%>
isUser.asp\
<%
'从Session变量中读取注册用户信息,并连接到数据库验证
UserId=Trim(Session("user_id"))
Pwd=Trim(Session("user_pwd"))
'如果用户名为空,则显示提示信息
IfUserId=""Then
Response.Write("不是注册用户,不能进入")
Response.End
Else
'连接数据库,进行身份验证
sql="SELECT*FROMUsersWHEREUserId='"&UserId&"'ANDPwd='"&Pwd&"'"
Setrs=conn.Execute(sql)
Ifrs.EOFThen
Response.Write("不是注册用户,不能进入")
Response.End
EndIf
EndIf
%>
项目三
1、设计管理主界面
管理主界面AdminIndex.asp
2、设计Admin/AdminIndex.asp
--#includeFile="../ConnDB.asp"-->
--#includefile="isAdmin.asp"-->
此网页使用了框架,但您的浏览器不支持框架。