资源描述
毕业设计(论文)题 目:企业网络宣传建设系、专业: 计算机信息管理班 级: 学生姓名: 指导教师: 二O 年 月 日 毕业设计(论文)任务书学生姓名: 专业班级: 毕业设计(论文)起止日期:2009年 12月 20 日 至 2010 年 6 月 15日毕业设计(论文)题目 企业网络宣传建设内容及要求: 1、本网站主要完成对企业产品和企业信息的发布和管理,包括数据库中表的添加、修改、删除等。2、网站管理系统可以完成对网站前台各类信息的浏览、查询、添加、删除、修改等功能。网站管理系统的核心是数据库中各个表联系,每个表的修改都将联动的影响其他的表,当完成对数据库的操作时系统会自动地完成数据库的修改。3、本文运用ASP+ACCESS技术,采用B/S模式,遵循网站设计风格结合企业特色开发的小型企业网站经测试运行,该网站性能稳定,安全性高,可扩展性好,视觉美观,使用方便,达到该小型企业网站的设计要求。指导教师: 系主任: 20 年 月 日石家庄外国语职业学院毕业设计(论文)评语学生姓名: 专业班级: 毕业设计(论文)题目: 企业网络宣传建设 1、指导教师评语: 指导教师(签字): 年 月 日2、评阅人评语: 评阅人(签字): 年 月 日3、答辩组评语: 答辩组长(签字): 年 月 日II摘 要伴随着计算机技术在各行各业日益广泛和深入的应用网络的概念早已深入人心。今天的网络在各行各业的发展战略中占据了重要的位置,成为企业不可分割的部分。企业产品与企业形象的宣传已不只局限于电视与报纸,网络已成为企业展示自己的另一个舞台。企业建立网站,将企业各方面的宣传与服务展现于网络中,通过网络更可实现如网上购物、信息查寻等功能,这些在改变我们原有经营方式与经营理念的同时,也为企业带来了更高的效益。因此,对于商业企业来说,拥有一个属于自己的网站是至关重要的。因而,本文运用ASP+ACCESS技术,采用B/S模式,遵循网站设计风格,结合企业特色开发了小型企业网站,经测试运行,该网站性能稳定,安全性高,可扩展性好,视觉美观,使用方便,达到该企业网站设计的要求。关键词:互联网;企业网站; ASP;Access 2003ABSTRACTAccompanied by the computer technology is increasingly widespread and critical in all the application of information source: design papersay of the network. this concept has been widespread network in all development strategies of the important position, has become indivisible parts of the product. enterprises and enterprise image of publicity were not confined to the tv and newspapers, the network has become another stage show. Therefore for a merchandising enterprise, have a web site are important.So this paper, the use of ASP + ACCESS technology, the use of B / S mode, follow the web site design style, combined with the development of enterprise characteristics and small business web site, run by the test, the site stable performance, high security, scalability, and visual aesthetics, easy to use. Meet the business requirements of website designKeywords: Internet; Corporate web site; ASP; Access 2003.目 录第一章 绪论11.1 开发背景11.2 课题开发的目标与期望2第二章 网络建设技术简介42.1 ASP的功能介绍42.2 Microsoft Access 2003的功能简介5第三章 网站需求的概述63.1 概述63.2 功能需求63.3 性能需求7第四章 网站建设原则与总体设计84.1 网站设计原则84.2 网站建设的总体结构84.3 网站功能模块的概述12第五章 数据库设计与实现145.1 数据库设计145.2 数据库需求分析145.3 数据库概念结构设计155.4 数据库逻辑结构设计15第六章 网站关键代码196.1 数据库连接196.2 代码作用19第七章 网站调试和用户使用说明307.1 网站的调试307.2 用户使用说明30结束语31致 谢32参考文献33石家庄外国语职业学院毕业论文第一章 绪论信息时代已经来临,互连网的触角早已覆盖了这个世界的每个角落,如今,企业建立自己的企业网站已经成为一种在信息时代生存的必要手段。1.1 开发背景随着互联网技术的发展,越来越多的传统企业借助互联网和电子商务技术来其强化产品的推广和服务,以扩大市场份额,提高企业的竞争力。 目前国内许多企业已开始建立和部署自己的电子商务网站系统。但是企业上网流程复杂、技术要求高一直是传统企业上网遇到的头疼问题。国内中小企业按传统方式建设其电子商务系统时,面临着“总体费用高、缺乏专业人员、系统维护水平低、难以随时更新”等障碍,这使得大多数中小企业难以真正建立和部署有效的电子商务系统。网站早已由论证阶段进入了实质阶段,尤其为企业提供一个展示自己的舞台、为消费者创造一个了解企业的捷径。公司可以通过建立商业平台,实行全天候销售服务,借助网络推广企业的形象、宣传企业的产品、发布公司新闻,同时通过信息反馈使公司更加了解顾客的心理和需求,网站虚拟公司与实体公司的经营运作有机的结合,将会有利于公司产品销售渠道的拓展,并节省大量的广告宣传和经营运营成本,更好地把握商机。随着全球信息网络的发展,Internet在世界上已不仅仅是一种技术,更重要的是它已成为一种新的经营模式。Internet正成为世界最大的公共资料信息库,它包含无数的信息资源,所有最新的信息都可以通过网络搜索获得。更重要的是,大部分信息都是免费的,应用电子商务可使企业获得在传统模式下所无法获得的巨量商业信息,在激烈的市场竞争中领先对手。1.2 课题开发的目标与期望(1) 树立全新企业形象对于一个以软件开发和安防产品销售为主的小型企业而言,企业的品牌形象至关重要。 特别是对于互联网技术高度发展的今天,大多客户都是通过网络来了解企业产品、企业形象及企业实力,因此,企业网站的形象往往决定了客户对企业产品的信心。建立具有国际水准的网站能够极大的提升企业的整体形象。(2) 增强销售能力销售力指的是产品的综合素质优势在销售上的体现。现代营销理论认为,销售亦即是传播。销售的成功与否,除了决定于能否将产品的各项优势充分地传播出去之外,还要看目标对象从中得到的有效信息有多少。由于互联网所具有的“一对一”的特性,目标对象能自主地选择对自己有用的信息。这本身已经决定了消费者对信息已经有了一个感兴趣的前提。使信息的传播不在是主观加给消费者,而是由消费者有选择地主动吸收。 同时,产品信息通过网站的先进设计,既有报纸信息量大的优点,又结合了电视声、光、电的综合刺激优势,可以牢牢地吸引住目标对象。因此,产品信息传播的有效性将远远提高,同时亦即是提高了产品的销售力。(3) 提高附加值许多人知道,购买产品不仅买的是那些看得见的实物,还有那些看不见的售后服务。这也就是产品的附加值。产品的附加值越高,在市场上就越有竞争力,就越受消费者欢迎。因此,企业要赢得市场就要千方百计地提高产品的附加值。在现阶段,传统的售后服务手段已经远远不能满足客户的需要,为消费者提供便捷、有效、即时的24小时网上服务,是一个全新体现项目附加值的方向。世界各地的客户在任何时刻都可以通过网站下载自己需要的资料,在线获得疑难的解答,在线提交自己的问题。总结上述几点,重庆赛智网络信息技术中心网站建设目标可总结如下:1) 帮助企业建立有效的企业形象宣传、企业风采展示、公司产品宣传,打造“赛智网络”新形象。2) 充分利用网络快捷、跨地域优势进行信息传递,对公司的新闻进行及时的报道。3) 通过在线供求系统实现网上的供求信息的查询、订购、交易联系,优化信息的流通渠道。第二章 网络建设技术简介2.1 ASP的功能介绍ASP的全称是Active Server Pages,微软开发的一种类似HTML、Script(脚本)与CGI(CommonGatewayInterface通用网关接口)的结合体,它没有提供专门的编程语言,而是允许用户使用包括VBscript,Javascript等在内的脚本语言编写ASP的应用程序。ASP的程序编写比HTML更方便、更具灵活性。它是在WEB服务器端运行后,再将运行结果以HTML格式传送至客户端的浏览器。因此,ASP比其他脚本语言要可靠。在开发过程中,选择哪种开发技术取决于用户的基础条件以及开发人员的爱好和技术经验。一般而言,ASP技术快速开发工具较多,有利于系统的快速开发。同时,ASP比CGI具有的最大好处是可以包含HTML标签,直接存取数据库及使用无限扩充的ActiveX控件,因此在程序设计上要比HTML方便而且更富有灵活性。ASP吸收了多种较为实用的技术,是一种发展较为成熟的网络应用程序开发技术;其核心技术是对组件和对象技术的充分支持。通过使用ASP的组件和对象技术,用户可以直接使用ActiveX控件,调用对象方法和属性,以简单的方式实现强大的功能由于ASP在服务器端运行,运行结果以HTML主页形式返回用户浏览器,因而ASP源程序不会泄密,增加了系统的安全保密性。此外,ASP是面向对象的脚本环境,用户可自行增加ActiveX组件来扩充其功能,拓展应用范围。2.2 Microsoft Access 2003的功能简介Access功能强大,使用方便,是最优秀的桌面数据库开发工具之一。Access与其他数据库开发系统之间有相当显著的区别就是:Access数据库系统把数据库应用程序的建立移到了用户环境中,用户不用写一行代码,就可以在很短的时间里开发出一个功能强大而且相当专业的数据库应用程序,并且这一过程完全是可视的。Access与其他桌面数据库的另一个重要区别是:Access中的数据库文件既包括存储数据的表,又包括操作或控制数据的其他对象。它由七种对象组成:表、查询、窗体、报表、WEB页、宏和模块。Access 2003在网络功能上有了很大的改进,在数据库中通过超级链接字段可以直接链接到指定的WEB页面或网络文件,也可以通过“数据访问页”将数据库文件中的数据发布到网络上,从而实现数据共享。第三章 网站需求的概述3.1 概述随着互联网的迅速发展,如果不希望在互联网上做一个信息孤岛,就需要有效实现网络宣传。网络推广是目前投资最少、见效最快、效果最好的扩大知名度和影响力的形式,是被推广对象通过网络提高知名度,实现预期目标的最有力保证之一。对企业而言,做好网络推广,可以带来经济效益。 企业拥有自己的网站可以给你增加业务,带来更多的顾客,网络无区域性,只要你有网站就可以让全世界的人都发掘你的信息,服务更多的顾客。而且网站可以给你企业做相应的推广,这样不但降低了你的推广费用,还给你企业树立了更好的形象。3.2 功能需求根据不同用户的不同使用需求与权限,因此不同角色在系统中应具有的功能也有不同。下面是企业网站中三个角色具有的功能。(1)网站管理员应具有的功能对产品信息的管理,进行产品分类的添加、修改、删除等功能;对企业新闻的管理,能对新闻实行的添加、删除和修改做出相应的操作;对产品订单的管理,能对订单进行审核做出相应的操作;对留言信息的管理,能对注册用户提交的信息进行添加、删除。(2)网站注册用户应具有的功能对于网站的注册用户,能进行注册用户的登陆功能,并能浏览网页信息,登陆后能在私密留言板上发表意见等。(3)网站非注册用户应具有的功能对于网站的非注册用户,系统能提供其注册的功能,并在为非注册用户的情况下也能浏览网站,并可以在公开留言板上发表意见的功能。3.3 性能需求为了保证网站系统能够长期、安全、稳定、可靠、高效的运行,企业网站运行应满足以下的性能需求:1服务器端子系统的运行要求:系统软件: Window NT Server数据库管理系统:SQL Server / Access 硬件要求:Pentium IV 450以上, 1G RAM 2.客户端子系统的运行要求:系统软件: Window NT Workstation数据库管理系统:SQL Server / Access 硬件要求:Pentium III以上, 256M RAM第四章 网站总体设计4.1 网站设计原则企业网站第一原则:目的性Intension 必须有明确合理的建站目的和目标群体企业网站第二原则:专业性Specialization 信息内容应该充分展现企业的专业特性企业网站第三原则:实用性Utility 功能服务应该是切合实际需求企业网站第四原则:易操作性Maneuverability 界面设计的核心是让用户更易操作企业网站第五原则:艺术性Artwork 网页创作本身已经成了一种独特的艺术企业网站第六原则:性能Performance 网站正常的访问性能企业网站第七原则:常维护更新Maintenance 网站的最大特点是它总是不断变化的企业网站第八原则:发挥作用Known and used 网站必须被访问和使用才有价值4.2 网站的总体结构本网站主要包括网站前台、网站后台管理系统和数据库三大部分组成。 网站前台包括关于我们、新闻中心、荣誉资质、产品展示、人才招聘、客户服务、SMXH社区和联系我们8个功能栏目。网站的总体结构如图4.1所示。网站前台网站后台数据库信息管理交互信息管理数据提供数据图4.1 网站总体结构图关于我们新闻中心荣誉资质产品展示人才招聘客户服务SMXH社区联系我们网站呢图4.2 网站前台功能结构图网站体现出了企业自身的沉积,公司本身的规划性文本、规章制度、事件性内容等要多些,因此在网站内容的体现上也需要很丰富。丰富网站的内容(提高信息量、增强可读性、扩大知识面、加强企业文化宣传力度)是进行前台功能设计必须仔细考虑的问题。例如,企业新闻和产品展示这是每个企业网站前台功能模块中必须具备的,人才招聘、客户服务是对网站功能的完善,关于我们和荣誉资质则是从侧面对公司进行宣传,而SMXH社区(论坛)是根据赛智网络有限公司的企业特殊需求而建立的栏目,因为它是重庆市涉密企业协会的主办方,所以公司必须对会员提供一个网络交流平台,和对会员提供一些特殊服务。总之,前台功能设计必须做到,每一个模块都有它存在的必要性,而且要使得整个网站的功能趋于完善。图4.3 网站主界面图4.4 网站论坛主界面网站的后台功能设计必须完全的符合前台功能模块的要求,当然现在有很多专门从事网站后台开发的公司(比如动易)可以提供功能强大的专业网站后台,做为小型企业这种后台的实用性却不是很大,因为专业的后台管理程序功能太复杂,不利于企业内部工作人员进行管理。因此,专门开发一个小型网站后台管理系统在小型企业网站的设计中是非常必须的。图4.5 网站后台管理系统主界面4.3 网站功能模块的概述企业网站的主要任务是发布企业新闻和产品信息;管理员可以增加最新的产品信息、企业新闻,还可以对其实行修改、删除、修改。并提供最新产品信息、企业新闻让浏览者浏览。网站前台中的各栏目主要功能如下: 关于我们:一级导航条,即公司概况,公司的企业文化宣传阵地; 新闻中心:一级导航条,即公司的企业新闻,重大活动报道,还有行业内的重要新闻; 产品展示:一级导航条,即现在公司的产品介绍,下设目前公司主要销售的五大系列产品; 人才招聘:一级导航条,企业招聘发布人事行政部的职位招聘信息; 客户服务:一级导航条,为网站客户提供资料修改,订单查询,会员留言(采用会员留言方式是为了保护客户资料不被非法窃取、利用)等功能; 合作伙伴:一级导航条,公司现在的合作伙伴的相关情况; 联系我们:一级导航条,包括公司的联系方式,普通用户的留言板(无需注册的),技术支持,电子地图; smxh社区:一级导航条,涉密企业协会论坛,为涉密企业协会会员提供交流和学习的信息平台。第五章 数据库设计与实现5.1 数据库设计数据库在一个网站系统中占有非常重要的地位,数据库结构设计的好坏将直接影响到网站的执行效率,对实现的效果产生影响。数据库设计是对一个给定的应用环境,构造最优的数据库模式,建立数据库及其应用系统,有效存储数据,满足用户信息要求和处理要求。合理的数据库结构设计可以提高数据储存效率,保证数据的完整性和一致性2。设计数据库系统时应该首先充分了解用户各个方面的需求,包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤:(1)数据库需求分析;(2)数据库概念结构设计;(3)数据库逻辑结构设计。5.2 数据库需求分析进行整个数据库设计必须准确了解与分析用户需求(包括数据和处理)。用户需求分析是整个设计过程的基础,是最困难、最耗费时间的一步。作为最基本的需求分析做得是否充分与准确,决定了在其构建数据库的速度和质量。用户的需求具体体现在各种信息的提供、存储、更新和查询方面,这就要求数据库结构能充分满足各种信息的输出与输入。收集基本数据、数据结构及数据处理的流程,组成一份详尽的数据字典,为后面的具体设计打下基础。以这种思想作为设计策略,小型企业网站至少有以下3项需求:(1)用户表:包括的数据项有用户姓名、密码等。(2)产品表:包括的数据项有产品号、产品类别、产品图片等。(3)新闻表:包括的数据项有标题、类别、时间等。5.3 数据库概念结构设计概念结构设计是将分析得出的用户需求信息抽象为概念模型的过程。即在需求分析的基础上,设计出能够满足用户需求的各种实体以及它们之间的相互关联的概念结构设计模型。这样才能更好、更准确的用某一DBMS实现这一些需求,这是整个数据库设计的关键。概念结构的主要特点是能真实、充分地反映现实世界,容易理解、更改,容易向关系、网状、层次等各种数据模型转换。描述概念模型的有力工具是E-R模型。设计概念结构通常有4类方法:(1)自顶向下,即首先定义全局概念结构的框架,然后一步步的细化。(2)自底向上,即首先定义各局部应用的概念结构,然后将它们集成起来,得到全局概念结构。(3)逐步扩张,首先定义最重要的核心概念结构,然后向外扩充,以滚雪球的方式逐步生成其他概念结构,直至总体概念结构。(4)混合策略,即将自顶向下和自底向上相结合,用自顶向下策略设计一个全局概念结构的框架,以它为骨架集成自底向上策略中设计的各局部概念结构。其中最经常采用的策略是自底向上方法,即自顶向下进行需求分析,然后再自底向上设计概念结构。5.4 数据库逻辑结构设计概念结构是独立于任何一种数据模型的信息结构。逻辑结构设计的任务就是把概念结构设计阶段设计好的基本E-R图转换为与选用DBMS产品所支持的数据模型相符合的逻辑结构。设计逻辑结构时一般要分3步进行:(1)将概念结构转换为一般的关系、网状、层次模型;(2)将转换来的关系、网状、层次模型向特定的DBMS支持下的数据模型转换;(3)对数据模型进行优化。将以上的数据库概念结构设计转换为关系模型。数据库表格以会员表、新闻表和人才招聘表为例,设计结果如下:表5.1 会员表(user)字段名字段类型字段大小索引会员编号(userID)自动编号长整型Maintained(主关键字)会员名(username)文本20密码(password)文本50问题(Question)文本50回答(Answer)文本50邮箱(Email)文本30性别(Sex)文本10公司(CompanyName)文本60地址(Add)文本100邮编(Postcode)文本6收货人(Receiver)文本30联系电话(Phone)文本30手机(Mobile)文本20传真(Fax)文本20注册日期(RegDate)日期/时间登录IP(LoginIP)文本50登录次数(logins)数字长整型会员主页(Homepage)文本50(LastLoginTime)日期/时间是否锁定(LockUser)是/否表5.2 新闻表(news)字段名字段类型字段大小索引新闻编号(ID)自动编号200Maintained(主关键字)新闻标题(Title)文本200新闻内容(Content)备注大类(BigClassName)文本50小类(SmallCN)文本50图片(ImageName)文本50发布人(User)文本50录入时间(AddDate)日期/时间点击数(Hits)数字长整型是否发布(Ok)是/否表5.3 人才招聘(hrdemand)字段名字段类型字段大小索引编号(ID)自动编号200Maintained(主关键字)职位名称(HrName)文本60需求人数(Num)备注10工作地点(Address)文本100工资(HrSalary)文本10有效时间(HrDate)文本10详细说明(HrDetail)备注发布时间(HrDate)日期/时间是否发布(Publish)是/否图4.6 数据库中的表第六章 网站关键代码6.1 数据库连接Conn.asp文件6.2 代码作用Function.asp文件),<,255 thent=t+2elset=t+1end ifif t=strlen thengotTopic=left(str,i) & exit forelsegotTopic=strend ifnextgotTopic=replace(replace(replace(replace(gotTopic, , ),chr(34),"),>),<)end function*函数名:JoinChar作 用:向地址中加入 ? 或 &参 数:strUrl -网址返回值:加了 ? 或 & 的网址pos=InStr(1,abcdefg,cd) 则pos会返回3表示查找到并且位置为第三个字符开始。这就是“查找”的实现,而“查找下一个”功能的实现就是把当前位置作为起始位置继续查找。*function JoinChar(strUrl)if strUrl= thenJoinChar=exit functionend ifif InStr(strUrl,?)1 thenif InStr(strUrl,&)len(strUrl) then JoinChar=strUrl & &elseJoinChar=strUrlend ifelseJoinChar=strUrl & ?end ifelseJoinChar=strUrlend ifend function*函数名:IsValidEmail作 用:检查Email地址合法性参 数:email -要检查的Email地址返回值:True -Email地址合法 False -Email地址不合法*function IsValidEmail(email)dim names, name, i, cIsValidEmail = truenames = Split(email, )if UBound(names) 1 then IsValidEmail = false exit functionend iffor each name in namesif Len(name) = 0 thenIsValidEmail = false exit functionend iffor i = 1 to Len(name) c = Lcase(Mid(name, i, 1)if InStr(abcdefghijklmnopqrstuvwxyz_-., c) = 0 and not IsNumeric(c) then IsValidEmail = false exit function end if next if Left(name, 1) = . or Right(name, 1) = . then IsValidEmail = false exit function end ifnextif InStr(names(1), .) = 0 thenIsValidEmail = false exit functionend ifi = Len(names(1) - InStrRev(names(1), .)if i 2 and i 3 then IsValidEmail = false exit functionend ifif InStr(email, .) 0 then IsValidEmail = falseend ifend function*函数名:strLength作 用:求字符串长度。汉字算两个字符,英文算一个字符。参 数:str -要求长度的字符串返回值:字符串长度*function strLength(str)ON ERROR RESUME NEXTdim WINNT_CHINESEWINNT_CHINESE = (len(中国)=2)if WINNT_CHINESE then dim l,t,c dim i l=len(str) t=l for i=1 to l c=asc(mid(str,i,1) if c255 then t=t+1 end if next strLength=t else strLength=len(str) end if if err.number0 then err.clearend function*过程名:WriteErrMsg作 用:显示错误提示信息参 数:无*sub WriteErrMsg()dim strErrstrErr=strErr & 错误信息 & vbcrlfstrErr=strErr & & vbcrlfstrErr=strErr & & vbcrlfstrErr=strErr & 错误信息 & vbcrlfstrErr=strErr & 产生错误的可能原因: & errmsg & & vbcrlfstrErr=strErr & 【返回】 & vbcrlfstrErr=strErr & & vbcrlfstrErr=strErr & & vbcrlfresponse.write strErrend sub*过程名:WriteSuccessMsg作 用:显示成功提示信息参 数:无*sub WriteSuccessMsg(SuccessMsg)dim strSuccessstrSuccess=strSuccess & 成功信息 & vbcrlfstrSuccess=strSuccess & & vbcrlfstrSuccess=strSuccess & & vbcrlfstrSuccess=strSuccess & 恭喜你! & vbcrlfstrSuccess=strSuccess & & SuccessMsg & & vbcrlfstrSuccess=strSuccess & 【返回】 & vbcrlfstrSuccess=strSuccess & & vbcrlfstrSuccess=strSuccess & & vbcrlfresponse.write strSuccessend subfunction getFileExtName(fileName) dim pos pos=instrrev(filename,.) if pos0 then getFileExtName=mid(fileName,pos+1) else getFileExtName= end ifend function =过程名:MenuJS作 用:生成下拉菜单相关的JS代码参 数:无=sub MenuJS()response.write end subdim pNum,pNum2pNum=1pNum2=0=过程名:ShowFriendLinks作 用:显示友情链接站点参 数:LinkType -链接方式,1为LOGO链接,2为文字链接 SiteNum -最多显示多少个站点 Cols -分几列显示 ShowType -显示方式。1为向上滚动,2为横向列表,3为下拉列表框=sub ShowFriendLinks(LinkType,SiteNum,Cols,ShowType)dim sqlLink,rsLink,SiteCount,i,strLinkif LinkType1 and LinkType2 thenLinkType=1elseLinkType=Cint(LinkType)end ifif SiteNum100 thenSiteNum=10end ifif Cols20 thenCols=10end ifif ShowType=1 then strLink=strLink & 新增加的代码elseif ShowType=3 thenstrLink=strLink & 友情文字链接站点end ifif ShowType=1 or ShowType=2 thenstrLink=strLink & end ifsqlLink=select top & SiteNum & * from FriendLinks where IsOK=True and LinkType= & LinkType & order by IsGood,id descset rsLink=server.createobject(adodb.recordset)rsLink.open sqlLink,conn,1,1if rsLink.bof and rsLink.eof thenif ShowType=1 or ShowType=2 then for i=1 to SiteNumstrLink=strLink & strLink=strLink & if i mod Cols=0 and iSiteNum thenstrLink=strLink & end ifnextend ifelseSiteCount=rsLink.recordcountfor i=1 to SiteCountif ShowType=1 or ShowType=2 then if LinkType=1 thenstrLink=strLink & if rsLink(LogoUrl)= or rsLink(LogoUrl)=http:/ thenstrLink=strLink & elsestrLink=strLink & end ifstrLink=strLink & elsestrLink=strLink & & rsLink(SiteName) & end if if i mod Cols=0 and iSiteNum thenstrLink=strLink & end ifelsestrLink=strLink & & rsLink(SiteName) & end ifrsLink.moveNextnextif SiteCountSiteNum and (ShowType=1 or ShowType=2) thenfor i=SiteC
展开阅读全文