access 系统功能结构图 文件架构图 源代码)课程设计

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码)-课程设计

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图)

目录

1. 课程设计概述 5

1.1 课程设计的目的 5

1.2 设计要求 5

2. 系统分析 6

2.1 需求分析 6

2.2 可行性分析 6

3. 总体设计 7

3.1 项目规划 7

3.2 系统功能结构图 7

4. 系统设计 8

4.1 设计目标 8

4.2 开发及运行环境 9

4.3 编码设计 9

4.4 逻辑结构设计 9

5. 前台主要功能模块详细设计 10

5.1 前台文件总体架构 10

5.1.1．模块功能介绍 10

5.1.2．前台页面运行结果 10

5.2 网站导航设计 11

5.3 宾馆简介管理模块设计 12

5.4 客房服务管理模块设计 14

5.5 在线订房管理模块设计 15

5.6 意见反馈管理模块设计 20

5.7 公告栏模块设计 22

6. 后台主要功能模块详细设计 24

6.1 后台总体架构 24

6.1.1．模块功能介绍 24

6.1.2．后台页面运行结果 25

6.2 后台登录模块设计 26

6.3 管理首页/退出模块设计 29

6.4 网站管理模块设计 29

6.4.1．网站管理模块文件架构 29

6.4.2．更改初始信息模块设计 29

6.4.3．查看服务器信息管理模块设计 31

6.5 图片管理模块设计 34

7．总结与展望 41

8.参考文献 42

附录A 数据表 44

附录B 文件架构图 125

[10] ... >>

网上客房预订系统

1. 课程设计概述

根据学院统一安排，计算机科学与技术专业05级学生从5月初开始，持续两个星期在计算机技术实验室进行了商业网站课程设计，本人根据学院安排的集中实习的机会进行网上客房预订系统的设计和文档的撰写，熟悉并能熟练使用Dreamweaver 8，加强了对ASP等开发平台的了解，对数据库的知识也能较好地运用。

随着因特网技术的飞速发展，电子商务越来越趋于成熟并渗透到商业团体的各个领域。网上客房预订在技术上已经相当成熟，而且实用性非常强，市场潜力巨大。网上客房预订是网上交易一个特殊的方式之一，已经是全球经济发展不可逆转的趋势。随着网上客房预订的日益普及，政策法规的不断完善，技术水平的不断提高，网上客房预订必将成为商业交易的主要手段之一。

1.1 课程设计的目的

在计算机网络，数据库和先进的开发平台上，利用现有的软件，配置一定的硬件，开发一个具有开放体系结构的、易扩充的、易维护的、具有良好人机交互界面的客房预定系统，实现酒店的客房管理的自动化的计算机系统，为企业的决策层提供准确、精细、迅速的客房信息，使客人能够更好更快地了解酒店的信息。

1.2 设计要求

■酒店管理内部从业人员中存在不少人对计算机比较陌生，对使用计算机来管理有一定的畏惧心理。这就要求面向酒店的计算机管理系统应尽可能得在功能设计上和使用手法上模拟现实情况，让用户使用时感觉熟悉、踏实、容易接受，否则会导致强烈的抵触情绪。

■酒店管理系统要对客房资源、顾客信息、结算信息进行管理，存储酒店客房的所有静态和动态信息，能够实现酒店管理的自动化，并利用酒店管理信息系统及时了解各个环节中信息的变更，有利于提高管理效率，否则无法满足酒店方便、快捷的需求，这对软件使用和运行效率、稳定性都提出了更高的要求。

2. 系统分析

2.1 需求分析

通过对宾馆、酒店业经营管理的调查研究，要求系统具有以下功能：



全面展示宾馆的服务功能及环境。



介绍宾馆自身、宾馆的地理位置、会展中心、餐饮美食、商务中心以及其他相关内容等信息。



存储客人的反馈留言信息。



全面展示宾馆的客房服务功能。



客人可通过网站直接在网上进行客房的预订。



提供宾馆所在地旅游景点的详细信息。



提供管理后台入口。



对网站初始化信息进行设置，提供查看服务器信息功能。



管理网站上传的图片信息。



管理所有网站信息展示内容。



对旅游景点的详细信息进行管理。



全面管理客人订房信息。



管理客人反馈留言信息。



管理客房服务信息。



系统运行稳定，具有强大的数据处理功能。

2.2 可行性分析



经济性

网站前台展示了整个宾馆的服务内容、宾馆的设施、硬件条件及一系列的相关信息，满足了全面展示宾馆自身形象的要求。设置“在线订房”功能模块，提供在线订房功能，满足客户通过网络预订房间的要求。通过网络对宾馆日常业务进行管理，大大的提高了房间的利用率，提高了宾馆的经营效率，使宾馆的经济效益最大化。



技术性

网站后台实现了对前台信息的管理功能。通过信息管理模块、图片管理模块，实现了不断更新宾馆各方面信息的要求。通过订单管理模块对客人的房间预订信息进行管理，更科学的按排宾馆自身的房间自然资源。管理客人的留言信息，及时和客人进行沟通。

3. 总体设计

3.1 项目规划

网上客房预订系统是一个典型的数据库开发应用程序，由前台展示区和后台管理组成，规划系统功能模块如下：



前台展示区

前台展示区的主要功能是宾馆简介、地理位置、客房服务、会展中心、餐饮美食、商务服务、在线订房、意见反馈、其他、本地景点。



后台功能管理

后台功能管理的主要功能是初始化网站的基础信息、管理前台图片信息、宾馆相关的信息管理、景点管理、宾馆房间类型管理、订单管理、反馈信息管理和系统信息管理。

3.2 系统功能结构图

网上客房预订系统功能结构图，前台功能模块图如图1所示。若图片无法显示请联系QQ,网上客房预订系统免费,转发请注明源于myeducs

[10] ... >>

网上客房预订系统

系统设计

4.1 设计目标

本系统是针对宾馆订房业务、和宾馆的服务介绍进行设计的，主要实现如下目标：



全面的展示了宾馆自然情况和服务内容。



介绍宾馆信息，帮助客人了解宾馆相关信息。



为客户提供宾馆所在地旅游景点的详细信息。



向客户全面提供宾馆客房信息。



实现了网上在线订房业务，方便客人订房。



实现了留言板功能，客人可随时通过网站填写反馈信息。



通过后台管理网站初始化信息。



实现了后台对前台信息、上传图片的管理功能。



管理前台景点信息。



通过后台管理宾馆客房信息。



通过后台管理人员可以管理客人订房信息。



管理人员可随时管理客人的反馈信息。



系统运行稳定、安全可靠。

4.2 开发及运行环境

硬件平台：



CPU：P41.8GHz。



内存：256MB以上。

软件平台：



操作系统：Windows XP/ Windows 2000。



数据库：Access 2000。



浏览器：IE5.0，推荐使用

Web服务器：IIS5.0。



分辨率：最佳效果IE6.0。

1024×768像素。

4.3 编码设计

编码设计是数据库系统开发的前提条件，是系统不可缺少的重要内容。编码是指与原来名称对应的编号、符号或记号。它是进行信息交换、处理、传输

和实现信息资源共享的关键。编码也用于指定数据的处理方法、区别数据类型，并指定计算机处理的内容等。

本系统内部信息编码采用了统一的编码方式情况。如下所示：



订单编号

订单单据编号为系统当前日期和5位数字编码的组合。例如：2。

4.4 逻辑结构设计

本系统数据库采用SQLServer2000数据库，系统数据库名称为etwldbs。数据库etwldbs中包含7张表。由于篇幅所限，关于数据库中的数据表请参见附录B

5. 前台主要功能模块详细设计5.1 前台文件总体架构

5.1.1．模块功能介绍

前台页面主要包括以下功能模块：



网站导航：主要包括网站的旗帜广告条、主功能导航两部分。



宾馆简介模块：主要用于介绍宾馆地理位置、室内设施、宾馆大小等相关信息。



地理位置模块：主要用于介绍宾馆详细的地理位置以及乘车路线。



客房服务模块：主要用于介绍房价、房间类型、房间内部设施。



会展中心模块：主要用于介绍宾馆的整体楼层布局以及各楼层的相关功能。



餐饮美食模块：主要用于介绍宾馆的特色美食。



商务中心模块：主要用于介绍商务服务的具体内容。



在线订房模块：主要用于提供在线客房预订。



意见反馈模块：主要用于分页显示意见反馈信息。



公告栏：主要用于展示最新添加的本地景点。



其它模块：主要用于介绍宾馆的其他相关商务服务功能。



管理入口模块：主要包括登录后台管理入口。

5.1.2．前台页面运行结果

网站前台首页的运行结果如图4所示。

图4 前台页面运行结果

为了方便读者阅读本章内容，将前台页面的各部分说明以列表形式给出，如表1所示。

表1 前台首页解析

区域

1

名称

网站导航

说明

主要用于显示网站的标题及为用户提

供前台功能导航

2

公告栏

点

3

口

4

展示区 用于展示相关功能的运行结果

后台登录入管理员可以通过该入口登录后台

主要用于展示最新添加的本地景

对应文件

5.2 网站导航设计

导航是网站设计不可缺少的基础元素之一，它不仅是信息结构的基础分类，也是浏览者的网站路标。在此网站导航主要包括旗帜广告条、功能分类导航2部分。设计完成的网站导航页面的设计效果如图5所示

[10] ... >>

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码)

图5 网站导航页面设计效果

■功能分类导航条

用户可以通过功能分类导航条查看相应类别的信息，功能分类导航条主要通过传递参数来实现超链接。关键程序代码如下：

宾馆简介 ''通过传递参数Typeid实现超链接功能

地理位置

会展中心

餐饮美食

商务中心

其他

5.3 宾馆简介管理模块设计

宾馆简介管理模块的主要功能是介绍宾馆地理位置、室内设施、宾馆大小等相关详细信息介绍。宾馆简介页面的设计效果如图6所示。

图6 宾馆简介页面设计效果

宾馆简介页面，主要是根据传递的参数（本例为Typeid为参数名进行传递）查找相应的记录并显示。查询宾馆简介信息的程序代码如下：

<%

if request("Typeid")="" then ''判断接收的Typeid是否为空值

Typeid=1 ''设置默认值

else

Typeid=request("Typeid") ''将接收到的Typeid值赋值给Typeid

end if

set rs=Object("set")

sql="select * from news where Typeid="&Typeid&" order by Dateandtime desc" ''通过时间进行降序排列

sql,conn,1,1

%>

宾馆简介 ''传递参数Typeid

地理位置

会展中心

餐饮美食

商务中心

其他

通过以下代码判断记录集是否为空，也就是判断是否有符合条件的记录，如没有符合条件的记录系统将给予提示。相关程序代码如下：

<% If not Then %>

<%= rs("content") %>

<% Else %>

暂无信息

<% End If %>

通过以下代码显示宾馆简介内容：

<%= rs("content") %>

5.4 客房服务管理模块设计

客房服务管理模块的主要功能是介绍房价、房间类型、房间内部设施等，页面设计效果如图7所示。

若图片无法显示请联系QQ,网上客房预订系统免费,转发请注明源于myeducs 图7 客房服务管理页面设计效果

客房服务管理页面主要用于显示客房的相关信息，程序代码如下：

<%

set rs=Object("set")''获取客房信息

sql="select * from fangjian "

sql,conn,1,1

function HTMLcode(fString)

if not isnull(fString) then

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "

")

fString = Replace(fString, CHR(10), "
")

fString = Replace(fString, CHR(32), " ")

HTMLcode = fString

end if

end function

%>

<%

If not Then

tol=count

for i=1 to tol

%>

<%

xt ''向下移动记录指针

if then exit for ''判断当前记录指针是否到达记录尾

next

else

("暂无信息")

end if

%>

5.5 在线订房管理模块设计

在线订房管理主要用于在线预订客房，在进行在线订房时，所填写的登记信息必须真实有效，否则不能预期正确地进行客房预订。在线订房管理模块的页面设计效果如图8所示。

[10] ... >>

网上客房预订系统

图8 在线订房管理页面设计效果

在线订房管理页面中要求输入的信息必须是真实有效的，系统将对输入的Email地址进行判断、同时还要判断到达时间与离开时间是否过期，代码如下：

<%

if month(date())<10 then ''如果当前月份小于10则在当前月份前面加0

mon=0&month(date())

else

mon=month(date()) ''获取当前系统月份

end if

if day(date())<10 then ''如果当前日期小于10则在当前日期前面加0

da=0&day(date())

else

da=day(date()) ''获取当前系统日期

end if

set rs2=Object("set")

sql2="select * from dd where time=''"&date()&"''"

sql2,conn,1,3

if not then

t=year(date)*1000000000+month(date())*10000000+day(date())*100000+count+1

else

t=year(date)*1000000000+month(date())*10000000+day(date())*100000+1

end if

if request("post")<>"" then ''判断是否接收表单值

call writ

end if

function writ

Email=request("email")

if request("name")="" or request("danwei")="" or request("sex")="" or

request("email")="" or request("num")="" or request("guoji")=""

or request("tel")="" or request("zhengjian")="" or request("shenfen")="" then

("") ''判断输入的Email格式是否正确

elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) =

"@" Then

""

else

mm=request("year")&"-"&request("month")&"-"&request("day") ''获得到达时间

nn=request("year1")&"-"&request("month1")&"-"&request("day1") ''获得离开时间

if datediff("d",mm,date())>0 then ''判断达到日期和当前日期是否冲突

("")

end if

if datediff("d",mm,nn)<0 then

("")

end if

set rs=Object("set")

sql="select * from dd"

sql,conn,1,3

''通过addnew()方法添加在线订房详细信息

rs("name")=request("name") ''添加在线订房人姓名

rs("sex")=request("sex")

rs("age")=request("age")

rs("shenfen")=request("shenfen")

rs("zhengjian")=request("zhengjian")

rs("guoji")=request("guoji")

rs("danwei")=request("danwei")

rs("dtime")=mm

rs("ltime")=nn

rs("num")=request("num")

rs("email")=request("email")

rs("tel")=request("tel")

rs("room")=request("room")

rs("beizhu")=request("beizhu")

rs("bianhao")=request("t")

rs("time")=date() ''添加获取当前的日期和时间

("")

end if

end function

%>

在线订房管理页面的运行结果如图9所示。

[10] ... >>

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码)

图9 在线订房管理页面运行结果

5.6 意见反馈管理模块设计

意见反馈管理模块主要包括留言的发布、留言与回复留言浏览2部分。单击“我要留言”超链接，可以进入意见反馈管理页面。

意见反馈管理页面所涉及到的相关程序代码如下：

<%

if request("post")<>"" then ''判断是否接收到表单值

call writ

end if

function writ

Email=request("email") ''接收输入的email地址

if request("name")="" or request("email")="" or request("ICQ")="" or

request("liuyan")="" then

("")

elseIf Instr(Email, "@") = 0 Or Right(Email, 1) = "@" Or Left(Email, 1) =

"@" Then

""

else

set rs=Object("set")

sql="select * from guestbook"

sql,conn,1,3

rs("name")=request("name") ''获取添加人姓名

rs("laizi")=request("laizi")

rs("email")=request("email") ''获取添加人的email地址

rs("OICQ")=request("OICQ")

rs("ICQ")=request("ICQ")

rs("homepage")=request("homepage")

rs("liuyan")=request("liuyan")

rs("time")=now() ''获取当前系统日期和时间

("")

end if

end function

%>

5.7 公告栏模块设计

公告栏是用来发布网站最新公告信息的，目的是让浏览者了解网站的最新动态。公告栏信息分为首页滚动显示和具体信息展示两部分。

5.7.1．首页滚动显示

公告栏滚动显示功能模块位于前台主页的左侧，它可以将网站最新的公告信息展示给用户。公告栏滚动设计效果如图10所示。图10 公告栏滚动显示功能页面设计效果

实现滚动显示主要是应用HTML中的Marquee标识符实现的。程序代码如下：

onMouseOver="()

" onMouseOut="()" height=180>

<%

set rs3=Object("set")

sql3="select * from news by Dateandtime desc" ''取出景点的相关信息

sql3,conn,1,1

if not then

do while not

%>

☆ '','''','' ''单击标题进入详细信息页面 scrollbars=yes,width=565,height=500'')"><%=rs3("title")%>

<%

xt

loop

else

("

暂无信息

")

end if

%>

公告栏滚动显示功能页面运行结果如图11所示

[10] ... >>

网上客房预订系统

图11 公告栏滚动显示功能页面运行结果

5.7.2．具体信息展示

滚动显示所有信息标题，这些信息是系统按照发布的时间降序排列的。当用户需要查看其详细信息时，单击其标题就可以进入详细信息页面。展示详细内容页面所涉及到的程序代码如下：

<%

set rs=Object("set")

sql="select * from news where NewsId="&request("id") ''显示具体信息详细页

sql,conn,1,1 ''打开记录集

%>

<%= rs("content")%>''通过以下语句进行内容的输出

6. 后台主要功能模块详细设计6.1 后台总体架构

6.1.1．模块功能介绍

后台页面主要包括以下功能模块：



管理首页/退出模块：主要用于退出后台管理系统。



网站管理模块：主要包括更改初始信息、查看服务器信息。



图片管理模块：主要包括空间图片管理。



信息管理模块：主要包括宾馆简介管理、地理位置管理、会展中心管理、餐饮美食管理、商务中心管理、其他管理。



景点管理模块：主要包括旅游景点管理。



房间管理模块：主要包括房间类型、客房服务管理。



订单管理模块：主要包括订单管理、已确认订单、回复管理。



反馈管理模块：主要包括反馈信息管理。



系统信息管理模块：主要用于管理本网站的版权、技术支持。

6.1.2．后台页面运行结果

网站后台页面的运行结果如图12所示。若图片无法显示请联系QQ,网上客房预订系统免费,转发请注明源于myeducs

2

1

图12 网站后台页面运行结果

为了方便读者阅读此章节内容，将后台页面的各部分说明以列表形式给出，如表2所示。

表2 后台页面解析

区域

称

1

后台管理导航

主要用于选择各种后台管理操作

admin/

admin/user/

admin/system/admin_

admin/

后台功能管2

理区 操作

主要用于进行各种后台管理admin/News/

admin/product/

admin/

admin/dg/

admin/dg/

admin/dg/

admin/

名说明 对应文件

admin/guest/

admin/

6.2 后台登录模块设计

管理员通过后台登录入口，进入后台登录模块。后台登录模块主要用于验证管理员的身份及验证码，设计效果如图13所示。

[10] ... >>

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码)

图13 后台登录模块设计效果

后台登录页面所涉及的HTML表单主要元素如表3所示。

表3 后台登录页面中涉及的HTML表单元素

名称 类型 含义 重要属性

method="post"

form1 form

表单

action="inc/?action=login"

verifycode2

Submit image

hidden

域

图像区域

value="提交" src=" ://myeducs

/Article/baogao/201003/images/12_"

隐藏value="<%=session("verifycode")%>"

后台登录页面所涉及到的程序代码如下：

<%

dim verifycode,verifycode2

verifycode=trim(("verifycode")) ''接收验证码

verifycode2=trim(("verifycode2"))

if verifycode<>verifycode2 then ''判断输入的验证码与随机产生的验证码是否一致

""

else

session("verifycode")="" ''清空验证码

''判断是否接收表单值

admin_name=request("admin_name") ''接收用户名

admin_pass=request("admin_pass") ''接收用户密码

set rs=object("set")

sql="select * from admin where admin_name=''"&admin_name&"'' and

admin_pass=''"&admin_pass&"''"

sql,conn,1,3

if then

对不起，您输入的用户名、密码或验证码有误，请重新输入，谢谢！

本软件建议您使用IE6.0以上版本，分辨率：1024*768

否则一切后果与本软件无关，特此声明！在此返回"

else

session("admin_name")=request("admin_name") ''创建session("admin_name")阶段变量

ct "../" ''跳转到指定的页面

end if

''关闭已打开的记录集

set rs=nothing

set conn=nothing ''将不用的对象释放掉

end if

end if

%>

6.3 管理首页/退出模块设计

管理首页/退出模块主要用于退出后台管理系统，并将Session变量清空，代码如下：

<%

session("admin_name")="" ''将Session变量清空

ct "../"

%>

6.4 网站管理模块设计

6.4.1．网站管理模块文件架构

网站管理模块主要包括更改初始信息、查看服务器信息2部分。

6.4.2．更改初始信息模块设计

更改初始信息模块主要用于修改用户名、密码、公司名称。更改初始信息模块的设计效果如图14所示。

图14 更改初始信息模块设计效果

更改初始信息页面所涉及到的程序代码如下

[10] ... >>

网上客房预订系统(ASP+Access+系统功能结构图+文件架构图+源代码)

<%

set rs=object("set")

if request("action")="change" then

sql="select top 1 * from admin"

sql,conn,3,3

rs("admin_name")=request("admin_name") ''修改用户名

rs("admin_pass")=request("admin_pass") ''修改用户密码

"您的更改已成功"

elseif request("action")="change2" then ''判断是否接收到表单值

sql="select top 1 * from admin"

sql,conn,3,3

rs("mingcheng")=request("mingcheng")

"您的更改已成功"

else

%>

.........

<% end if%>

sql="select top 1 * from admin" ''显示第一条记录

sql,conn,3,3

更改初始信息页面的运行结果如图15所示。

图15 更改初始信息页面运行结果

6.4.3．查看服务器信息管理模块设计

查看服务器信息管理模块可以查看不同服务的相关信息，如服务器的IP地址、显示站点路径、服务器的CPU数量等。查看服务器信息管理页面的设计效果如图16所示。

图16 查看服务器信息管理页面设计效果

查看服务器信息管理模块所涉及到的程序代码如下：

显示客户发出的所有 标题

<%=Variables("All_ ")%>

检取ISAPIDLL的metabase路径

<%=Variables("APPL_MD_PATH")%>

显示站点物理路径

width="70%"><%=Variables("APPL_PHYSICAL_PATH")%>

路径信息

<%=Variables("PATH_INFO")%>

显示请求机器IP地址

<%=Variables("REMOTE_ADDR")%>

服务器IP地址

<%=Variables("LOCAL_ADDR")%>

显示执行SCRIPT的虚拟路径

<%=Variables("SCRIPT_NAME")%>

返回服务器的主机名，DNS别名，或IP地址

<%=Variables("SERVER_NAME")%>

返回服务器处理请求的端口

<%=Variables("SERVER_PORT")%>

协议的名称和版本

width="70%"><%=Variables("SERVER_PROTOCOL")%>

服务器的名称和版本

width="70%"><%=Variables("SERVER_SOFTWARE")%>

服务器操作系统

<%=Variables("OS")%>

[10] ... >>

网上客房预订系统

脚本超时时间

<%=Timeout%>秒

服务器CPU数量

width="70%"><%=Variables("NUMBER_OF_PROCESSORS")%>个

服务器解译引擎

<%=ScriptEngine & "/"& ScriptEngineMajorVersion

&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>

6.5 图片管理模块设计

图片管理模块的主要功能包括图片大小、类型、修改时间、删除、文件预览5部分，图片管理页面的设计效果如图17所示。

图17 图片管理页面设计效果

图片管理页面中获取上传图片的相关信息所涉及到的程序代码如下：

<%

Const PageCount=7 ''定义常量

if request("page")<>"" then ''判断是否接收到表单值

requestpage=cint(request("page")) ''返回表达式值为整数

else

requestpage=1

end if

MaxPage=PageCount

UploadPath = "eWebEditor/UploadFile" ''图片存放的文件夹地址

strFileName=""

TruePath=h(UploadPath)''转换为实际路径

If not objstr("stemObject") Then

"你的服务器不支持

FSO(stemObject)!

不能使用本功能"

Else

set fso=CreateObject("stemObject")''创建fso对象

if request("Action")="Del" then ''如果Action不为空，进入删除模块

call DelFile()

end if

if Exists(TruePath)then ''检查路径是否存在

FileCount=0

TotleSize=0

Set theFolder=der(TruePath) ''读取文件

For Each theFile In

FileCount=FileCount+1''利用循环得出总的文件数

TotleSize=TotleSize+ ''利用循环得出文件的总体大小

next

totalPut=FileCount ''获取总文件数

''分页显示

if requestpage<1 then ''在当前页码为小于1的值时，使其值等于1

requestpage=1

end if

if (requestpage-1)*MaxPage>totalput then

if (totalPut mod MaxPage)=0 then

requestpage= totalPut MaxPage

else

requestpage= totalPut MaxPage + 1

end if

end if

if requestpage=1 then''在当前页码等于1时，调用显示模块

showContent

showpage2 strFileName,totalput,MaxPage

else''在当前页码不等于1时，调用相应显示模块

[10] ... >>

网上客房预订系统

if (requestpage-1)*MaxPage

showContent

showpage2 strFileName,totalput,MaxPage

else

requestpage=1

showContent

showpage2 strFileName,totalput,MaxPage

end if

end if

else

"找不到文件夹！可能是配置有误！"

end if

end if

sub showContent()

%>

通过以下代码实现分页跳转功能、通过复选框删除选中的文件的相关程序代码如下所示：

<%

dim c

FileCount=0

TotleSize=0

end sub ''显示页码的过程

sub showpage2(sfilename,totalnumber,MaxPage)

dim n, i,strpage

if totalnumber mod MaxPage=0 then

n= totalnumber MaxPage

else

n= totalnumber MaxPage+1

end if

strpage= "

& sfilename & "''>

strpage

end sub

sub DelFile() ''删除文件过程

dim selectfile,splitFileName,i

selectfile=trim(Request("FileName")) ''获取选中文件集合

if selectfile="" then exit sub ''如果文件为空跳出过程

if instr(selectfile,",")>0 then

splitFileName=split(selectfile,",")

for i=0 to ubound(splitFileName)

if left(trim(splitFileName(i)),3)<>"../" and

left(trim(splitFileName(i)),1)<>"/" then

selectfile=h(UploadPath & "/" &

trim(splitFileName(i)))

set thisfile=e(selectfile)

True

end if

next

else ''只选中一个文件时，利用循环逐个删除文件

end if

end if

("")

end sub

%>

图片管理页面的运行结果如图18所示。

<< [11] [12]