毕业论文-锦阳旅游网的设计与实现_第1页
毕业论文-锦阳旅游网的设计与实现_第2页
毕业论文-锦阳旅游网的设计与实现_第3页
毕业论文-锦阳旅游网的设计与实现_第4页
毕业论文-锦阳旅游网的设计与实现_第5页
已阅读5页,还剩35页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

PAGE2(书名)偶数页毕业论文——《锦阳旅游网的设计与实现》绍兴职业技术学院-PAGE37-摘要随着旅游行业的迅猛发展,各家旅游行业之间的竞争日益激烈,旅游公司所需的信息量越来越大,业务操作中涉及的各种线路情况、客户情况以及旅游协作部门的情况越来越复杂多变。而除了一些个别地区已采用了的旅游网站,一般通常是以原始的手工方式处理交流信息。但是工作人员若仅靠手工方式处理大量资料,很可能带来出错率的增长以及大量资源的浪费和闲置等问题。因此,只有加强对旅游信息资源的整合、统一管理,才能使旅游部门运行更加合理、高效地运转。本文是根据旅游行业的这种现状,提出解决问题的一个可行性方法:采用现代化统一的计算机网络系统,实现了旅游管理的网络化,各类信息有序地进行存储,同时采用了权限认证的方式,只有经过了系统权限认证之后,方可进入系统控制界面,进行信息管理,信息查询,在线预定,回复评论等功能的使用。实现了各种业务系统的数据集成和信息集成,对旅行社各类信息、资源进行协同集中管理。利用ASP技术建立动态网站,实现旅游信息快速发布及查看游客的评论和网上预定。关键词:ASP旅游信息化ABSTRACTWiththerapiddevelopmentoftourismindustry,thetourismindustrybetweentheincreasinglyfiercecompetition,theamountofinformationrequiredfortravelcompanyismoreandmorebig,theoperationofallsortsofline,customersandtheDepartmentoftourismhasbecomemoreandmorecomplex.Butexceptforsomespecificareahasusedthetouristsite,thegeneralisusuallyexchangeinformationintheoriginalmanualway.Butifastaffofonlybymanualprocessingoflargeamountsofdata,islikelytohaveagrowthrateandthewasteofresourcesandidlequestions.Therefore,onlystrengthentheunifiedmanagementoftheintegrationoftourisminformationresources,thetourismsector,tomakeoperationmorerational,efficientoperation.Thispaperisbasedonthepresentsituationoftourismindustry,andputsforwardafeasiblemethodtosolvetheproblem:usingmodernunifiedcomputernetworksystem,realizedthetourismmanagementnetwork,allkindsofinformationstoredinanorderlymanner,whileusingtheauthenticationmode,onlyafterthesystemauthentication,canenterthesystemcontrolinterface,informationmanagement,informationinquiry,onlinebooking,usethecommentfunction.Avarietyofbusinesssystemstoachievedataintegrationandinformationintegration,collaborativecentralizedmanagementoftravelagency,allkindsofinformationresources.TheestablishmentofdynamicwebsitebasedonASPtechnology,realizethequickreleaseandviewthetouristinformationandonlinebooking.Keywords:ASPTravelinformation目录第1章 绪论 11.1 编写目的 11.2 开发背景 1第2章 开发工具介绍 22.1 开发工具DREAMWAVER介绍 22.2 ASP的介绍 22.3 ACCESS的介绍 2第3章 网站需求分析 33.1 网站需求 33.2 用例分析 33.2.1 用例图说明 33.2.2 用例图组成 33.2.3 用例图作用 33.2.4 用例需求分析 43.3 功能需求 43.3.1 功能模块划分 43.3.2 网站流程分析网站整体框架图 63.3.3 网站流程设计 63.4 数据流程分析 73.5 数据字典 93.6 性能需求 103.7 故障处理 11第4章 网站数据库分析 124.1 逻辑结构分析 124.2 物理结构分析 14第5章 网站界面设计与实现 205.1 前台页面设计 205.1.1 首页页面 205.1.2 机票页面 215.1.3 酒店页面 215.1.4 景点页面 225.1.5 租车页面 235.2 后台页面设计 245.2.1 后台登陆页面 245.2.2 后台主页面 265.2.3 添加文章页面 275.2.4 添加机票页面 31第6章 安装部署 346.1 安装环境要求 346.2 系统使用说明 34第7章 结束语 35谢辞 36参考文献 37绪论编写目的目前有许多中小型的旅游公司仍依靠原始的人工方式来对旅游信息进行管理,大部分旅行社也无自己的旅游网站,无法在现在这个网络时代发布自己公司的特色及旅游信息。随着业务的不断扩展,旅行社业务操作中涉及的各种收费情况、客户情况以及旅游线路情况越来越复杂,业务操作人员若仅靠手工方式处理处理大量资料,则遗漏信息的现象更容易发生,同时也可能带来出错率的增长以及大量资源的浪费和闲置等问题。因此,只有加强对旅游部门信息资源的整合、统一管理,才能使行业更加合理、高效地运转。借助互联网,能够解决传统消费不能解决的适应客户行、吃、住、游、玩一体化的需求;利用互联网可以将这些环节连成统一的整体,进而可以大大提高服务的水平和业务的来源。因此,我们开发了锦阳旅游网,为了给人们提供更方便更快捷的旅游方式,方便人们能够及时了解更新更快更多的信息。开发背景21世纪是信息化、网络化的时代。网络不仅开阔了人们的视野,也方便了人的生活。在网站和网络技术飞速发展、网络普及的今天,人们早已经习惯了从网上查询新闻,查看自己感兴趣的话题。随着人们日益丰富的物质生活,人们在精神生活方面的要求也逐渐提高,旅游成为了人们生活的一部分,借助互联网,能够解决传统消费不能解决的适应客户行、吃、住、游、玩一体化的需求;利用互联网可以将这些环节连成统一的整体,进而可以大大提高服务的水平和业务的来源。因此,我们开发了锦阳旅游网,为了给人们提供更方便更快捷的旅游方式,方便人们能够及时了解更新更快更多的信息。开发工具介绍开发工具DREAMWAVER介绍Dreamweaver是美国MACROMEDIA公司开发的集网页制作和管理网站于一身的所见即所得网页编辑器,它是第一套针对专业网页设计师特别发展的视觉化网页开发工具,利用它可以轻而易举地制作出跨越平台限制和跨越浏览器限制的充满动感的网页。ASP的介绍ASP是ActiveServerPage的缩写,意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单、方便的编程工具。ASP的网页文件的格式是ASP,现在常用于各种动态网站中。ASP是一种服务器端脚本编写环境,可以用来创建和运行动态网页或Web应用程序。ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。利用ASP可以向网页中添加交互式内容(如在线表单),也可以创建使用HTML网页作为用户界面的Web应用程序。与HTML相比,ASP网页具有以下特点:(1)利用ASP可以实现突破静态网页的一些功能限制,实现动态网页技术;(2)ASP文件是包含在HTML代码所组成的文件中的,易于修改和测试。ACCESS的介绍Access是微软公司推出的基于Windows的桌面关系数据库管理系统(RDBMS),是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象;提供了多种向导、生成器、模板,把数据存储、数据查询、界面设计、报表生成等操作规范化;为建立功能完善的数据库管理系统提供了方便,也使得普通用户不必编写代码,就可以完成大部分数据管理的任务。Access是一种关系型数据库管理系统,其主要特点是存储方式单一、面向对象、界面友好、易操作、集成环境、处理多种数据库信息。Access支持ODBC(开发数据库互连,OpenDataBaseConnectivity),利用Access强大的DDE(动态数据交换)。网站需求分析网站需求需求分析的目的是清楚的理解所要解决的问题,完整的获取用户需求。因为分为前台操作和后台管理,需求分析从二方面进行,分别是用户需求分析和管理员需求分析。1.用户需求分析:用户可以浏览景点、酒店、旅行信息,同时可以查询景点、酒店的信息,评论,查询路线等功能。网站有一定数量旅游景点相关信息可供处理。方便游客了解景区各种相关信息,同时有利于景区管理部门的管理,加强双边的沟通与协作,以提高和改善管理水平,使游客通过对网站的浏览可以对景点有比较真实和丰富的了解,对景点本身做一个比较好的宣传和推广。3.管理员需求分析:管理员将各种烦琐的管理工作通过网站来管理,用最少的人力和物力提高管理水平,方便发布各种旅游信息,处理游客所遇到的各种问题,及时了解游客对旅游管理部门的意见,通过数据分析可以了解游客的基本情况和不同时期游客的变化情况,提前做出必要的准备工作。使前台的用户操作方便简单,突出旅游特点,具有美观的界面设计,保证网站安全稳定的运行。用例分析通过进入主页及下级网页,可以实现对旅游资源和旅游服务设施的查询、旅游服务项目的预定、旅游服务企业的选择等功能,管理员方便地对数据和信息进行更新和网上发布。锦阳旅游网的功能是针对旅游者(用户)而设计的。用例图说明用例图(UseCaseDiagram)在UML中是非常独特的图形元素,它描述人们希望如何使用一个系统.用例图告诉我们谁将是相关的用户,他们希望系统提供什么样的服务,以及他们需要为系统提供的服务。用例图组成参与者(Actor):也称为角色,它代表系统的用户。系统边界(Systemscope):它确定系统的范围。用例(Usecase):它代表系统提供的服务。关联(Association):它表示角色与用例间的关系。用例图作用角色(Actor)在UML中通常以一个直立人图符来表示。角色是用例图的一个重要组成部分,它代表参与系统交互的用户、设备、或另一系统。角色的作用是建立系统的外部用户模型,对系统边界之外的对象进行描述。用例(Usecase)用来描述角色可以感受到的系统服务或功能。UML中通常以一个椭圆图符来表示用例。用例通常由某个角色来驱动执行。用例把执行的结果反馈给角色。用例在功能上具有完整性,即它从角色接受输入,产生的结果输出给角色。角色与用例的关联:角色与用例的关联表示角色与用例相关性。在UML中是使用一条实线连接角色与用例。用例需求分析用户与管理员之间的关系如图3.1所示:管理员可以进行文章管理、机票管理、酒店/旅馆管理、景点管理、租车管理、数据库管理。用户可以对资讯、机票信息、酒店、家庭旅馆、度假产品、景点、租车信息等进行查看。图3.1用例分析图功能需求功能模块划分锦阳旅游网分为前台用户操作和后台管理员管理。前台主要是针对用户的浏览和操作。有首页、资讯、机票、酒店、家庭旅馆、度假产品、景点、租车等模块。具体的网站前台功能模块划分,如图3.2所示:网站前台网站前台首页资讯机票酒店家庭旅馆度假产品景点后台图3.2前台功能模块划分图后台管理主要是针对前台信息的控制和管理。管理员登录系统后可以对整个系统进行管理,包括文章管理、酒店/旅馆管理、机票管理、景点管理、租车管理、评论管理、管理员管理等。文章管理:管理员可以添加、修改、删除前台页面的专题、栏目。还可以添加、修改、删除指定专题、栏目的文章信息。酒店/旅馆管理:管理员可以对酒店信息进行删除、修改和添加,也可以对酒店/旅馆的评论和订单进行一系列的操作。机票管理:管理员可以对不同飞机路线的机票种类进行删除、修改和添加,也可以对机票的评论和订单进行一系列的操作。景点管理:管理员可以对景点信息进行删除、修改和添加,也可以对景点的评论进行操作。租车管理:管理员可以对租车信息进行删除、修改和添加。评论管理:管理员可以审核评论信息,回复评论,也可以对评论进行删除、修改和添加。管理员管理:超级管理员可以添加网站管理员或设置其他管理员的权限。也可以对全部后台管理员进行密码的修改。具体的网站后台功能模块划分如图3.3所示:网站后台网站后台当前服务器信息发送邮件文章管理酒店/旅馆管理机票管理景点管理租车管理友情链接设置留言板管理管理员管理数据库管理图3.3后台功能模块划分图网站流程分析网站整体框架图此整体框架图让浏览者对该系统一目了然,更是有所了解。如图3.4所示:图3.4网站整体框架图网站流程设计一个好的旅游网站,可以让客户快速的了解里面的内容,本着快速,方便的原则,锦阳旅游网的流程设计。如图3.5所示:锦阳旅游网站锦阳旅游网站前台登录管理员输入管理员操作文章,机票,旅游产品,酒店或旅店,景点,租车愿君留之浏览留言图3.5网站业务流程图数据流程分析锦阳旅游网顶层流程图如图3.6所示:前台前台后台锦阳旅游网站浏览网站留言或订单修改前台页面信息图3.6顶层流程图锦阳旅游网0层流程图如图3.7所示:管理员管理员文章管理酒店管理旅馆管理机票管理景点管理租车管理留言板管理数据库管理管理员管理酒店信息旅馆信息机票票信景点信息租车信息留言信息数据库信息图3.7网站0层流程图用户对网站进行了解、并知道付款方式及联系管理员的方式,如图3.8所示:网站信息网站信息付款方式诚聘英才联系方式用户浏览用户浏览用户浏览图3.8网站1层图用户对锦阳旅游网的信息浏览,并进行了解网站、预订酒店和机票,如图3.9所示:景点管理景点管理旅游信息管理租车管理机票管理度假产品旅游景点酒店/旅馆管理旅游住宿旅游机票用户浏览旅游租车图3.9网站1层图用户对文章及其它评论的操作流程如图3.10所示:网站评论管理网站评论管理游客评论管理回复评论管理查看评论管理查看评论回复评论游客评论图3.10网站1层图数据字典说明:数据字典是数据流中内容的具体体现,如果没有数据字典光有数据流说明,需求分析是不完整的。至于具体内容,可以是手工文档或手工凭单,也可以是计算及文档。一般而言,应包括如下内容:数据字典名,说明,编号,输入的数据流,输出的数据流,组成(数据结构)。数据量,存取频度,存取方式。本网站的数据字典见表3.1-3.6所示。表3.1旅游景点名称旅游景点标识3.1接口说明输入无输出旅游景点的详细介绍功能说明旅游景点介绍表3.2在线评论名称在线评论标识3.2接口说明输入用户的评论输出用户的评论及管理员的回复功能说明管理用户的评论和评论的回复表3.3联系方式名称联系方式标识3.3接口说明输入无输出本公司的联系方式功能说明表3.4付款方式名称付款方式标识3.4接口说明输入无输出本公司的付款方式功能说明表3.5网站管理名称网站管理标识3.5接口说明输入管理员的管理,前台页面的各个配置等输出网页前台的基本信息功能说明网站信息的管理,维护等表3.6数据局管理名称数据库管理标识3.6接口说明输入备份数据库,查看系统控件占用输出备份的数据库文件功能说明备份数据库,查看系统控件占用性能需求1.程序在通常的应用环境下使用鼠标和键盘进行输入操作,对于执按钮,通常使用鼠标的点击完成。2.在网站上的内容加快更新速度,以求完善,以此来吸引顾客。故障处理1.在开发阶段可以随即修改数据库里的相应内容。在数据访问、增改时,用户输入一些不合理的数据的时候,能够进行一些合理的提示信息,不会因为输入错误而导致系统的错误,而导致者窗口关闭。2.数据库有备份机制,以防止数据的全部丢失。3.对编辑的程序进行重装载时,第一次装载认为错,修改;第二次运行,在需求调用时,有错误提示,重试。网站数据库分析逻辑结构分析1.模型中的实体相当于一个实体集、一个表。实体用矩形框表示,实体名称标注在矩形框内。用菱形表示实体间的联系,菱形框内定上联系名,用无向边把菱形分别与有关实体相连接,在无向边旁标上联系的类型。2.属性是实体的性质。用矩形表示,与实体之间用一条线相连,表示主码的关键属性。3.各子系统模块中主键相同的的字段之间丰在着相互联的关系。(1:1,1:N,N:M)结合上面的需求分析以后,就可以设计出能够满足需求的各种实体和它们的属性,以及它们之间的关系。再用实体(关系图),将内容表述出来,为后面的物理结构设计打下基础。文章E-R图是实现后台操作前台页面的文章信息,如下图4.1所示:文章文章文章标题作者是否置顶文章内容……..所属栏目文章编号所属专题图4.1文章数据表图酒店表是实现后台操作前台页面的酒店信息。如图4.2所示:酒店/旅馆酒店/旅馆联系人是否置顶简介是否审核……..预定价格所在区域详细地址图4.2酒店/旅馆数据表图景点表是实现后台操作前台页面的景点信息。如图4.3所示:景点景点区域详细地址联系人预定价格……..简介会员名名称图4.3景点数据表图管理员表是实现管理用户的基本信息。如图4.4所示:管理员管理员密码……..权限用户名图4.4管理员数据表图以上各局部E-R图集成E-R总图。如图4.5所示:图4.5数据表E-R总图物理结构分析数据库是软件开发的灵魂和基础,是整个系统成功的关键所在,是开发高品质应用的前提。Article表用于存储首页文章资讯和旅游特产的资料,具体表结构如表4.1所示:表4.1Article表字段名称数据类型说明ArticleID自动编号文章IDSpecialID数字所属专题IDTitle文本文章标题Author文本作者CopyForm文本转贴自Editor文本文章录入员Key文本关键字Hits数字点击数UpdateTime日期/时间更新时间Hot是/否是否为热点文章OnTop是/否是否为精华文章Passed是/否是否通过审核Content备注文章内容IncludePic是/否是否包含图片DefaultPicUrl文本首页图片地址UploadFiles备注上传文件的地址PaginationType数字文章内容分页方式ClassID数字所属栏目IDSkinID数字配色模板IDStars数字推荐等级TitleFontColor文本标题字体颜色MaxCharPerPage数字自动分页是的每页字符数Hotel表用于存储酒店的相关信息,具体表结构如表4.2所示:表4.2Hotel表字段名称数据类型说明HotelID自动编号酒店/旅馆IDHotelName文本名称Area文本区域Address文本详细地址Tel文本联系人Level文本星级Fax文本联系电话Webpage文本预订价格HotelIntro备注简介HotelPic文本图片Remark备注备注Eidtor文本录入员Keyword文本关键字UpdateTime日期/时间更新时间OnTop是/否是否置顶Elite是/否是否推荐Passed是/否是否通过审核Deleted是/否删除标记Hits数字点击数Stars数字星级Sight表用于存储景点的相关信息,具体表结构如表4.3所示:表4.3Sight表字段名称数据类型说明SightID自动编号景点IDSightName文本名称Area文本区域Address文本详细地址Tel文本联系人Fax文本联系方式OnePrice文本个人价格TeamPrice文本团队价格WebPage文本预订价格SightIntro备注简介SightPic文本图片Remark备注备注Editor文本录入员KeyWord文本关键字UpdateTime日期/时间更新时间OnTop是/否是否置顶Elite是/否是否推荐Passed是/否是否通过审核Deleted是/否删除标记Hits数字点击数Ticket表用于存储机票的相关信息,具体表结构如表4.4所示:表4.4Ticket表字段名称数据类型说明TicketID自动编号机票IDCity文本城市FightNum文本名称FlightCorp文本区域Startplace文本详细地址Destination文本联系人StartTime文本出发时间LandTime文本到达时间Schedule文本班期FlightType文本机型Rest是/否是否重置Return是/否Price文本价格CutPrice文本Remark备注备注Editor文本录入员KeyWord文本关键字UpdateTime日期/时间更新时间Elite是/否Ontop是/否是否置顶Padded是/否是否通过审核Deleted是/否删除标记Admin表用于存储管理员的相关信息,具体表结构如表4.5所示:表4.5Admin表字段名称数据类型说明ID自动编号IDUserName文本用户名Password文本用户密码Purview数字用户权限LastLoginIP文本最后登录IPLastLoginTime时期/时间最后登录时间LastLogoutTime时期/时间最后退出时间LoginTimes数字登录次数AdminPurview_Article数字是否可管理文章表AdminPurview_Hotel数字是否可管理酒店表AdminPurview_Ticket数字是否可管理机票表AdminPurview_Sight数字是否可管理景点表AdmingPurview_Others数字网站界面设计与实现前台页面设计首页页面首页是浏览者上网之后所看到网站的第一个内容,它是网站的门面。一个好的首页会给访问者留下很深刻的印象,并吸引他对站点内容的进一步浏览。本网站运用当前流行的网页设计技术为大家设计出清晰简单、美观大方的首页及内页风格,同时还做到信息充足、消息灵通的等优点。使网站在能够提供给访问者最需要的信息之外还能拥有赏心悦目的感觉。使整个网站最终拥有可观性和实用性的特点。首页如图5.1所示:图5.1网站首页机票页面机票页面主要提供给用户查看机票及顶购机票的功能。设计如图5.2所示:图5.2机票页面酒店页面酒店页面主要提供给用户查看酒店的功能。设计如图5.3所示:图5.3酒店页面景点页面景点页面主要提供给用户查看各个景点及个人价格或团队价格的功能。设计如图5.4所示:图5.4景点页面租车页面租车页面主要提供给用户查看各种车的样式和介绍及价格的功能。设计如图5.5所示:图5.5租车页面后台页面设计后台登陆页面进入后台管理前首先进入登录界面,当用户登录成功后,就可以对网站的相关信息、用户的相关资料等进行查看、添加、删除、修改等操作。如图所示5.6所示:图5.6登陆页面登陆页面主要代码如下:<%@language=vbscriptcodepage=936%><!--#includefile="inc/conn.asp"--><!--#includefile="inc/config.asp"--><!--#includefile="inc/md5.asp"--><%dimsql,rsdimusername,password,CheckCodeusername=replace(trim(request("username")),"'","")password=replace(trim(Request("password")),"'","")CheckCode=replace(trim(Request("CheckCode")),"'","")ifUserName=""then FoundErr=True ErrMsg=ErrMsg&"<br><li>用户名不能为空!</li>"endififPassword=""then FoundErr=True ErrMsg=ErrMsg&"<br><li>密码不能为空!</li>"endififFoundErr<>Truethen password=md5(password) setrs=server.createobject("adodb.recordset") sql="select*fromadminwherepassword='"&password&"'andusername='"&username&"'" rs.opensql,conn,1,3 ifrs.bofandrs.eofthen FoundErr=True ErrMsg=ErrMsg&"<br><li>用户名或密码错误!!!</li>" else ifpassword<>rs("password")then FoundErr=True ErrMsg=ErrMsg&"<br><li>用户名或密码错误!!!</li>" else rs("LastLoginIP")=Request.ServerVariables("REMOTE_ADDR") rs("LastLoginTime")=now() rs("LoginTimes")=rs("LoginTimes")+1 rs.update session.Timeout=SessionTimeout session("AdminName")=rs("username") rs.close setrs=nothing callCloseConn() Response.Redirect"Admin_Index.asp" endif endif rs.close setrs=nothingendififFoundErr=Truethen callWriteErrMsg()endifcallCloseConn()'****************************************************'过程名:WriteErrMsg'作用:显示错误提示信息'参数:无'****************************************************subWriteErrMsg() dimstrErr strErr=strErr&"<html><head><title>错误信息</title><metahttp-equiv='Content-Type'content='text/html;charset=gb2312'>"&vbcrlf strErr=strErr&"<linkhref='admin_style.css'rel='stylesheet'type='text/css'></head><body>"&vbcrlf strErr=strErr&"<tablecellpadding=2cellspacing=1border=0width=400class='border'align=center>"&vbcrlf strErr=strErr&"<tralign='center'><tdheight='22'class='title'><strong>错误信息</strong></td></tr>"&vbcrlf strErr=strErr&"<tr><tdheight='100'class='tdbg'valign='top'><b>产生错误的可能原因:</b><br>"&errmsg&"</td></tr>"&vbcrlf strErr=strErr&"<tralign='center'><tdclass='tdbg'><ahref='Admin_Loginjacky.asp'><<返回登录页面</a></td></tr>"&vbcrlf strErr=strErr&"</table>"&vbcrlf strErr=strErr&"</body></html>"&vbcrlf response.writestrErrendsub%>后台主页面进入网站后台后,就可以看到管理员管理的所有功能。如图5.7所示:图5.7后台主页面添加文章页面添加文章页面中可以对本网站要在前台显示的文章进行更新。如图5.8所示:图5.8添加文章页面添加文章页面主要代码如下:subSaveArticle() dimPurviewChecked ifClassID=""then founderr=true errmsg=errmsg&"<br><li>未指定文章所属栏目或者指定的栏目有下属子栏目</li>" else ClassID=CLng(ClassID) ifClassID<=0then FoundErr=True ErrMsg=ErrMsg&"<br><li>指定了非法的栏目(外部栏目或不存在的栏目)</li>" else settClass=conn.execute("selectClassName,Depth,ParentPath,Child,LinkUrl,ParentID,ClassInputerFromArticleClasswhereClassID="&ClassID) iftClass.bofandtClass.eofthen FoundErr=True ErrMsg=ErrMsg&"<br><li>找不到指定的栏目</li>" else ClassName=tClass(0) Depth=tClass(1) ParentPath=tClass(2) Child=tClass(3) ifChild>0then FoundErr=True ErrMsg=ErrMsg&"<br><li>指定的栏目有下属子栏目</li>" endif iftClass(4)<>""then FoundErr=True ErrMsg=ErrMsg&"<br><li>不能指定外部栏目</li>" endif ifAdminPurview=2andAdminPurview_Article=3then PurviewChecked=CheckClassMaster(tClass(6),AdminName) ifPurviewChecked=FalseandtClass(5)>0then settClass=conn.execute("selectClassInputerfromArticleClasswhereClassIDin("&ParentPath&")") dowhilenottClass.eof PurviewChecked=CheckClassMaster(tClass(0),AdminName) ifPurviewChecked=Truethenexitdo tClass.movenext loop endif ifPurviewChecked=Falsethen FoundErr=True ErrMsg=ErrMsg&"<br><li>对不起,你没有在此栏目发表文章的权限!</li>" endif endif endif endif endif ifTitle=""then founderr=true errmsg=ErrMsg&"<br><li>文章标题不能为空</li>" endif ifKey=""then founderr=true errmsg=errmsg&"<br><li>请输入文章关键字</li>" endif ifContent=""then founderr=true errmsg=errmsg&"<br><li>文章内容不能为空</li>" endif ifSkinID=""then SkinID=0 else SkinID=Clng(SkinID) endif ifLayoutID=""then LayoutID=0 else LayoutID=Clng(LayoutID) endif ifPaginationType=""then PaginationType=0 else PaginationType=Cint(PaginationType) endif ifMaxCharPerPage=""then MaxCharPerPage=0 else MaxCharPerPage=CLng(MaxCharPerPage) endif ifPaginationType=1andMaxCharPerPage=0then FoundErr=True ErrMsg=ErrMsg&"<br><li>请指定自动分页时的每页大约字符数,必须大于0</li>" endif ifFoundErr=Truethen exitsub endif ifSpecialID=""then SpecialID=0 else SpecialID=CLng(SpecialID) endif Title=dvhtmlencode(Title) ifTitleFontType=""then TitleFontType=0 endif Key="|"&ReplaceBadChar(Key)&"|" dimstrSiteUrl strSiteUrl=request.ServerVariables("HTTP_REFERER") strSiteUrl=lcase(left(strSiteUrl,instrrev(strSiteUrl,"/"))) Content=ubbcode(replace(Content,strSiteUrl,"")) Content=ReplaceRemoteUrl(Content) ifAuthor<>""then Author=dvhtmlencode(Author) else ifAuthorName=""andAuthorEmail=""then Author="佚名" else ifAuthorName<>""then Author=AuthorName ifAuthorEmail<>""then Author=Author&"|"&AuthorEmail endif endif endif endif ifCopyFrom<>""then CopyFrom=dvhtmlencode(CopyFrom) else ifCopyFromName=""andCopyFromUrl=""then CopyFrom="本站原创" else ifCopyFromName<>""then CopyFrom=CopyFromName ifCopyFromUrl<>""then CopyFrom=CopyFrom&"|"&CopyFromUrl endif endif endif endif ifUpdateTime<>""andIsDate(UpdateTime)=truethen UpdateTime=CDate(UpdateTime) else UpdateTime=now() endif ifHits<>""then Hits=CLng(Hits) else Hits=0 endif ifReadLevel=""then ReadLevel=9999 else ReadLevel=CInt(ReadLevel) endif ifReadPoint=""then ReadPoint=0 else ReadPoint=Cint(ReadPoint) endif ifStars=""then Stars=0 else Stars=CInt(Stars) endif setrs=server.createobject("adodb.recordset") ifAction="Add1"orAction="Add2"then sql="selecttop1*fromarticle" rs.opensql,conn,1,3 rs.addnew callSaveData() rs("Editor")=Editor rs.update ArticleID=rs("ArticleID") rs.close elseifAction="Modify"then ifArticleID=""then founderr=true errmsg=errmsg&"<br><li>不能确定ArticleID的值</li>" else ArticleID=Clng(ArticleID) sql="select*fromarticlewherearticleid="&ArticleID rs.opensql,conn,1,3 ifrs.bofandrs.eofthen founderr=true errmsg=errmsg&"<br><li>找不到此文章,可能已经被其他人删除。</li>" else ifrs("Passed")=FalseandPassed="yes"then Conn_User.execute("update"&db_User_Table&"set"&db_User_ArticleChecked&"="&db_User_ArticleChecked&"+1where"&db_User_Name&"='"&rs("Editor")&"'") endif ifrs("Passed")=TrueandPassed<>"yes"then Conn_User.execute("update"&db_User_Table&"set"&db_User_ArticleChecked&"="&db_User_ArticleChecked&"-1where"&db_User_Name&"='"&rs("Editor")&"'") endif callSaveData() rs.update rs.close endif endif else FoundErr=True ErrMsg="<br><li>参数错误!</li>" endif setrs=nothingendsub添加机票页面添加机票页面中可以对本网站要在前台显示的机票信息进行及时更新。如图5.9所示:图5.9添加机票页面添加机票页面主要代码如下:subSaveTicket() ifKeyword=""then randomizeranNum=int(90000*rnd)+10000 Keyword=ranNum endif ifUpdateTime<>""andIsDate(UpdateTime)=truethen UpdateTime=CDate(UpdateTime) else UpdateTime=now() endif setrs=server.createobject("adodb.recordset") ifAction="Add"then sql="selecttop1*fromTicket" rs.opensq

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论