ASP+Oracle网上购物系统报告Word格式文档下载.doc
《ASP+Oracle网上购物系统报告Word格式文档下载.doc》由会员分享，可在线阅读，更多相关《ASP+Oracle网上购物系统报告Word格式文档下载.doc（33页珍藏版）》请在冰豆网上搜索。
startwith1
incrementby1
cache20;
createsequencebasket_id
createsequenceBoard_id
createsequencegoods_id
createorreplacetriggerbasketTR
beforeinsertonshopman.basket
foreachrow
begin
selectbasket_id.nextvalinto:
NEW.idfromdual;
end;
createorreplacetriggerboardTR
beforeinsertonshopman.board
selectboard_id.nextvalinto:
createorreplacetriggergoodsTR
beforeinsertonshopman.goods
selectgoods_id.nextvalinto:
createorreplacetriggergoodstypeTR
beforeinsertonshopman.goodstype
selectgoodstype_id.nextvalinto:
五、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"
EndIf
isUser.asp\
从Session变量中读取注册用户信息，并连接到数据库验证
UserId=Trim（Session（"
user_id"
Pwd=Trim（Session（"
user_pwd"
如果用户名为空，则显示提示信息
IfUserId="
Response.Write（"
不是注册用户，不能进入"
Response.End
连接数据库，进行身份验证
sql="
SELECT*FROMUsersWHEREUserId='
UserId&
ANDPwd='
Pwd&
Setrs=conn.Execute（sql）
Response.Write（"
Response.End
项目三
1、设计管理主界面
管理主界面AdminIndex.asp
2、设计Admin/AdminIndex.asp
!
--#includeFile="
../ConnDB.asp"
-->
--#includefile="
isAdmin.asp"
html>
head>
metaHTTP-EQUIV="
Content-Type"
CONTENT="
text/html;
charset=gb2312"
metaname="
GENERATOR"
content="
MicrosoftFrontPage4.0"
ProgId"
FrontPage.Editor.Document"
title>
网上商城订单管理<
/title>
/head>
framesetcols="
179,*"
framespacing="
0"
border="
frameborder="
<
framename="
contents"
target="
main"
src="
left.asp"
scrolling="
auto"
noresize>
BoardList.asp"
noframes>
bodytopmargin="
leftmargin="
p>
此网页使用了框架，但您的浏览器不支持框架。
/p>
/body>
/noframes>
/frameset>
/html>
包含下面外部文件
3、设计admin\left.asp
4、设计用户登录设计
5、管理用户登录程序设计
在addmin\login.asp中，定义表单代码如下：
formname=”myform”action=”putsession.asp”method=”post”>
当数据提交后，将执行putsession.asp把用户保存在session变量中，然后把网页转向到admin\login.asp中。
当再次执行left.asp时程序将接受用户信息，惊醒身份验证，代码如下：
根据录入的用户信息查询数据
AdminPwd=Trim（Session（"
Select*FromAdminWhereAdminId='
AdminPwd&
Setrsa=Conn.Execute（sql）
如果用户存在，则转向到AdminIndex.asp
IfNotrsa.EOFThen
Response.Redirect（"
AdminIndex.asp"
）
EndIf
为了在系统运行过程中掌握当前登录用户的信息，通常要把用户信息保存在session变量中。
项目四公告信息管理模块
1．添加新的公告记录；
2．修改公告记录；
3．删除公告记录。
只有管理用户才有权进入公告信息管理模块。
1．设计公告管理页面
公告管理页面为boardlist.Asp，公告的添加、修改和删除都在这里执行。
（1）显示公告信息
设置SQL语句，查询表Board中的公告信息，读取到rs对象中
Dimrs
Setrs=Server.CreateObject（"
ADODB.RecordSet"
sql="
Select*FromBoardOrderByPostTimeDesc"
D
升级会员 