毕业设计（论文）企业物流平台设计

四川农业大学本科生毕业论文四川农业大学本科生毕业论文 企业物流平台 学 院 继续教育学院 专 业 计算机科学与技术 班 级 计科 1 班 学 号 姓 名 指导教师 教师职称 2009 年 05 月 15 日 摘要摘要 【摘要】 据调查：75-85%的上网用户通过搜索引擎和商业网站寻找新客户。可见，搜索引擎的登录和商业网站的发布已经成为企业网站盈利的手段。 互联网正在融入我们的生活， 并影响和改变着我们的生活。 网络提供给我们的不只是一个获取信息的来源， 而且还是一个可以相互交流的空间， 企业物流平台正是一个供客户与企业进行交流的网上虚拟空间。 及时与客户进行沟通和交流，对于企业来说是相当重要的。 【关键词】 企业物流平台、物流服务、运单查询 目录目录 摘要 . 1 0 引言 . 3 1 系统分析 . 3 1.1 需求分析 . 3 1.2 可行性分析 . 3 2 总体设计 . 4 2.1 项目规划 . 4 2.2 系统功能结构图 . 4 3 系统设计 . 5 3.1 设计目标 . 5 3.2 开发及运行环境 . 5 3.4 编码设计 . 6 3.5 逻辑结构设计 . 6 4 前台主要功能模块详细设计 . 7 4.1 前台文件总体架构 . 7 4.2 运单查询模块设计 . 9 4.3 物流服务模块设计 . 14 4. 4 新闻动态模块设计 . 14 5 后台登录入口设计 . 17 6 后台主要功能模块详细设计 . 17 6.1 后台总体架构 . 17 6.2 后台登录模块设计 . 19 6.3 初始化信息管理模块设计 . 21 6.4 公司简介管理模块设计 . 22 6.5 运单管理模块设计 . 23 6.6 新闻管理模块设计 . 30 6.7 分公司管理模块设计 . 31 6.8 退出后台管理模块 . 36 附录 A 参考文献 . 37 附录 B 数据表 . 39 附录 C 文件架构图 . 42 0 引言引言 经济全球化及现代物流业发展的系统化、信息化、仓储运输的现代化和综合化等趋势，对我国物流业的发展提出了全方位的挑战。面对跨国企业不断渗透中国物流市场的严峻形势，我国物流业走高科技之路势在必行。我国国民经济连续多年高速增长，为我国现代物流发展创造了良好的条件。目前，我国各类物流企业有 14 万家左右，中小型企业占大多数。在如此强烈竞争的环境下，要想取得一席之地，各企业在目前良好服务的基础之上，需提高企业的运营效率和自身管理水平。 人工管理早已不再适应企业发展的要求， 利用计算机网络对企业运营流程进行全方位的管理迫在眉睫。 通过计算机网络对企业进行管理， 不仅为企业的运营过程节省了大量的时间， 提高了企业的效率， 还为企业在客户群中树立了一个全新的形象，为企业日后发展奠定一个良好的基础。 1 系统分析系统分析 1.1 需求分析需求分析 通过调查，要求系统需要有以下功能； 通过网络，全面展示企业的形象。 全面介绍企业的服务项目。 发布企业的招聘信息、企业新闻等。 分公司及时填写分公司货物运营情况，并对分公司用户密码进行维护。 为客户提供在线查询运单信息及物品托运情况的功能。 通过后台对企业一系列新闻信息 （公司简介、 新闻信息、 服务项目信息） 进行管理。 通过后台，企业对客户运单信息进行全面管理。 通过后台，企业对分公司、分公司管理员信息进行管理。 管理企业的招聘信息。 由于操作人员的计算机知识普遍较差，要求网站有良好的操作界面。 当外界环境 （停电、 网络病毒） 干扰本系统时， 系统可以自动保护原始数据的安全。 系统退出。 1.2 可行性分析可行性分析 企业物流管理平台使物流企业走上了科学化、网络化管理道路。 经济性 全面展示企业的经营管理模式，为企业带来更多的客户资源，提高企业的经济效益。通过计算机网络对运单进行管理，方便客户对货物托运情况进行查询，及时和客户进行沟通， 满足客户的需求。 技术性 在管理过程中， 满足了企业全程跟踪物品的托运情况的要求 （分公司及时添加货物的运输情况） ，使企业能够根据实际情况，对企业运营过程中的各项准备工作，作出及时准确的调整。 2 总体设计总体设计 2.1 项目规划项目规划 企业物流平台是一个典型的数据库开发应用程序， 由客户前台浏览和企业后台管理两大部分组成。 前台功能模块 前台主要包括公司简介、物流服务、信息查询、新闻动态、招聘信息、联系我们、分公司登录入口，后台登录入口。 后台管理模块 后台主要包括后台登录模块、 初始化信息模块、 公司简介管理模块、 仓储服务管理模块、运输服务管理模块、 配送服务管理模块、 运单管理模块、 新闻管理模块、 招聘信息管理模块，分公司管理模块、联系我们、退出后台。 2.2 系统功能结构图系统功能结构图 本网站的前台系统功能结构如图 1 所示。 图 1 前台系统功能结构图 物流管理系统前台 公司简介 物流服务 运单查询 新闻动态 招聘信息 联系我们 首页 行业新闻 物流服务 里程查询 运单查询 公司简介 仓储服务 营运服务 配送服务 运单查询 分公司登录 公司新闻 行业新闻 招聘信息 联系我们 公司简介 本网站的后台系统功能结构如图 2 所示。 图 2 后台系统功能结构图 3 系统设计系统设计 3.1 设计目标设计目标 本系统是针对中小型物流企业的运营管理过程进行设计的，主要实现如下目标： 向客户全面展示公司各项业务。 客户在线对运单情况进行查询。 向客户介绍公司新闻。 为分公司提供货物运单信息添加功能。 为分公司提供密码修改功能。 实现企业发布招聘信息的功能。 为管理员提供后台登录入口。 管理员通过后台，对运单信息进行全面管理。 对企业招聘信息进行管理。 对公司各项业务信息进行管理。 对公司新闻信息进行管理。 对分公司信息、管理员信息进行管理。 系统最大限度地实现了易安装性、易维护性和易操作性。 系统运行稳定、安全可靠。 3.2 开发及运行环境开发及运行环境 硬件平台： CPU：P41.8GHz。 内存：256MB 以上。 软件平台： 操作系统：Windows XP/ Windows 2000。 数据库：Access 2000。 浏览器：IE5.0，推荐使用 IE6.0。 Web 服务器：IIS5.0。 分辨率：最佳效果 1024768 像素。 物流公司后台管理 初始化信息 公司简介管理 仓储服务 运输服务 配送服务 运单管理 新闻管理 招聘信息 分公司管理 联系我们 3.4 编码设计编码设计 编码设计是数据库系统开发的前提条件， 是系统不可缺少的重要内容。 编码是指与原来名称对应的编号、 符号或记号。 它是进行信息交换、 处理、 传输和实现信息资源共享的关键。编码也用于指定数据的处理方法、区别数据类型，并指定计算机处理的内容等。 本系统内部信息编码采用了统一的编码方式情况。如下所示： 运单单据编号为系统当前日期和 5 位数字编码的组合。例如，2006010300001。 3.5 逻辑结构设计逻辑结构设计 本系统数据库采用 Access 数据库，系统数据库名称为 db。数据库 db 中包含 7 张表。下面分别给出数据表概要说明、数据表关系概要说明及主要数据表的结构。 1数据表概要说明数据表概要说明 从设计角度出发， 对本系统后台的数据库中数据表有一个更清晰的认识， 我设计了一个数据表树型结构图（如表 1 所示） ，该数据表树型结构图包含系统所有数据表。 表 1 数据表树型结构图 2主要数据表的结构主要数据表的结构 由于篇幅所限，关于数据库中的数据表请参见附录 B 4 前台主要功能模块前台主要功能模块详细设计详细设计 4.1 前台文件总体架构前台文件总体架构 1模块功能介绍模块功能介绍 前台页面主要包括以下功能模块： 网站导航：主要包括网站的旗帜广告条、主功能导航两部分。 里程查询模块：主要功能是用于计算两个城市之间里程。 运单查询模块：主要功能是通过运单 ID 号进行运单详细信息的查询。 客服电话模块：主要用于展示客服电话号码。 公司新闻模块：主要用于展示公司最新信息。 行业新闻模块：主要用于展示最新的行业信息。 后台登录入口：为用户进入后台提供一个入口。 3前台页面运行结果前台页面运行结果 网站前台首页的运行结果如图4所示。 图表 1 图 4 前台首页运行结果 为了方便阅读本实例将前台页面的各部分说明以列表形式给出，如表 2 所示。 表 2 前台首页解析 区域 名称 说明 对应文件 A 网站导航 主要用于显示网站的标题及为用户提供前台功能导航 index.asp B 里程查询 主要用于计算两个城市之间里程的功能 index.asp C 运单查询 主要通过运单 ID 号进行运单详细信息的查询 index.asp D 客服电话 主要用于展示客服电话号码 index.asp E 公司新闻 主要用于展示公司最新信息 index.asp F 行业新闻 主要用于展示最新的行业信息 index.asp G 后台登录入口 为用户进入后台提供一个入口 index.asp H 返回首页 方便用户快速返回首页 Index.asp 4网站导航设计网站导航设计 导航是网站设计不可缺少的基础元素之一， 它不仅是信息结构的基础分类， 也是浏览者的网站路标。网站导航有很多种，如带图标的文字导航、按钮导航、Flash 导航等。在此笔者设计了 Flash 导航，网站导航设计效果页面如图 5 所示。 图 5 网站导航页面设计效果 公司简介连接 jianjie.asp 物流服务连接 fuwu.asp 新闻动态连接 newa.asp 招聘信息连接 zhaopin.asp 联系我们连接 lianxi.asp 管理入口连接 admin/index.asp 图 6 网站导航的运行结果 4.2 运单查询模块设计运单查询模块设计 运单查询模块主要包括运单查询、分公司登录两个部分。 1运单查询页面运单查询页面 首先进入运单查询页面，输入正确的运单编号，单击【提交】按钮，即可以在页面中显示查询所对应运单编号的详细信息。该页面的设计效果如图 7 所示。 图 7 运单查询页面设计效果 运单查询页面所涉及到的程序代码如下： % 获取运单编号 if request(nid)then 判断是否接收到表单值 nid=request(nid) 将变量赋值 else nid= 清空变量值 end if Set Rs = Server.CreateObject(ADODB.Recordset) 获取记录集，查询符合条件的相关信息 Sql = Select * From yundan where nid=&nid& Rs.Open Sql,conn,1,1 % 2登录分公司管理页面登录分公司管理页面 分公司管理页面的主要功能是，查看运单的所有详细信息、修改用户密码、签收运单 3部分,该页面的设计效果如图 8 所示。 图 8 分公司管理页面的设计效果 登录分公司管理页面所涉及到的程序代码如下： % if request(action)=login then 判断是否接收到表单值 username=request(username) 接收用户名 userpwd=request(userpwd) 接收用户密码 username=trim (request(username) 通过trim函数去掉字符的左右两端空格 password=trim(request(userpwd) for i=1 to len(username) 通过len函数计算用户名的长度 user=mid(username,i,1) if user= or user=% or user= or user=& or user=| then response.write & alert(您的用户名含有非法字符,请重新输入！); & history.back() & response.end end if next for i=1 to len(password) pass=mid(password,i,1) if pass= or pass=% or pass= or upass=& or pass=| then response.write & alert(您的密码含有非法字符,请重新输入！ ); & history.back() & response.end end if next% % set rs=server.createobject(adodb.recordset) sql=select * from fuser where username=&username& and userpwd=&userpwd& rs.open sql,conn,1,3 if rs.eof then 判断输入的用户名和密码是否正确 response.write 对不起，您输入的用户名或者密码有误！返回 else session(username)=request(username) 创建session变量 session(loc)=1 设置默认值 response.Redirect(chaxunguan.asp) end if rs.close set rs=nothing conn.close set conn=nothing end if % 登录分公司管理页面的运行结果如图 9 所示。 图 9 登录分公司管理页面的运行结果 3运单签收管理页面运单签收管理页面 这里所说的签收是指运单的签收过程，首先由分公司的人负责签收货物，当货物到达目的地时再进行签收。 运单签收管理页面的设计效果如图 10 所示。 图 10 运单签收管理页面的设计效果 运单签收管理页面涉及到的 HTML 重要表单元素如表 3 所示。 表 3 运单签收管理页面涉及到的 HTML 重要表单元素 名称 类型 含义 重要属性 form1 form 表单 method=post action=qssave.asp uanze select 签收类型 id=xuanze onChange=MM_jumpMenu(parent,this,0) fgzhuangtai select 派送状态 id=fgzhuangtai fgqs text 签收人 class=kuang id=fgqs value= fgtime text 签收时间 class=kuang id=fgtime value= post hidden 隐藏域 id=post value= form2 form 表单 method=post action=qssave2.asp xuanze select 签收类型 id=xuanze onChange=MM_jumpMenu(parent,this,0) qs text 签收人 class=kuang id=qs value= qstime text 签收时间 class=kuang id=qstime value= Submit3 submit 【提交】按钮 value=提交 Submit22 reset 【重置】按钮 value=重置 post2 hidden 隐藏域 id=post2 value= 运单签收时， 必须写清签收人以及签收时间。 此功能主要是为证明该运单已成功达到分公司。判断运单是否到达分公司时所涉及到的相关程序代码如下： % if session(username)= then 判断用户名是否为空 response.Write(您还没有登录，请登录) response.end end if if request(fgzhuangtai)=到达 then if request(fgqs) and request(fgtime) then 判断签收人、签收时间是否为空 set rs=server.CreateObject(adodb.recordset) sql=select * from yundan where id=&request(post) rs.open sql,conn,1,3 rs(fgzhuangtai)=request(fgzhuangtai) rs(fgqs)=request(fgqs) 接收签收人 rs(fgtime)=request(fgtime) 接收签收时间 rs.update response.Write(签收成功,关闭) else response.Write(alert(请把信息填写完整);location=javascript:history.go(-1) end if else response.Write(alert(未选择到达，不能提交签单);location=javascript:history.go(-1) end if % 运单是否到达目的地页面所涉及到的程序代码如下： % if request(zhuangtai)=到达 then if request(qs) and request(qstime) then 判断是否到达目的地，并获取签收人、签收时间 set rs=server.CreateObject(adodb.recordset) sql=select * from yundan where id=&request(post) rs.open sql,conn,1,3 rs(zhuangtai)=request(zhuangtai) rs(qs)=request(qs) 接收签收人 rs(qstime)=request(qstime) 接收签收时间 rs.update response.Write(签收成功,关闭) else response.Write(alert(请把信息填写完整);location=javascript:history.go(-1) end if else response.Write(alert(未选择到达，不能提交签单);location=javascript:history.go(-1) end if % 运单签收管理页面的运行结果如图 11 所示。 图 11 运单签收管理页面运行结果 在进入分公司管理模块时，在修改用户密码时，用户名是不可以修改的。系统登录时对输入的用户名和密码进行了非法字符的检索。相关程序代码如下： % if user= or user=% or user= or user=& or user=| then 判断用户名是否含有非法字符 response.write & alert(您的用户名含有非法字符,请重新输入！); & history.back() & response.end end if next for i=1 to len(password) pass=mid(password,i,1) if pass= or pass=% or pass= or upass=& or pass=| then 判断密码是否含有非法字符 response.write & alert(您的密码含有非法字符,请重新输入！); & history.back() & response.end end if % 4.3 物流服务模块设计物流服务模块设计 物流服务模块主要包括仓储服务、货运服务、配送服务 3 个部分。 仓储服务、贷运服务、配送服务 3 部分主要用于介绍服务项目和服务条款。所涉及的相关程序代码如下： % function HTMLcode(fString) if not isnull(fString) then fString = Replace(fString, CHR(13), ) 应用Replace函数返回指定数目的某字符串被替换为另一个字符串 fString = Replace(fString, CHR(10) & CHR(10), ) fString = Replace(fString, CHR(10), ) fString = Replace(fString, CHR(32),  ) HTMLcode = fString end if end function if request(newsname)= then 判断是否接收到新闻名称 newsname=仓储服务 设置默认值 else newsname=request(newsname) 将接收到的值赋值给指定变量 end if set rs=server.CreateObject(adodb.recordset) sql=Select * from news where title=&newsname& 查询相关新闻标题 rs.open sql,conn,1,1% %应用get方法进行传值 % 4. 4 新闻动态模块设计新闻动态模块设计 新闻动态模块主要包括公司新闻、行业新闻两个部分。 新闻动态模块主要包括公司新闻、 行业新闻两部分， 用于展示公司最新信息和最新的行业信息。新闻动态页面的设计效果如图 12 所示。 图 12 新闻动态页面设计效果 新闻动态模块的程序代码如下： maxpage then 在接收页码的值大于最大页码时，使其等于最大页码 requestpage=maxpage end if if not requestpage=1 then 向上或向下移动相应的记录 rs.move (requestpage-1)*rs.pagesize end if for i=1 to rs.pagesize and not rs.eof 利用循环输出数据 % a href=javascript: onClick= window.open(open.asp?id=,scrollbars=yes,width=300,height=300) 1新闻的分类显示新闻的分类显示 在新闻动态页面中，新闻分为公司新闻、行业新闻两类，并对新闻进行分类显示。新闻分类显示页面的设计效果如图 13 所示。 图 13 新闻分类显示页面的设计效果 新闻主要分为公司新闻、行业新闻两类。在同一页面中分别将其同时显示出来。新闻分类显示页面所涉及到的相关程序代码如下： 新闻分类显示页面的运行结果如图 14 所示。 图 14 新闻分类显示页面的运行结果 点击相应的新闻标题， 进入相关新闻的详细信息页面。 实现此功能的相关程序代码如下： %用于打开一个指定的窗口，该窗口有水平滚动条和垂直滚动条 a href=javascript: onClick= &_ window.open(open.asp?id=,scrollbars=yes, width=400,height=350) % 执行以上两处代码，将得到以下运行结果如图 15 所示。 图 15 新闻详细页面 5 后台登录入口设计后台登录入口设计 由于网站后台是用于维护整个网站系统， 所以对于网站后台登录入口一般要设计得隐蔽些。本站的后台登录入口设置在网页的最底部，当用户单击“后台入口”超链接时，将弹出确认进入后台管理页面的程序窗口，要求用户输入正确的用户名、密码、验证码，三者缺一不可。后台登录入口的设计效果如图 16 所示。 图 16 后台登录入口页面的设计效果 6 后台主后台主要功能模块详细设计要功能模块详细设计 6.1 后台总体架构后台总体架构 1模块功能介绍模块功能介绍 后台页面主要包括以下功能模块： 后台登录模块：主要用于管理员登录网站后台。 初始化信息模块：主要包括管理员信息修改、系统名称修改两部分。 公司简介管理模块：主要用于公司简介内容的修改。 仓储服务管理模块：主要用于仓储服务内容的修改。 运输服务管理模块：主要用于运输服务内容的修改。 配送服务管理模块：主要用于配送服务内容的修改。 运单管理模块：主要包括运单查询、运单添加、运单修改、运单删除 4 部分。 新闻管理模块：主要包括新闻查询、新闻添加、新闻修改、新闻删除 4 部分。 招聘信息管理模块：主要用于招聘信息内容的修改。 分公司管理模块：主要包括分公司添加、分公司删除、分公司修改，分公司管理员添加，分公司管理员修改（用户名不能修改） ，分公司管理员删除，对分公司管理员进行分 类查看 7 部分。 退出后台管模块：退出后台管理程序。 3后台页面运行结果后台页面运行结果 网站后台页面的运行结果如图 17 所示。 图 17 后台页面运行结果 为了方便读者阅读本书内容、 有效利用本书附赠光盘的实例， 将后台页面的各部分说明以列表形式给出，如表 4 所示。 表 4 后台首页解析 区域 名称 说明 对应文件 1 后台管理导航 主要用于选择各种后台管理操作 admin/top.asp 2 后台功能管理区 主要用于进行各种后台管理操作 admin/adminconn.asp admin/adminconn/jianjie.asp 1 2 admin/adminconn/jianjie.asp admin/adminconn/jianjie.asp admin/adminconn/jianjie.asp admin/adminconn/xinxi.asp admin/adminconn/news.asp admin/adminconn/zhaopinadd.asp admin/adminconn/fgongsi.asp admin/adminconn/jianjie.asp admin/quit.asp 6.2 后台登录模块设计后台登录模块设计 管理员通过后台登录入口进入后台登录模块， 后台登录模块主要用于验证管理员的身份和密码。后台登录模块的设计效果如图 18 所示。 图 18 后台登录模块的设计效果 后台登录页面所涉及的 HTML 表单元素如表 5 所示。 表 5 所示 后台登录页面中涉及的 HTML 表单元素 名称 类型 含义 重要属性 form1 form 表单 method=post action=check.asp?action=login verifycode text 验证码 onFocus=this.select(); onouseOver=this.style.background=#E1F4EE; onMouseOut=this.style.background=#FFFFFFsize=6 maxlength=4 verifycode2 hidden 隐藏域 value= Submit image 图像区域 value=提交 src=images/h_07.gif 后台登录页面的完整代码如下： % dim verifycode,verifycode2 verifycode=trim(Request.Form(verifycode) verifycode2=trim(Request.Form(verifycode2) if verifycodeverifycode2 then 输入的验证码与随机产生的验证码是否一致 response.writealert(您输入的验证码不正确。); response.writelocation.href=index.asp founderr=true else session(verifycode)= 清空随机验证码 % % if request(action)=login then 判断是否接收到值 admin_name=request(admin_name) 接收用户名 admin_pass=request(admin_pass) username=trim(replace(request(admin_name),) 应用trim替换用户名左右两边的空格 password=trim(replace(request(admin_name),) for i=1 to len(username) 通过len函数计算用户名的长度 user=mid(username,i,1) 判断输入的用户名中是否含有非法字符 if user= or user=% or user= or user=& or user=| then response.write & alert(您的用户名含有非法字符,请重新输入！); & history.back() & response.end end if next for i=1 to len(password) 通过len函数求出用户密码的长度 pass=mid(password,i,1) if pass= or pass=% or pass= or upass=& or pass=| then response.write & alert(您的密码含有非法字符,请重新输入！); & history.back() & response.end end if next % %set rs=server.createobject(adodb.recordset) sql=select * from admin where admin_name=&admin_name&and admin_pwd=&admin_pass& rs.open sql,conn,1,3 if rs.eof then 判断用户是否存在 response.write 对不起，您输入的用户名、密码或验证码有误，请重新输入，谢谢！本软件建议您使用IE6.0以上版本，分辨率：1024*768返回 else session(admin_name)=request(admin_name) 应用session创建阶段变量 response.Redirect(admin.asp) 跳转到指定页面 end if rs.close set rs=nothing conn.close set conn=nothing end if end if % 后台登录模块的运行结果如图 19 所示。 图 19 后台登录模块的运行结果 6.3 初始化信息管理模块设计初始化信息管理模块设计 初始化信息管理模块主要包括管理员信息修改、系统名称修改两部分。 初始化信息管理模块所涉及到的程序代码如下： % if request(action)=chang1 then 判断是否接收到表单的值 call pwd end if if request(action)=chang2 then call tit end if function pwd if request(admin_pwd)request(admin_pwd2) then 判断输入密码与确认密码是否一致 response.Write(alert(两次输入密码不一致);location=javascript:history.go(-1) else set rs=server.CreateObject(adodb.recordset) sql=select * from admin where id=1 rs.open sql,conn,1,3 rs(admin_name)=request(admin_name) 接收要修改的用户名 rs(admin_pwd)=request(admin_pwd) 接收要修改的用户密码 rs.update rs.close response.Write(alert(修改成功);location=./adminconn.asp) end if end function function tit set rs1=server.CreateObject(adodb.recordset) sql1=select * from admin where id=1 指定当前第一条记录 rs1.open sql1,conn,1,3 rs1(title)=request(title) 接收要修改系统名称的标题 rs1.update rs1.close response.Write(alert(修改成功);location=./adminconn.asp) end function % 初始化信息管理模块运行结果如图 20 所示。 图 20 初始化信息管理模块运行结果图 6.4 公司简介管理模块设计公司简介管理模块设计 公司简介管理模块主要包括公司简介内容修改。 公司简介管理模块的页面设计效果如图21 所示。 图 21 公司简介管理模块的页面设计效果图 通过以下程序代码进行 ID 值的传递，程序代码如下： 公司简介管理 仓储服务 运输服务 配送服务 联系我们 公司简介管理模块所涉及到的相关程序代码如下： % if request(id) then 获取id值 set rs=server.CreateObject(adodb.recordset) sql=select * from news where id=&request(id) rs.open sql,conn,1,1 if request(post) then 判断是否接收到表单值 call ed 表单提交进入处理模块 end if function ed set rs1=server.CreateObject(adodb.recordset) sql1=select * from news where id=&request(id) rs1.open sql1,conn,1,3 rs1(content)=request(content) 接收要修改的内容 rs1.update rs1.close response.Write(alert(修改成功) end function % 6.5 运单管理模块设计运单管理模块设计 运单管理模块主要包括运单查询、运单添加、运单修改、运单删除 4 部分。 运单管理页面的设计效果如图 22 所示。 图 22 运单管理页面的设计效果图 1运单查询运单查询 运单查询是指当用户/管理员输入正确的运单编号后，单击【查找】按钮，可以查询到运单详细信息。运单查询页面设计结果如图 23 所示。 图 23 运单查询页面设计结果 运单查询页面中所涉及到的 HTML 表单元素如表 6 所示。 表 6 运单查询页面中所涉及到的 HTML 表单元素 名称 类型 含义 重要属性 form1 form 表单 method=post bianhao text 输入要查找的运单编号 id=bianhao Submit Submit 【查找】按钮 value=查找 pp hidden 隐藏域 id=pp value=tt 运单查询页面所涉及到的相关程序代码如下： % if request(del) then sql1=delete from yundan where id=&request(del) 删除指定的运单 conn.execute(sql1) 执行sql1语句 end if if request(pp) then 判断是否接收到表单的值 set rs=server.CreateObject(adodb.recordset) sql=select * from yundan where nid=&request(bianhao)& rs.open sql,conn,1,1 else set rs=server.CreateObject(adodb.recordset) sql=select * from yundan order by time desc 应用DESC进行排序 rs.open sql,conn,1,1 End If % 在运单查询页面中对显示的所有运单信息进行分页显示， 并对当前的页码进行统计。 所涉及到的相关程序代码如下： maxpage then requestpage=maxpage end if if requestpage1 then rs.move (requestpage-1)*rs.pagesize end if for i=1 to rs.pagesize and not rs.eof % a href=xinxi.asp?del=&p= onClick=return confirm(你确定删除吗？)删除 运单查询页面运行结果如图 24 所示。 图 24 运单查询页面运行结果 2运单添加运单添加 运单添加主要用于管理员追加新运单信息。 运单添加页面主要由两部分组成， 即用于收集运单信息的前台表单部分和用于对数据库进行操作的后台处理部分。 运单添加页面的设计效果如图 25 所示。 图 25 运单添加页面的设计效果 运单添加页面中所涉及的 HTML 表单元素如表 7 所示。 表 7 运单添加页面中所涉及到的 HTML 表单元素 名称 类型 含义 重要属性 form1 form 表单 method=post start text 寄件地 class=kuang id=start mudidi text 目的地 class=kuang id=mudidi ctime text 寄件时间 class=kuang id=ctime fg select 指派分公司 暂无公司 option value= beizhu textarea 备注 cols=30 rows=5 class=kuang id=beizhu Submit submit 【提交】按钮 value=提交 Submit2 reset 【重置】按钮 value=重置 Submit3 reset 【返回】按钮 value=返回 onClick=location=xinxi.asp post hidden 隐藏域 id=post value=true 添加运单信息时所涉及到的相关程序代码如下： % set rs2=server.CreateObject(adodb.recordset) 检索当前日期是否有运单 sql2=select * from yundan where time like &date()& rs2.open sql2,conn,1,1 if not rs2.eof then t=year(date)*1000000000+month(date()*10000000+day(date()*100000+rs2.recordcount+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 if request(start) and request(mudidi) and request(ctime) and request(beizhu) then 判断表单中不允许为空的信息 set rs=server.CreateObject(adodb.recordset) sql=select * from yundan rs.open sql,conn,1,3 rs.addnew 此模块主要用于添加运单详细信息 rs(nid)=t rs(start)=request(start) rs(mudidi)=request(mudidi) rs(ctime)=request(ctime) rs(fg)=request(fg) rs(fgzhuangtai)=途中 rs(zhuangtai)=途中 rs(beizhu)=request(beizhu) 接收备注信息 rs(time)=date() 获取当前系统日期和时间 rs.update rs.close response.Write(alert(提交成功);location=yundanadd.asp) else response.Write(alert(请把信息填写完整);location=javascript:history.go(-1) end if end function % 3运单修改运单修改 运单修改主要用于管理员修改运单信息。 运单信息修改页面也是由两部分组成， 即用于收集运单信息的前台表单部分和用于对数据库进行操作的后台处理部分。 运单修改页面的设计效果如图 26 所示。 图 26 运单修改页面设计效果 运单修改页面中所涉及的 HTML 表单元素如表 8 所示。 表 8 运单修改页面中所涉及到的 HTML 表单元素 名称 类型 含义 重要属性 form1 for表单 method=post m start text 寄件地 class=kuang id=start value= mudidi text 目的地 class=kuang id=mudidi value= ctime text 寄件时间 class=kuang id=ctime value= fg select 指派分公司 暂无公司optionvalue= beizhu textarea 备注 cols=30rows=5class=kuang id=beizhu Submit submit 【提交】按钮 value=提交 Submit2 reset 【重置】按钮 value=重置 Submit3 reset 【返回】按钮 onClick=location=xinxi.asp post hidden 隐藏域 id=post value=true 运单修改页面所涉及到的相关程序代码如下： % set rs1=server.CreateObject(adodb.recordset) sql1=select * from yundan where id =&request(id) rs1.open sql1,conn,1,1 if request(post) then call writ end if function writ if request(start) and request(mudidi) and request(ctime)and request(beizhu) then set rs=server.CreateObject(adodb.recordset) sql=select * from yundan where id=&request(id) 接收id值， 并进行查询相关记录信息 rs.open sql,conn,1,3 rs(start)=request(start) rs(mudidi)=request(mudidi) rs(ctime)=request(ctime) rs(fg)=request(fg) rs(beizhu)=request(beizhu) rs.update rs.close response.Write(alert(提交成功) else response.Write(alert(请把信息填写完整);location=javascript:history.go(-1) end if end function % 运单修改时显示选中下拉列表的内容，实现此功能所涉及到的程序代码如下： 根据记录集rs中的lei字段的内容，显示下拉列表框的默认选项 option value=公司新闻 selected公司新闻 option value=行业新闻 selected行业新闻 运单修改页面的运行结果如图 27 所示。 图 27 运单修改页面的运行结果 4运单删除运单删除 运单删除主要用于管理员删除运单信息。运单删除时，将给予提示框，提示是否确定删除此运单，单击【确定】按钮，将删除已选定的运单。运单删除页面所涉及到的程序代码如下： a href=xinxi.asp?del=&p= onClick=return confirm(你确定删除吗？)删除 运单管理模块的运行结果如图 28 所示。 图 28 运单管理模块的运行结果 6.6 新闻管理模块设计新闻管理模块设计 新闻管理模块主要包括新闻查询、新闻添加、新闻修改、新闻删除 4 部分， 新闻管理页面的设计效果如图 29 所示。 图 29 新闻管理页面的设计效果 新闻查询主要采用模糊查询，新闻查询页面中所涉及到的程序代码如下： % if request(del) then 判断表单是否接收到值 sql1=delete from new where id=&request(del) 删除指定的新闻记录信息 conn.execute(sql1) end if if request(pp) then set rs=server.CreateObject(adodb.recordset) sql=select * from new where title like %&request(bianhao)&% 通过标题模糊查询新闻信息 rs.open sql,conn,1,1 else set rs=server.CreateObject(adodb.recordset) sql=select * from new rs.open sql,conn,1,1 End If % 新闻查询模块主要通过新闻标题进行模糊查询，新闻查询页面运行结果如图 30 所示。 图 30 新闻查询页面运行结果 6.7 分公司管理模块设计分公司管理模块设计 分公司管理模块主要包括分公司添加、 分公司修改、 分公司删除、 分公司管理员的添加、分公司管理员的修改、分公司管理员的删除、分公司管理员的显示 7 部分。 分公司管理页面设计效果如图 31 所示。 图 31 分公司管理页面设计效果 分公司管理页面中所涉及到的 HTML 重要表单元素如表 9 所示。 表 9 分公司管理页面中所涉及到的 HTML 重要表单元素 名称 类型 含义 重要属性 form1 form 表单 action=fsave.asp method=post id=form1 select select 分公司名称 请添加分公司 option value= Submit image 删除分公司 value=删除 src=./images/shanchu.gif onClick=form1.options.value=del Submit2 image 修改分公司 value=修改 src=./images/genggai.gif onClick=form1.options.value=gname Submit3 image 添加分公司 value=添加 src=./images/tianjia.gif onClick=form1.options.value=tname gongsi select 分公司名称 暂无公司option value= Submit32 image 添加用户 value=添加 src=./images/tianjia.gif onClick=form1.options.value=user menu1 select 分类查看 onChange=MM_jumpMenu(self,this,0) 请 添 加 分 公 司 % else response.Write( 显示全部分公司) %option value= fgongsi.asp? fenlei= selected option value=fgongsi.asp? fenlei= 分公司管理模块主要包括分公司管理模块、 分公司管理员模块 2 个大部分。 其中分公司管理模块包括分公司添加、分公司修改、分公司删除；分公司管理员模块包括分公司管理员添加、分公司管理员删除、分公司管理员修改、分公司管理员显示。分公司管理模块、分司管理员模块所涉及到的程序代码如下： % select case request.form(options) case tname if request(tname)= then response.Write(alert(请把信息填写完整);location=javascript:history.go(-1) else set rs=server.CreateObject(adodb.recordset) sql=select * from fgongsi rs.open sql,conn,1,3 rs.addnew rs(fengongsi)=request.form(tname) rs.update rs.close response.Write(alert(添加成功！);location=fgongsi