ASP+Oracle网上购物系统报告Word格式.doc

资源描述

ASP+Oracle网上购物系统报告Word格式.doc

《ASP+Oracle网上购物系统报告Word格式.doc》由会员分享，可在线阅读，更多相关《ASP+Oracle网上购物系统报告Word格式.doc（33页珍藏版）》请在冰点文库上搜索。

ASP+Oracle网上购物系统报告Word格式.doc

控制面板----程序-----打开/关闭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"

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="

border="

frameborder="

framename="

contents"

target="

main"

src="

left.asp"

scrolling="

auto"

noresize>

BoardList.asp"

noframes>

bodytopmargin="

leftmargin="

此网页使用了框架，但您的浏览器不支持框架。

/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"

Dimn'

用来保存记录数量

rs.Opensql,Conn,1,1

如果rs为空，则显示提示信息

Ifrs.EOFThen

Response.Write"

tr>

tdcolspan=5align=center>

目前还没有公告。

/td>

/tr>

/table>

palign=center>

fontstyle='

FONT-SIZE:

12pt'

color="

#000080"

公告管理<

/b>

/font>

tablealign=centerborder="

cellspacing="

width="

100%"

bordercolorlight="

#4DA6FF"

bordercolordark="

#ECF5FF"

style='

9pt'

tdwidth="

6%"

align="

center"

bgcolor="

#BEDCFA"

strong>

编号<

/strong>

50%"

题目<

24%"

时间<

10%"

bgcolor="

修改<

选择<

设置每页记录数量为15

rs.PageSize=15

设置并读取页码参数page

iPage=CLng（Request（"

page"

IfiPage<

=0Then

iPage=1

EndIf

IfiPage>

rs.PageCountThen

iPage=rs.PageCount

RowCount=rs.PageSize

依次显示公告信息

DoWhileNotrs.EOFAndRowCount>

n=n+1

tdalign="

%=n%>

td>

ahref="

../BoardView.asp?

id=<

%=rs（"

id"

）%>

onClick="

returnBoardWin（this.href）"

title"

/a>

posttime"

BoardEdit.asp?

inputtype="

checkbox"

name="

Board"

id="

style="

font-size:

9pt"

rs.MoveNext（）

控制每页显示记录的数量

RowCount=RowCount-1

Loop

显示页码链接

Ifrs.PageCount>

1then

Response.Write"

tableborder='

分页：

Fori=1tors.PageCount

Response.Write"

ahref='

BoardList.asp?

page="

（2）显示功能按钮

palign="

button"

value="

添加公告"

onclick="

BoardWin（'

BoardAdd.asp'

）"

name=add>

nbsp;

全选"

sltAll（）"

name=button1>

清空"

sltNull（）"

name=button2>

submit"

删除"

tijiao"

SelectChk（）"

br>

inputtype=hiddenname="

2．添加公告信息

在boardlist页面“添加公告”按钮，将调用boardwin（）函数，在新窗口中打开boardaddt.Asp，添加公告信息，定义表单到吗如下：

formname="

myform"

method="

POST"

action="

BoardSave.asp?

action=add"

OnSubmit="

returncheckFields（）"

提交前要对表单进行域校验

scriptlanguage="

javascript"

functioncheckFields（）

{

if（myform.title.value=="

）{

alert（"

公告题目不能为空"

）;

myform.title.onfocus（）;

returnfalse;

}

if（myform.content.value=="

公告内容不能为空"

myform.content.onfocus（）;

returntrue;

}

/script>

Boardsave.asp主要代码如下：

Functionchangechr（str）

changechr=replace（str,"

changechr=replace（changechr,chr（13）,"

EndFunction

DimStrAction

得到动作参数，如果为add则表示创建公告，如果为update则表示更改公告

StrAction=Request.QueryString（"

action"

取得公告题目和内容和提交人用户名

title=Trim（Request（"

content=changechr（Trim（Request（"

content"

）））

poster=Session（"

IfStrAction="

add"

在数据库表Board中插入新公告信息

sql="

InsertintoBoard（title,content,posttime,poster）Values（'

title&

content&

now&

poster&

Else

更改此公告信息

id=Request.QueryString（"

UpdateBoardSettitle='

content='

posttime='

poster='

whereid="

EndIf

response.writesql

执行数据库操作

Conn.Execute（sql）

Response.Write"

h3>

公告成功保存<

/h3>

3．修改公告

进入boardedit。

Asp页面，表单myform的定义代码：

action=update&

%=id%>

与添加公告相同的是，提交表单前需要进行域校验主要代码如下：

从数据库中取得此公告信息

Dimid,rs,sql

读取参数id

id=Request.QueryString（"

根据参数id设置sql语句，读取指定的公告信息

SELECT*FROMBoardWHEREid="

执行SQL语句，将公告信息读取到rs记录集中草药

rs.Opensql,conn,1,1

如果记录集为空，则显示没有此公告

没有此公告"

结束网页输出

替换公告内容中的特殊字符

content=Replace（rs（"

）,"

chr（13））

content=Replace（content,"

下面内容是在表格中显示公告内容

tableborder="

公告标题

text"

size="

20"

公告内容<

textarearows="

12"

cols

展开阅读全文