ASP+Oracle网上购物系统报告Word格式.doc
- 文档编号:6941148
- 上传时间:2023-05-07
- 格式:DOC
- 页数:33
- 大小:598KB
ASP+Oracle网上购物系统报告Word格式.doc
《ASP+Oracle网上购物系统报告Word格式.doc》由会员分享,可在线阅读,更多相关《ASP+Oracle网上购物系统报告Word格式.doc(33页珍藏版)》请在冰点文库上搜索。
控制面板----程序-----打开/关闭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"
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>
公告管理<
/b>
/font>
tablealign=centerborder="
1"
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>
0
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='
0'
分页:
Fori=1tors.PageCount
Response.Write"
ahref='
BoardList.asp?
page="
i&
[<
]<
Next
(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="
id
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="
id
执行SQL语句,将公告信息读取到rs记录集中草药
rs.Opensql,conn,1,1
如果记录集为空,则显示没有此公告
没有此公告"
结束网页输出
替换公告内容中的特殊字符
content=Replace(rs("
),"
chr(13))
content=Replace(content,"
下面内容是在表格中显示公告内容
<
tableborder="
<
<
公告标题
text"
size="
20"
公告内容<
textarearows="
12"
cols
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- ASP Oracle 网上 购物 系统 报告