网站制作论文.docx

网站制作论文.docx

《网站制作论文.docx》由会员分享，可在线阅读，更多相关《网站制作论文.docx（23页珍藏版）》请在冰点文库上搜索。

网站制作论文

关于网站建设的论文

小组成员：

***************************

班级：

电商0902班

书城管理系统

一、书城结构图

二、功能描述

1、用户管理

）用户管理，其中包括用户删除与恢复、更改用户密码、修改用户资料、批量删除用户。

（1）用户增加：

注册成功如下图：

表示注册成功，完成对用户名、密码、昵称的增加。

要求：

用户名必须是5-9位的字母数字串，可以使用汉字但不建议使用，用户名不能为空，用户输入合法的用户名后必须进行检测是否重名，重名重新注册，否则注册不成功，密码必须是6-12位，太少的话，密码不安全，注意到以上问题后，用户打开登陆界面，可以登陆。

进入后台

可看到

刚注册的用户的信息，则表示增加上了

（2）用户删除

进入到用户删除页面

看到最后面的“选择”项有删除，进入用户删除系统，点击“确定”则就删除了

（3）用户修改

进入到用户修改页面

点击后面的“选择”下的“修改个人资料”进入到修改管理系统：

填写后，点击修改即可

（4）用户查找

在主页登陆后，进入到后台页面，进入用户查询系统，如下图：

就可以进行查询了。

（5）编码实现

1、选择编程语言

　　近年来随着Internet技术的飞速发展及用户需求的不断升级，Web页面技术也不断的推陈出新，使得Web站点的功能越来越强大，能够提供的服务种类越来越繁多。

从HTML、ClientScript到CGI,从JAVA的诞生到ActiveX,Web页面设计人员不断受到冲击，微软公司在总结了以往技术，重新思考Web页面设计的真正需要后，推出了ActiveServerPages（ASP），一种用以取代CGI（CommonGatewayInterface，通用网关接口）的技术。

简单讲，ASP是位于服务器端的脚本运行环境，通过这种环境，用户可以创建和运行动态的交互式Web服务器应用程序，如交互式的动态网页，包括使用HTML表单收集和处理信息，上传与下载等等。

更重要的是，ASP使用的ActiveX技术基于开放设计环境，用户可以自己定义和制作组件加入其中，使自己的动态网页几乎具有无限的扩充能力，这是传统的Web编写工具所远远不及的地方。

使用ASP还有个好处，就在于ASP可利用ADO（ActiveDataObject,微软的一种新的数据访问模型）方便快捷地访问数据库,从而使得开发基于WWW的应用系统成为可能，这也是本文选择ASP作为开发工具最重要的原因之一。

　　Wsb服务器是Web应用程序的心脏。

IIS（InternetInformationServer）是微软推出的WindowsNTOptionPack的主要成员，作为Win2000server的扩展，自推出以来已经有了很大发展，其体系结构是当今市场上最受关注的Web服务器之一。

新推出的IIS4.0版本增强了系统安全性，具有服务器端脚本开发调试，内容管理和站点分析，崩溃防护，内置JAVA虚拟机及全面支持ASP等强大功能。

　　在过去，客户机/服务器结构的设计与Web的相关技术几乎处于平行线上，两者相互独立并无法作出集成性的设计。

现在我们利用IIS+ASP构成三层式Web结构（如图2.1所示）的中间一层，将客户机/服务器结构与Web密切结合，完成前后端两者的集成输出功能，使得Web站点的开发更方便实现的功能更强大。

利用IIS+ASP技术来集成Web前后端所带来的强大效益可归结为以下几个方面：

　　1．减少构建和维护成本。

　　2．加快联机过程。

　　3．应用软件集中在服务器端开发管理。

　　4．前端可使用任何浏览器（IE、360…..）。

　　5．后端可存取任何数据库（SQL、Access…..）。

　　6．可使用任何脚本语言开发（VBScript、JavaScript、PERL…..）。

　　ASP提供了6个功能强大的内部对象，每个对象具有各自的属性（Property）、方法（Method），有的还拥有数据集合（Collection）与事件（Event），它们共同完成Web中的一些重要工作。

　　对象名称功能描述

　　Request从客户端取得信息

　　Response将信息送给客户端

　　Server提供一些Web服务器工具

　　Session储存在一个Session内的用户信息，该信息仅可被该用户访问Application在一个ASP-Application中让不同的客户端共享ObjectContext配合MicrosoftTransaction服务器进行分布式事务处理

2、部分代码

注册的代码：

<%

dima,b,c,d

a=request.form（"lx"）

b=request.Form（"bz"）

Setconn=Server.CreateObject（"ADODB.Connection"）

conn.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

setrs=Server.CreateObject（"ADODB.RecordSet"）

rs.Open"tslx",conn,3,3

rs.AddNew

rs（"lx"）=a

rs（"bz"）=b

rs.update

rs.close

setrs=nothing

conn.close

setrs=nothing

response.Redirect"houtai.asp"

%>

注册判断的代码

<%

dima,b,c,d

a=request.form（"username"）、

b=request.Form（"password"）

c=request.form（"password2"）

d=request.form（"nicheng"）

iflen（a）<5then

session（"wdy"）="对不起，您的用户长度小于5位"

response.Redirect"zc.asp"

else

endif

iflen（a）>9then

session（"wdy"）="对不起，您的用户长度大于9位！

！

！

！

"

response.redirect"zc.asp"

else

endif

iflen（b）<6then

session（"wdy"）="对不起，您的密码长度小于6位"

response.Redirect"zc.asp"

else

endif

iflen（b）>12then

session（"wdy"）="对不起，您的密码长度大于12位！

！

！

！

"

response.redirect"zc.asp"

else

endif

ifb<>cthen

session（"wdy"）="对不起,2次密码不一致！

！

！

"

response.Redirect"zc.asp"

else

endif

Setconn=Server.CreateObject（"ADODB.Connection"）

conn.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

setrs=Server.CreateObject（"ADODB.RecordSet"）

rs.Open"user",conn,3,3

rs.AddNew

rs（"username"）=a

rs（"password"）=b

rs（"nicheng"）=d

rs.update

'把a赋值于session（"yhm"），并传递用户名到xianshi

session（"yhm"）=a

response.Redirect"xsxx.asp"

%>

登陆的代码：

<%

dima,b,c

a=request.Form（"username"）

b=request.Form（"password"）

setdb=Server.Createobject（"ADODB.Connection"）

db.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

Strsq3="select*fromuserwhereusername='"&a&"'"setrs=db.Execute（strSq3）

ifrs.eof=truethen

session（"wdy"）="对不起，你的用户名不正确，请您注册！

！

！

！

"

response.redirect"zc.asp"

endif

c=rs（"password"）

ifb=cthen

session（"yhm"）=a

session（"qx"）=rs（"qx"）

response.Redirect"houtai.asp"

else

session（"dl"）="对不起，你的密码不正确！

！

！

！

"

response.redirect"dl.asp"

endif

%>

后台管理的代码：

<%

dima

a=request.Form（"username"）

a=session（"hym"）

setdb=Server.Createobject（"ADODB.Connection"）

db.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

Strsq3="select*fromuserwhereusername='"&a&"'"

setrs=db.Execute（strSq3）

ifrs.eof=truethen

else

'找到了，就让用户名传递下去

session（"yhm"）=a

endif

%>

用户修改的代码：

<%

dima,b,e

a=request.form（"username"）

b=request.form（"password"）

e=request.form（"nicheng"）

Setconn=Server.CreateObject（"ADODB.Connection"）

conn.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

Setrs=Server.CreateObject（"ADODB.RecordSet"）

Strsq3="delete*fromuserwhereusername='"&a&"'"

rs.Openstrsq3,conn,0,2

setrs=nothing

conn.close

setrs=nothing

%>

<%

dima,b

a=request.form（"username"）

setdb=Server.Createobject（"ADODB.Connection"）

db.Open"DBQ="&Server.Mappath（"shujuku\data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

ifsession（"qx"）="0"then

ifa=""then

b=""

else

b="whereusername='"&a&"'"

endif

else

b="whereusername='"&session（"yhm"）&"'"

endif

Strsq3="select*fromuser"&b

Setrs=Server.CreateObject（"ADODB.Recordset"）

rs.OpenstrSq3,db,1'因为要分页显示，所以用键盘指针

'下面查询记录，如果非空就显示记录，如果是空的，给出提示信息

Ifrs.BofOrrs.EofThen

Response.Write"现在还没有数据"

Else

'以下主要为了分页显示

dimpage_size'定义每页多少条记录变量

dimpage_no'定义当前是第几页变量

dimpage_total'定义总页数变量

page_size=3'每页显示3条记录

'如果第一次打开，则page_no为1，否则由传回的参数决定

IfRequest.QueryString（"page_no"）=""Then

page_no=1

Else

page_no=Cint（Request.QueryString（"page_no"））'用Cint将字符串变为整数

EndIf

rs.PageSize=page_size'设置每页多少条记录

page_total=rs.PageCount'返回总页数

ifpage_total

rs.AbsolutePage=1

else

rs.AbsolutePage=page_no'设置当前显示第几页

endif

'下面一段利用表格显示当前页的所有记录

DimI

I=page_size

ifrs.eof=truethen

session（"ts"）="对不起，没有你要找的用户名"

else

session（"ts"）="符合你要找的用户名"

endif

%>

用户查询之删除系统的代码：

用户查询之删除系统

method=post>

请输入用户名：

提示信息：

<%response.Writesession（"ts"）%>

序号

用户名

密码

昵称

选择

<%

j=1

DoWhileNotrs.EofAndI>0

I=I-1

%>

<%=j%>

<%=rs（"username"）%>

<%=rs（"password"）%>

<%=rs（"nicheng"）%>

<%Response.Write"

cid="&rs（"id"）&"'target='_main'>删除"%>

<%

j=j+1

rs.MoveNext

Loop

'输出有关页数信息，从1到总页数循环，如不是当前页，就加上超链接

%>

删除信息成功的代码：

<%

dima,b,e

a=request.form（"username"）

b=request.form（"password"）

e=request.form（"nicheng"）

Setconn=Server.CreateObject（"ADODB.Connection"）

conn.Open"DBQ="&Server.Mappath（"shujuku/data.mdb"）&";DRIVER={MicrosoftAccessDriver（*.mdb）};"

Setrs=Server.CreateObject（"ADODB.RecordSet"）

Strsq3="delete*fromuserwhereusername='"&a&"'"

rs.Openstrsq3,conn,0,2

setrs=nothing

conn.close

setrs=nothing

%>

（6）所用数据表

用户信息表

yhxx

id

xm

sfzh

tel

bz

yhid

1

张三

123456

0391

16

2

ggf

gdf

gfdj

jds

15

3

qq

410222

5035

hh

100

4

dd

dd

dd

ddaaf

115

5

mm

410222

0123

my

116

6

是你

410555

3838

44

117

7

rtys

gsdf

gsd

gsdfg

118

8

sadfg

dsaf

sadf

00

119

11

sadfg

dsaf

sadf

002

119

12

dsa

gsad

dsf

ga

121

13

慈悲

556563

5507

的萨芬

122

14

qq

410222

5035

hhf

100

15

13333

41000600003210

1234560000

000

135

16

13222

41000600003210

1234560000

000

135

三、系统用表

1、用户信息表（user）

user

ID

username

password

nicheng

dizhi

qx

bz

15

zjz

000000

zjz

zjz

1

16

admin

admin

超级用户

济源职业技术学院

0

100

2

2

啊啊

拜拜

1

101

33

33

33

33

1

102

33333

33

33

33

1

111

yumen

123456

可爱

1

112

ppppp

pppppp

嘿嘿

135

1

113

rrrrr

rrrrrr

qq

1

114

ccccc

cccccc

ee

1

115

nyw123

nywnyw

ss

1

116

dabendan

444444

我就是

1

118

090603

000000

00

1

119

cheng

000000

lkjy

1

120

xiang

000000

00

1

121

wunai

000000

jj

1

122

wenrou

000000

0121

1

123

sdfsdf

000000

sdf

124

sdfsdf

sdfsdf

sdf

127

12345

123456

12345

128

22222

222222

2222

130

12345

123456

123

133

11111

111111

1122

134

11111

111111

11111

135

133333

333333

333

2、

books

ID

sm

dj

zz

cbs

isbn

sl

bz

lb

1

asp

0

aa

hgh

yyy

16

电子

2

as

0

bb

hh

jj

8

其他的信息表

tslx

id

lx

bz

1

计算机

2

电子

3

机械

4

44

44

5

beizhu

33

6

无敌

66

7