课题名称：用ASP制作的综合动态网

论文摘要
    随着Internet在中国的迅速发展,人们日常生活中越来越多地使用这项新的技术来为自己的工作和学习服务.由于WEB页面能把文本、图像、声音、动画、视像等多种媒体信息集于一体，不但使信息的显示更加生动，而且使信息的浏览更为方便,同时WEB页能实现网上交易平台、客户信息反馈方便了企业与客户之间信息交流，因此许多企业纷纷建设网站以增强企业知名度.
 制作这个网站是使用ASP和ACCESS数据库为工具开发的基于Web平台的网页界面的动态网。开发出的网站可以在任何一台装备了IE浏览器的机器上使用。
 这个网站包括首页，以及底下的子站点（包括新闻快递、音乐视听、精品下载、教程文章、最新酷站、自动连接、精美相册、本站社区、本站留言）等内容。
 本论文主要介绍了这个网站以及所用的软件开发工具以及制作的流程，以及各网点的功能与总体设计，心得体会等方面对这个网站进行了详细的叙述。还对往后站的后台数据管理进行了详细的评述。
 本文分别利用ASP这个动态网站技术，使用Windows数据库ACCESS，采用统一的三种格式的表单界面，借用三种连接数据库的方法，在三种不同特点的WEB服务器环境下,给出了电子商务网站设计中的主要的前台和后台程序。

关键词：ASP  后台数据库管理 ACCESS

目录

引言……………………………………………………………………………4
ASP的认识……………………………………………………………………5
开发环境及需求………………………………………………………………6
网站总体结构与设计…………………………………………………………7
 4.1网站分析系统……………………………………………………………7
 4.2网站的设计………………………………………………………………8
 4.3数据库设计………………………………………………………………9
网站的详细设计过程…………………………………………………………10
 5.1网站的规划………………………………………………………………10
 5.2各个网页的设计要求和结构分析………………………………………11
后台数据库管理………………………………………………………………19
 6.1管理员管理………………………………………………………………19
 6.2后台数据库管理…………………………………………………………22
 6.3其他系统管理……………………………………………………………29
结论……………………………………………………………………………31
参考文献…………………………………………………………………………32
附录………………………………………………………………………………………33
引言

  伴随着网络的出现，网页逐渐融入人们的生活。快速及时的新闻浏览，五彩缤纷的网上信息，使网络与人们的生活息息相关，于是世界上又出现了第三媒体——Internet。它打破了地域限制，真正使信息得以共享，改变了人们的工作和生活方式。制作网页是企业和个人的宣传自己的重要手段，同时也是学习者获取学习信息的重要手段。尤其是在教育领域，在素质教育与终身教育成为必然的今天，人们对信息的需求有了更新，更高的要求，而网页由于本身所具有的信息量大，传递快速，没有时空限制等特点恰好满足这种要求。所以网页也逐渐成为一种新兴的教育资源。也正是由于网络实现网站的数据信息能够进行实时交互，保证网站数据的实时性。
 随着Internet的进一步发展,静态Web站点的开发与维护变得越来越困难,一方面信息的不断增加和变化,使站点维护人员不得不经常修改他们的网页,特别是基于数据库驱动的Web站点更是如此，随着Internet上信息量的增多和交互性的加强使HTML显得越来越难以胜任。另一方面静态网页由于不能与浏览者进行有效交互,使人们感到越来越乏味,而不愿意再一次地进入同一站点。所以开发动态网页或动态内容成了越来越多的站点所追求目标。所谓动态内容是由每一个用户按照自己的需求发出请求而特殊制作的Web网页。如常见的BBS、留言板、聊天室都是用动态网来实现的。
 网络发展前景无限，及早与网络结合，与信息时代同步，与高科技汇合，定会给社会各行各业的发展注入新鲜的活力。站在网络时代的前夜，我们清晰地听到了网络时代的宣言：谁掌握了网络，谁就掌握了未来。
                   
                   
 
 
 
 
 
 第 二 章  ASP的认识
 
 ASP 全称为 Active Server Pages（动态服务器主页），它是一种应用程序环境，可以利用 VBscript 或 Java Script 语言来设计，主要用于网络数据库的查询与管理。其工作原理是当浏览者发出浏览请求的时候，服务器会自动将 ASP 的程序码，解释为标准 HTML 格式的网页内容，再送到浏览者浏览器上显示出来。我们也可以将 ASP 理解为一种特殊的 CGI。
 利用 ASP 生成的网页，与HTML相比具有更大的灵活性。只要结构合理，一个 ASP 页面就可以取代成千上万个网页。尽管 ASP 在工作效率方面较之一些新技术要差，但胜在简单、直观、易学，是涉足网络编程的一条捷径。它具备一个服务器端的脚本执行环境，用它可产生和执行动态的、交互的、高性能的Web服务器应用程序。
 Active Server的另一大优点是代码的安全性。页面的访问者所能看到的只是服务器方的处理结果。ASP文件可以用常规的文本编辑器编辑， ASP使用VBScript、java script等脚本语言作为开发工具，镶嵌于HTML文本中，使用"<%…%>"将ASP的程序包含起来。当用户从浏览器向Web服务器提出请求时，Web服务器会自动将ASP的程序解释为标准的HTML格式的主页内容，用户端只要使用常规可执行HTML程序的浏览器，就可浏览ASP所设计的主页内容，因此与浏览器无关，并且保证了ASP的源程序代码不会外漏。
 ASP中包括五个内置的ActiveX服务器组件和五个内置的对象：Database Access component（数据库访问组件）、File Access component（文件访问组件）、Ad Rotator component（广告轮播器组件）、Content Linking component（内容链接组件）、Browser Capabilities component（浏览器信组件）以及Request（请求对象）、Server（服务器对象）、Session（会话对象）、Response（响应对象）、Application（应用程序对象）。在所有ASP组件中，最有用的是数据库访问组件，也称为ActiveX数据对象或ADO。在站点发布数据库将使用这个组件及其中包含的对象，以完成对ODBC数据源的读写。
 此外，ASP技术的另一个重要特点是，程序员可以利用Java、Visual Basic、 Visual C++等语言制作适应自己特殊需要的ActiveX服务器组件来扩充ASP的功能，使自己的动态网页几乎具有无限的扩充能力，这是传统的CGI程序所不及的。
 总而言之ASP具有学习快、设计快的特点，不需花许多时间即可学会和快速设计出WEB应用程序。ASP的源程序码在服务器端执行，代码保密性好。集成与HTML中，无需编译链接可直接执行，而且使用文本编辑器即可设计。
                          
                 第 三 章    开发环境及要求
   一、开发目的
 随着计算机技术的发展，网络技术对我们生活和工作显得月来越重要，特别是现在信息高度发达的今天，人们对最新信息的需求和发布迫切的需要及时性。而动态交互式网页刚好提供了这些功能，本系统就是一个能够在网上实现新闻的网上多用户发布，多栏目管理，实时的进行行为统计和记录的网上交互系统。
二、项目背景
 HTML作为一种样式语言，随着Internet上信息量的增多和交互性的加强使HTML显得越来越难以胜任的情况之下，在ASP编程语言高度发展的形式下，我们开始了对新闻发布系统的开发。
三、开发环境
1.硬件条件
 服务器两台，一台为数据库服务器，一台为Web服务器；客户端计算机若干；网络通讯设备，主要包括交换机、网卡、集线器、MODEM 等。
2.系统平台
 采用Browser/Server体系结构，服务器端采用Microsoft Windows NT4.0作为网络操作系统，Web服务器软件采用IIS3.0（Internet Information Server）。客户端软件，包括单机操作系统和浏览器软件，分别选用Windows 2000和Internet Explorer，数据库系统采用Microsoft Access有利于方便操作。
3.开发工具
 基于Web的系统开发工具应使开发者使用各种各样的技术来创建动态的Web应用程序，并且应是一个可视化的工具。我们采用了DreamweaverMX进行开发，它是用来快速创建数据驱动Web应用程序的基于团队的开发环境，支持ASP，以ODBC连接数据库，脚本语言为简单易学的java script或VBScript。
4.运行需求
 正常使用时不应出错，若运行时遇到不可恢复的系统错误，也必须保证数据完好无损，对数据的精确度、时间特性、适应性等都有一定要求，要求系统运行时能够保证正确性、可靠性、高效性、完整性、易使用性、可维护性、可测试性、复用性、安全保密性、可移植性、互联性。
                    第  四  章   网站总体结构与设计
4.1网站分析系统
 4.1.1网站各网页的结构图如下4.1.2  网站各版块功能
新闻快递：里面有最新的新闻文章。包括各方面的新闻，有体育、国际、国内、军事等各种新闻。
音乐视听：提供了一些现在最流行好听的音乐。
精品下载：提供常用的一些软件下载。有windows play 7.0、real play 8.0等软件的下载。
教程文章：有些电脑方面知识的教程。有些电脑基本操作方面的内容。
最新酷站：提供现在一些流行的网站。
自动链接：提供一些流行的网站进行超链接。
精美相册：有些很漂亮的相片。有网络美眉、军事图片、奇迹怪谈等诸多图片。
本站社区：为大家提供一个聊天的场所。
本站留言：如果有什么好的意见要记的给我啊。
4.2 网站的设计
 网站主页采用静、动相结合的方式，即静态的主画面和动态的图片相结合，体现现在社会大学生勃勃生气，静态主页方式介绍主要是为了实现对子网页的最新东西的介绍，就得利用ＡＳＰ与数据库结合的技术建立数据库查询管理系统，采用交互式的动态的web画面来实现。
4.3 数据库设计
 数据只有用数据库来管理才能有自动化管理的可能。数据的结构将影响整个管理机制的应用，而且一但建立以后要修改常会出现麻烦。所以一开始就要仔细慎重地搭建一个完整而合理的结构。Microsoft Access数据库相对其它的数据库来说要简单容易操作些，本发布网站的数据库文件就是Acess类型的数据库。如图4.3-1

 
 图4.3-1:下面简要介绍下有的项目的管理内容，都可进行修改：
a-cat：代表了教程文章版块的分类，有四个分类。admin:写出了有几个管理员对网站进行管理。
Art:对教程文章的内容管理。
Coolsites:对最新酷站的内容管理。
Counters:可以统计网站的浏览人数。
d-class:是对精品下载的分类管理。
Dj:对音乐视听里的所有音乐管理。
Friendlink:对友情链接的网址管理。
News:是新闻快递中的内容管理。
Photo:是对精品相册的管理。
Soft:对精品下载的管理。
Word:对管理员的内容进行管理。
             

  第 五 章   网站的详细设计
5.1 网站的规划
 网站不是HTML文件和其他文件的简单集合。从某种意义上说，网站是信息的机体。结构混乱、内容结构不合理的网站不仅会让用户头痛，也不利于日常的维护工作，更糟糕的是会使自己失去制作网站的信心与兴趣。正所谓“磨刀不误砍材功”，多花点时间在网站的规划上是正错的决策。因此，一定要先把网站好好规划一下再入手。通常，应该从以下几步入手：
 1.网站的可行性。例如，对于企业网站来说，应该分析一下，建网站是否对本企业的形象及产品的销售等有一个突破性的提高。
 2.名错网站面向的用户群体。例如游戏网站，它所针对的主要用户群体是年轻人，因此在此类网站的版面设计中，就应该多加点色彩，让整个页面富有朝气。
 3.根据所面向的用户群体确定网站的内容以及栏目结构。
 当然网站的设计也不是很容易，也要有好几方面的内容来考虑：首先建设一个成功的网站必须要有整体的包装和设计，这跟建设企业是一样的道理。网站也有网站名称、网站标志、标准颜色等等。为了加深网站在浏览者心目中的印象，所以一定要为自己的网站设计一个形象标志。接着你要对网站的颜色设计有一定的掌握。如蓝色代表博大，同时也象征着深远和永恒；绿色象征和平，又有宁静和安逸的感觉；白色象征着神圣和纯洁；红色代表热情和活泼，也含有危险的的意思；橙色代表着甜蜜；黄色是亮度最高的颜色，给人以温暖的感觉。掌握一些基本的色彩知识是制作一个好的网页的必要基础。我们制作网站的时候，应该根据网站的类型来确定网站的页面色彩，以达到理想的效果。最后还有要有好的结构布局，网页是由各种图片和文字构成的。页面的版面设计就是将这些图片和文字按照一定的次序进行合理的编排和布局，使之有机的结合起来，从而表现表现出制作者的制作理念。通常，较大的图片或者是较多文字，给人的感觉会显的比较沉重；相反，小图片和稀疏的文字给人的感觉就会比较轻松。一个好的网站，在整个页面结构上要做到错落有致、疏密有序，否则就会显的不伦不类。
 在规划好网站的整体规划后，就应该根据确定的主题和内容开始准备相关的材料和信息的收集。这是建立网站的前期准备工作。只有储备好大量的的素材和信息资料，在制作网站的时候才不至于捉襟见肘。
5.2各个网页的设计要求与结构分析
 当我们对整个网站做好规划以后，我们就要开始做网页，做网页有很多要求，也有很多难点，这里我就简要介绍下各个页面的需求分析与结构设计。
5.2.1首页的介绍（index.asp）
 在对网站规划完之后我们开始主页的设计，我的主页主要有导航栏、论坛登陆栏、公告栏、投票栏，还有各个版块的主要内容的介绍。它由inc/config.asp、mdb.asp 、inc/format.asp 、inc/error.asp、inc/inc.asp、inc/indexnew.asp、inc/index_body.asp等文件组成。
 inc/config.asp：用来对菜单栏路径、网站基本、 论坛登陆、播放顶部、网站分页等内容进行设置。
 mdb.asp：使本站与数据库的连接起来。以便于我们对网站进行管理。
 inc/format.asp：
 inc/error.asp：是网页的错误提示，便于我们对网页进行修改。
 inc/inc.asp：是对首页的页面顶部进行设置，包括字体、颜色、图片等各项内容的设置。
 inc/indexnew.asp：对首页上的站点新闻、公告、投票、酷站推荐、下载中心、文章、舞曲、LOGO连接、文字连接等各项内容的设置。
 inc/index_body.asp：对首页的其他一些内容的设置，包括时间倒计时、社区登陆用户的帐号密码、还有些公告的设置。
 通过这些主要文件我完成了首页的制作，下面我就想介绍下我制作的时间倒计时的源代码：
 <%
 response.write "今天是"
 response.write formatDateTime(Date(),1) & ","
 '格式化为长日期格式输出显示
 response.write " 离<font color=red>"&rizi&"</font>还有"
 response.write "<font color=blue><u>"
 '调用DateDiff函数,计算日期间隔.
 response.write DateDiff("d",Date(),""&rdate&"")
 response.write "</font></u>"
 response.write "天"
 %></TD></TR>
 </table>
 </TD>
 </TR>
 通过这个源代码我就把时间倒计时做出来了，它可以算出从今天起到过年还有多少天，以及今天的日期。
 现在我主要讲讲网站主要栏目的内容与作用。导航栏主要是对各个版块的导航，是连接各个子网站的入口，它包括新闻快递、音乐视听、精品下载、教程文章、最新酷站、自助连接、精美相册、本站社区、本站留言，它使我们能浏览子网页。公告栏则是我们有什么事情时，通过它，我们可以随时告诉用户站内的一些改动或与他们有关的一些事。社区登陆栏则是用户登陆轮坛的窗口。投票栏是对用户对我们发表的一些事情进行投票的地方，它可以为我们进行一些社会调查的内容。各个版块的介绍，包括其他各页内容主要简介与最新内容。
5.2.2新闻快递页面（news.asp）
 新闻页面里面有很多现在年轻人所关心的内容，它有国内新闻、国际新闻、体育新闻、军事新闻等各种新闻。它主要包括inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp、inc/news_body.asp等文件。
     inc/config.asp：是这页与主页的联系。
  mdb.asp inc/format.asp inc/inc.asp inc/error.asp：跟首页上介绍的内容与作用一样。
 inc/news_body.asp：对网页的新闻版块与连接进行管理。
本设计的重点是新闻管理，而难点则是对网页进行排列，网页里有2种顺序帮助我们对新闻进行查找，当我们查找些老新闻时我们可以用“按时间升序排列”使我们能快点找到那些旧新闻。这里我们就它的源代码进行叙述，它的源代码是：
<%sub news_body()
dim totalnews,Currentpage,totalpages,i
sql="select news_id,news_title,news_date from news order by news_date DESC"
if request("type")=2 then
sql="select news_id,news_title,news_date from news order by news_date DESC"
elseif request("type")=3 then
sql="select news_id,news_title,news_date from news order by news_date ASC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
 %>
 按时间排序新闻可以使我们查找新闻快多了，还有用升序更有助于我们查找些过时的新闻。
5.2.3音乐视听版块（dj。Asp）
 音乐视听里有又分为多个栏目，有总量排行、站长推荐、本站声明等，而音乐视听版块又被分成街舞录象、MTV影视、FLASH音乐、MP3音乐、中文流行等小版块。
 音乐视听版块将会有很多音乐，有的是自己主机上的歌，但更多是对其他网站的链接得到的，这样就可以为自己省很多空间了，而且有更多的歌供大家选择了。在这里我也要详细讲解一下我们怎样我们的网站与别人的怎么连接起来的。首先看下源代码：
<TR><TD>&nbsp;<img src=img/none.gif border=0><img src=img/i2.gif border='0'>&nbsp;
<a title=”舞曲:<%=rs("dj_desc")%>"
href="java script:openwin('play.asp?dj_id=<%=rs("dj_id")%>')"><%=rs("dj_name")%></a></td><TD align="center"><%=rs("dj_count")%></TD><TD align="center"><%=rs("dj_date")%></TD></TR>
5.2.4精品下载版（down.asp）
 精品下载版有全部排行版、最新更新、软件搜索、解压工具等栏目，这个页面还分为全部程序、网页制作、黑客软件、系统资源、ASP程序、常用软件等着页面。
  本页主要有inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp、inc/down_body.asp等文件。而inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp与上面讲的一样，inc/down_body.asp则是对本页内容的设置。
本页也是连接到其他网上资源的，在这里我就不再说了。而本页的难点也是所有网站很必须的一个程序，就是对软件进行搜索，这样才有利于我们用户对软件进行查找。下面我就讲讲它的制作代码：
<tr>
 <td bgcolor="#FFFFFF" colspan="3"><%call br%>&nbsp;&nbsp;&nbsp; <%=cutstr(rssoft("soft_desc"),160,false,none)%><%call br%></td>
 </tr>
 <tr>
 <td bgcolor="#F5F5F5" width="30%" height="25">&nbsp;软件大小：<font color="#000000"><%=rssoft("soft_size")%></font></td>
 <td bgcolor="#F5F5F5" width="30%">&nbsp;推荐程度:<img src="img/star<%=rssoft("soft_commend")%>.gif"align="absmiddle"></td>
 <td bgcolor="#F5F5F5" width="40%">&nbsp;快速下载：<a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=1" title="直接下载"><font color=5292FF><b>①</b></font></a>
 <%if rssoft("soft_url2")<>"" then%>
  <a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=2" title="直接下载">
<font color=31D3FF><b>②</b></font></a>
<%end if%>
<%if rssoft("soft_url3")<>"" then%>
<a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=3" title="直接下载"><font color=5292FF><b>③</b></font></a>
<%end if%>
<%if rssoft("soft_url4")<>"" then%>
<a href="opensoft.asp?soft_id=<%=rssoft("soft_id")%>&url=4" title="直接下载"><font color=31D3FF><b>④</b></font></a>
<%end if%></td>
</tr>
</table><%call br%<%
i=i+1
rssoft.movenext
loop
else
if rssoft.eof and rssoft.bof then
%>
<%call br%><table width="530" border="1" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" align="center">
<tr>
<td height="100" colspan="4" bgcolor="#Ffffff" align="center">  <%if keyword<>"" then%>对不起，没有找到你想要的文件！
<%else%>该类别当前还没有文件下载！
<%end if%>  </td>
5.2.5教程文章（art.asp）
  建设本页是想为大家提供些帮助，它可以帮我们解决很多日常生活中碰到的事情，这些都是我们日常生活中常碰见的问题。本页主要有热门排行、文章查找、本站声明等栏目。本页下面还分为好几个子网页，主要有经验交流、宽带路由、共享上网、精品收藏等几个网页。
 本页主要由inc/config.asp、mdb.asp、inc/format.asp、inc/error.aspi、nc/inc.asp、inc/art_body.asp这几个文件组成，而inc/config.asp、mdb.asp、inc/format.asp、inc/error.aspi、nc/inc.asp这几个文件在前面已经讲过了，最后一个文件也是对本页内容进行设置的文件。
 至于本页的设计代码几乎与前面的差不多，所以我也不多讲了。
5.2.6最新酷站（web.asp）
 本页是想让大家看看别人网页有哪些优点以及制作过程，只是由于时间仓促没完成这个目标，只是对以前自己制作的网站与现在这个进行连接，想叫大家比比看，我该有哪些要改进的，这页主要有点击排行、站长推荐2部分组成，然后下面有3个子页，包括设计网站、个体作品、程序演示等，当然里面的设计网站与程序演示都没完成。
 这个网页包括inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp、inc/web_body.asp几个源程序组成，而前几个源程序跟上面讲过的一样，除了最后一个是对本页的修改与设置。
 这个网页与前几个的版块设计差不多一样的，所以就不详细介绍了。
5.2.7自动连接（link.asp）
 设计本页是为了大家便于与其他网站进行连接，以便查找本网站中多没有的内容，使打家接触的范围加大。本页主要有链接说明、本站LOGO信息栏、提交信息栏等小版块，本页的链接主要有三种方式，有LOGO连接、合作网站、文本连接几种方式进行自动连接。
 本页的程序包括inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp、inc/link_body.asp几个程序文件，前几个与前面讲过的一样，而最后则是对本页内容的设置。本页的程序几乎与前面一样，也不加说明了。
5.2.8精美相册（photo.asp）
 建立本页是为了发表些好玩的好看的图片供大家下载。它主要有点击排行、站长推荐、以及图片栏。它下面又分为网络美眉、军事图片、奇迹怪谈等子网页。     这个主要由inc/config.asp、mdb.asp、inc/format.asp、inc/error.asp、inc/inc.asp、inc/photo_body.asp等文件组成，这几个文件的作用是一样的，就不讲了。
 在这里我们就主要讲讲排行版的制作
<tr><td align="center"> <%call br%>
<%sql="SELECT top 10 * FROM photo ORDER by ph_count DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%><table width="760%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>&nbsp;<img src="img/title.gif" border="0">&nbsp;<a href="java script:photo('rephoto.asp?ph_id=<%=rs("ph_id")%>')" title='点击次数：<%=rs("ph_count")%>次'><%=rs("ph_name")%></a></td>
</tr>
</table>
<%call br%>
%rs.movenext
loop
if rs.eof and rs.bof then%>
当前还没有照片
<%end if%>
</td>
</tr>
<TR>
<td align=center height="24" background="img/title.jpg"><strong>站
长 推 荐</strong></td>
</tr>
5.2.9本站社区（BBS.ASP）
 建立本论坛的做用可说非常大，它可以为大家提供一个聊天的场所，也可以为大家提供一个发表个人看法的地方。本社区的流程图：
  
 这个页面包括mybbs_conn.asp、mybbs_inc/inc_const.asp 、mybbs_inc/inc_index.asp、 inc.asp等几个文件组成。mybbs_conn.asp是用来与论坛数据库进行连接的，mybbs_inc/inc_const.asp这是设置论坛登陆界面内容的，mybbs_inc/inc_index.asp这是对首页各个版块进行设置修改的，inc.asp这是页面进行修改设置的。
 每个论坛都要有计数器，在这里我就利用文件处理组件FILESYSTEM的强大功能来制作，因为我觉的比用Application对象计数器要好，Application计数器当有20分钟没有人连上该网页或关机时，计数器会被归零。而文件计数器却不会因时间而消失。我用Count.txt存放访问人次。代码如下：whichfile=server.mappath("pic\count.txt")set myfile=server.createobject("scripting.filesystemobject") 创建一个set thisfile=myfile.opentextfile(whichfile) 组件对象visit=thisfile.readlinethisfile.close 读取计数器数据文件Count.txt中的计数数据visit=visit+1 记录自加一次length=len(visit)for i=1 to lengthresponse.write "<img src="&mid(visit,i,1)&".jpg></img>" 将记录的数据用图片显示出来nextset thisfile=myfile.createtextfile(whichfile,1) 将新计数数据写入文件thisfile.writeline(visit) set myfile=nothing这样我就随时统计在线人数了。
5.2.10本站留言（book.asp）
 我设计完此页可以是为了大家能多给我提意见，这样更有助于网站以后的发展。它有增加留言、查看留言、管理留言等栏目，这样就可以表达用户的看法了。
 这页主要包括guest.asp、add.asp、teachans.asp、allmessage.asp等程序组成。
 意见留言结果网页guest.asp：用来显示游客发言与站长回复内容，同时还具备一般模式与管理模式两种显示方法。    发言数据处理ASP程序add.asp：处理发表的意见数据，同时将这些意见数据记录起来并将网页显示转向至意见留言结果网页。     回复表单网页teachans.asp：让站长针对某位游客的发言作出独立的回答。     回复数据处理ASP程序anssave.asp：处理站长回复的数据内容，同时将这些意见数据起来并将网页显示转向至意见留言结果网页。     数据表文件allmessage.asp：用来储存家长发言数据与老师回复数据的Access类型数据库文件。“数据表文件”负责存放游客发言数据与站长回复内容的数据记录，为Access类型的库文件，将它定名为：“message.mdb”。
 第六章   后台数据库管理
6.1管理员的管理
 本后台数据库管理是实现多用户发布，多栏目管理，设有2类管理员他们分别是普通管理员和超级管理员。
 1. 普通管理权限：只能在自己的小类录入新闻，在未经审核的文章可以自由修改、删除。
 2. 超级管理员：除上述权限之外，拥有专题管理、大类管理、小类管理、评论管理、公告管理、广告管理、首页目录管理、合作站点管理、友情站点管理、网站调查 、管理、注册用户管理权限，拥有统计数据管理、系统初始化、网站资料管理、服务器信息、管理员管理权限。
以下是实现管理员添加的源代码：
<form  method=post  action="admin_AdminSave.asp">
//这个form对象是指当提交添加资料时就会调用admin_AdminSave.asp这个文件把信息添加到数据库。
<table border="1" width="40%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td align="center" bgcolor="<%=MainTColor%>" height=20 colspan=2>添 加 管 理 员</td>
</tr>
<tr>
<td align="right">管 理 员 名：</td>
<td><input type=text name=UserName size="15"  value=""></td>
</tr>
<tr>
<td align="right">管 理 权 限：</td>
<td>
<select name="oskey">
<option value="super">超级管理员</option>
<option value="senior">普通管理员</option>
</select>
</td>
</tr>
<tr>
<td align="right">管 理 密 码：</td>
<td><input type=text name=Password size="15"  value=""></td>
</tr>
<tr>
<td align="center" colspan=2>
<input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit">
<input type=reset name="Submit" value="取消">
</td>
</tr>
</table>
</FORM>
以下为调用文件admin_AdminSave.asp的源代码
<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->//此头文件的作用是与数据库建立连接
<%
founderr=false
username=request.form("username")
password=request.form("password")
oskey=request.form("oskey")
if username="" or password="" then
errmsg=errmsg+"<br>"+"<li>管理员名称和密码都不能为空！"
founderr=true
call error()
Response.End
end if
if request("act")="edit" and request("id")<>"" then
id=request("id")
sql="select * from admin where id="& request("id")
rs.open sql,conn,1,3
if not rs.eof then
rs("oskey")=oskey
rs("Username")=username
rs("Password")=password
rs.update
end if
rs.close
elseif request("act")="add" then
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("oskey")=oskey
rs("Username")=UserName
rs("Password")=Password
rs.update
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_AdminMana.asp"
%>
6.2后台数据库管理
 后台管理首页如图6.3.1所示

 图6.3.1后台管理首页
后台管理流程图如下：
                
1普通管理员
1.1从管理首页的普通管理进去，可以进入普通管理添加界面。
1.2 专题添加的实现源代码类似于大类添加的实现功能。
1.3 高级管理员可以任意的添加，删除，修改各类专题，但其管理的资源比较少只有这些版块。具体界面如图6.3.2

2.超级管理
 2.1  从管理首页的超级管理进入，可以进入一级目录管理界面。
 2.2  管理员可以任意的添加、修改、删除各个专题，除了拥有普通管理员的权限外，还包括对公告管理、广告管理、首页目录管理、合作站点管理、友情站点管理、网站调查 、管理、注册用户管理权限，拥有统计数据管理、系统初始化、网站资料管理、服务器信息、管理员管理权限。
 
 

图6.3.3超级管理界面
以下是超级管理添加的部分源代码
sql="select * from BigClass"
rs.open sql,conn,3,3
do while not rs.eof
if rs("BigClassname")=typename
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from BigClass"
rs.open sql,conn,3,3
rs.addnew
rs("BigClassname")=typename
rs("BigClassType")=BigClassType
if BigClassType=0 then
rs("BigClassView")=0
else
rs("BigClassView")=1
end if
rs("BigClassID")=howmany+1
rs("BigClassmaster")="无"
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_BigClassMana.asp"
%>
3. 评论管理
 3.1 从管理首页的评论管理进入，可以进入评论的目录管理界面。
 3.2 在评论管理界面分页显示所有的评论内容，同时可以知道发布评论的会员名称。
 3.3 管理员可以删除任何一条评论信息。
4. 公告管理
 4.1 从管理首页的公告管理进入，可以进入公告目录管理界面。
 4.2 公告管理界面显示所有公告信息包括公告的标题，发布人以及发布时间。
 4.3 管理员可以选择公告信息，修改、删除信息。
以下是将数据库中选中的公告以滚动的形式显示于前台的源代码
<!--#include file="inc/char.inc"-->
<script language=java script>//实现滚动功能的是这段java代码。
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{if (version == "e4")
{document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:110px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")}}
function marquee2()
{if (version == "e4")
{document.write("</marquee>")}}
function MM_swapImgRestore() { //v3.0
vari,x,a=document.MM_sr;for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<table border="0" cellspacing="0" cellpadding="0" width="100%" align="center" bgcolor="<%=RightBColor%>">
<tr>
<td width="100%" bgcolor="#DE0000" height="18" align="center" > <font color="#FFFFFF">本站公告</font></td>
</tr>
<%InTable("bottomr")%>
<tr>
<td bgcolor="<%=RightCColor%>">
<table width="158" border="0" cellspacing="0" cellpadding="8" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td style="WORD-WRAP: break-word">
<table border="0" width="100%" cellspacing="0">
<tr>
<%
set rs=conn.execute("SELECT * FROM Announce where Ischecked=true")
if rs.eof and rs.bof then
%>
<td width="100%" align="center">尚无任何公告</td>
<%
else
%>
<td width="100%"> <script language=java script>marquee1();</script>
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<% if not isnull(rs("Title")) then%>
<TR>
<td width="100%" align=center height=20><font
color=<%=AlertFColor%>><%=rs("Title")%></font></td>
</TR>
<% end if%>
<TR>
<td width="100%"><%=rs("Content")%></td>
</TR>
<TR>
<td width="100%" align=right><%=rs("Author")%></td>
</TR>
<TR>
<td width="100%" align=right><%=Dateva lue(rs("DateAndTime"))%></td>
</TR>
</table><script language=java script>marquee2();</script>
</td>
<%
end if
rs.close%>
</tr></table>
6. 网站调查管理
 6.1 从管理首页的网站调查管理进入，可以进入网站调查目录管理界面。
 6.2 此界面显示所有调查主题信息，管理员可以任意舔加主题，修改、删除主题，换选调查主题等。
 6.3 进入调查主题的详细列表以后，管理员还可以自己设定调查评语，随时修改主题列表内容。
7. 用户注册等级管理
 7.1 从管理首页的用户注册管理进入，可以进入用户目录管理界面。
 7.2 此界面分页显示所有注册会员名，会员等级等。
 7.3 管理员可以对会员进行修改、锁定、删除等功能，而且可以方便查看会员详细资料。
8. 附件和图片上传。
6.3其它系统管理
1. 统计数据管理
这项管理只有超级管理员才拥有管理权限，主要是统计新闻被浏览的情况，有利于让管理员对该网站的效果有个大概的了解，管理员可以对数据进行初始化修改等操作。
2. 系统初始化
这项功能也只有超级管理员才拥有管理权限，主要是对系统的数据进行初始化，清空老的没用了的数据，从而使数据库的信息清晰明了。
3. 网站资料管理
 这项管理主要包括网站属性、首页栏目设定、统计数据属性设置、网站颜色设置。
 3.1网站属性里面管理员可以设置网站名称、网站标题、网站地址、网站Logo
址、新闻图片相对路径、版权信息、站长信箱、开站日期、新闻页FLASH宽度分页新闻显示数、首页新闻显示数、焦点新闻显示数、推荐新闻显示数、热门新闻显示数、热门图片显示数、专题显示数、NEW标志限制天数、图片 上传组件选择  网站延时设定。
 3.2 首页栏目设定主要是设置前台首页新闻显示的布局，主要包括栏与栏之间
隔、是否显示公告栏、是否显示焦点新闻、是否显示推荐新闻、是否显示新闻排行、是否显示图片排行、是否显示网站调查、是否显示统计数据、是否显示搜索栏、是否显示网站图标、是否显示用户登陆栏、是否显示合作站点、是否显示友情站点、是否显示推荐站点、是否显示用户评论。
 3.3 统计数据属性设置是设置前台首页新闻显示的数据信息，包括是否显示在
人数不、是否显示用户总数、是否显示新用户总数、是否显示新闻总数、是否显示专题总数、是否显示浏览总数、是否显示今日浏览数、是否显示昨日浏览数、是否显示本月浏览数、是否显示上月浏览数、是否显示开站总天数  是否显示平均浏览数。
 3.4 网站颜色设置是系统为每张网页不同结构和区域所配置的颜色。各项颜色实质都存储在数据库中，可以方便的为颜色设置时调用。
4. 行为统计管理
 主要是对管理员、公告信息、新闻情况、会员信息等的详细资料的显示，以及按条件查询等。
5. 主要的数据初始化是通过文件const.asp这个文件来实现。
第七章  总结
 ASP从推出至今时间也不算漫长，由于它具有开发简单，功能强和灵活等优点，现在已被广泛接受，成为开发动态网络站点的主要技术之一，有人声称ASP已在Web开发领域悄悄地进行着一场革命。今天已有上万个Web站点使用了ASP技术，其中包括许多Internet中最大的站点。有人估计，在过去几年中，ASP开发人员已达百万之多，预计在今后的发展过程当中将会越来越多。ASP正慢慢成为动态Web应用程序开发环境的主流。
 基于Web的现代远程教育是一种新型的教育方式，随着现代信息技术的发展，它将越来越受到人们的关注并逐步取代传统教育，21世纪它将成为构筑终身学习体系的主要手段。而基于Web的动态交互式新闻发布系统则是现代网络教育不可缺少的一部份。
 本文提出了一种基于Web的校园综合网站，该网站的多用户发布，多栏目管理，使学校的新闻信息及时、准确的得以发布。学生通过会员注册直接参与新闻信息的评论，使学生的意见和需求能够及时的得以提出，激发了他们的学习欲望。
 本站的优点是界面好，布局合理，有良好的用户权限和密码限制，防止人为的破坏与盗窃数据资源，面向社会广大爱好上网冲浪的人，网站便于管理，容易更新，设计符合大多数人的要求。当然由于时间匆忙，所学知识有限，本站有很有很多缺点需要修改，如本站的链接音乐太少，可供下载的软件也很少，还有新闻还不够多、丰富，更主要的就是论坛功能太少，网络功能欠缺本系统只能在单片机上运行，不能实现网络连接，资源共享所以说本站还有很多不完善之处，请大家多提意见。
 利用ASP技术实现学校的新闻能够及时的得以发布是一项很有效方法，这种组建的方式，可以应用于网站的其它栏目。又由于ASP编程所用的Vbscript 与 Jscript语言较其它语言较简洁、易操作、功能较强非常适合广大用户进行网站的开发。
 ASP虽然提供了功能强大的Web应用程序开发环境,但和其它技术一样,它也存在着某些缺点。Web服务器还不支持ASP的运行。但ASP毕竟是软件霸主微软精心设计的一个宠儿,人们不得不慢慢向它靠拢，现在越来越多的Web服务器已开始支持ASP。以信息网站为核心的Web信息系统建设方兴未艾，运用新技术进行创新的应用开发，提高网络系统应用成效将是一个不竭的课题。
第八章 参考文献
参考文献：
 一、ASP动态网站编程    石志国 编著    清华大学出版社出版    2002年9月出版
 二、ASP与网页数据库设计    邓问渊  陈惠贞  陈俊荣 编著    中国铁道出版社出版    2003年4月出版
 三、ASP编程基础与实例    丁贵广等 编著    机械工业出版社    2002年9月出版
 四、HTML4.0实用编程技术    马志勇  林立志  王罡  徐延明等 编著    中国水利水电出版社出版    抖斗书屋审校    2003年11月出版
参考网站：

附录：
1.网站流程图：

2.论坛流程图：
                                 

源代码：

1．首页内容源代码：
 <%
 sub index_body()
 %>
 <TABLE width=760 height="38" border=1 align=center cellPadding=0 cellSpacing=0 borderColor="<%=border%>" bgcolor="#ffffff" frame=vsides rules=none>
   <TR>
     <td height="24" align="right">&nbsp;&nbsp; </TD>
 </TR>
 <TR>
 <TD width="760" background="img/menu_bg2.gif" height="4"></TD>
 </TR>
 </TABLE>
 <TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
 <TR>
 <td width=204 align=left vAlign=top background=img/left_bg.gif>
 <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
 <TR><td width=204><img src=img/left_top.gif usemap="#Map" border="0"><map name="Map"><area shape="rect" coords="41,11,67,24" href="book.asp" title="留言本"><area shape="rect" coords="114,11,140,24" title="帮助信息未设"></map></td></tr>
 </table>
 <TABLE width=196 border=0 align=left cellPadding=0 cellSpacing=0>
 <TR>
 <td align=center height="34" background="img/left01.gif"><strong>社 区 登 陆</strong></td>  
 </tr>
 <TR>
 <td align=center><table align='center' width='100%' border='0' cellspacing='0' cellpadding='1'>
               <form method="post" action="<%=bbslogin%>">
                 <tr>
                   <td height='25' align='right'>用户名：</td>
                   <td height='25'><input name='<%=username%>' type='text'  size='10' maxlength='20' class="lanyu"></td>
                 </tr>
                 <tr>
                   <td height='25' align='right'>密&nbsp;&nbsp;码：</td>
                   <td height='25'><input name='<%=password%>' type='password' size='10' maxlength='20' class="lanyu"></td>
                 </tr>
                 <tr>
                   <td height='25' align='right'>登陆保留</td>
                   <td height='25'><select name="select">
                       <option value="0">不保留</option>
                       <option value="1">保留一天</option>
                       <option value="2">保留一月</option>
                       <option value="3">保留一年</option>
                     </select></td>
                 </tr>
 <input type=hidden name=comeurl value=http://www.127.0.0.1/gzhy/bbs/index.asp>
                 <tr align='center'>
                   <td height='30' colspan='2'><input name='submit' type='submit' value=' 登录 ' class="button">
                     <input name='reg' onclick='window.location="<%=reg%>"' type='button' value='注册' class="button">
 <br><a href="<%=lostpass%>" target="_blank">忘记密码？</a>
                     <%call br%>
                   </td>
                 </tr>
               </form>
             </table>
 <TABLE bgColor=#f7f7f7 border=0 cellPadding=0 cellSpacing=0 width=100%>
   <TR>
       <FORM action=http://www.baidu.com/baidu target=_blank>
         <td width="100%" height=38 colspan="2" align=middle valign=center> <DIV align=center><FONT style="FONT-SIZE: 12px">百度搜索
             <input id=word name=word size="10" value="请输入关键字"  onMouseOver="this.focus()" onblur="if (value ==''){value='请输入关键字'}" onFocus="this.select()" onClick="if(this.value=='请输入关键字')this.value=''">
             </FONT>
             <INPUT name=image type=image id="image" src="" align=middle width=30 height=17 border=0>
             <FONT style="FONT-SIZE: 12px"><A href="" target=_blank></A></FONT>   
             <INPUT id=tn name=tn type=hidden value=gzhy>  
 <SCRIPT type="text/java script" src=">  
 <SCRIPT language="java script">  
 <!--
 BaiduWriteAD("gzhydg","3");
 //-->
 </SCRIPT>
 <img src=http://un.baidu.com/images/st.gif?tn=gzhy width=0 height=0>  
           </DIV></TD>
       </FORM>
     </TR>
 </TABLE>
 </td>
 </tr>
 </table>
     </TD>
 <td width=1 height="190" background="img/xu.gif"></TD>
 <td width=553 align=left vAlign=top bgcolor="#ffffff">
 <TABLE width=553 border=0 align=top cellPadding=0 cellSpacing=0>
 
 <TR>
 <td align=top width=366 colspan="2" background="img/news.gif" height="25"><img src="img/0.gif" width="366" height="25" usemap="#Map1" border="0"><map name="Map1"><area shape="rect" coords="328,6,359,17" href="news.asp" title="更多新闻...."></map></td><td align=center width=186 background="img/fj126.gif"></td>
 </tr>
 <TR>
           <td width=366 align=top valign="top">
 <%call index_news()%>
           </td>
           <td width=1 height="160" background="img/xu.gif"></TD>
           <td width=186>
             <div align="center"><font color=#ccccff>
               <script language=java script1.2>
 
 var marqueewidth=166
 var marqueeheight=120
 var speed=1
 var marqueecontents='<font color="#999999"> &nbsp 亲爱的朋友：<br>&nbsp;&nbsp          您好！<br>&nbsp;&nbsp;本站的发展离不开大家的支持，如果您对本站有什么好的建议，请与我们联系，我站会在最短的时间里满足您的要求，另外，本站想找一个合适的合作伙伴，如果您愿意的话，请发电子邮件与我联系，本站电子邮件为：，本站将会在最短的时间里与您联系，如果加入本站后，您为本站做的一切都是义务劳动。谢谢！   --站长</font>'
 if (document.all)
 document.write('<marquee direction="up" scrollAmount='+speed+' style="width:'+marqueewidth+';height:'+marqueeheight+'">'+marqueecontents+'</marquee>')
 function regenerate(){
 window.location.reload()
 }
 function regenerate2(){
 if (document.layers){
 setTimeout("window.onresize=regenerate",450)
 intializemarquee()
 }
 }
 function intializemarquee(){
 document.cmarquee01.document.cmarquee02.document.write(marqueecontents)
 document.cmarquee01.document.cmarquee02.document.close()
 thelength=document.cmarquee01.document.cmarquee02.document.height
 scrollit()
 }
 function scrollit(){
 if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){
 document.cmarquee01.document.cmarquee02.top-=speed
 setTimeout("scrollit()",100)
 }
 else{
 document.cmarquee01.document.cmarquee02.top=marqueeheight
 scrollit()
 }
 }
 window.onload=regenerate2
 </script>
               </font></div>
           </td>
 </tr>
 <TR><TD background=img/xu2.gif colSpan=3 height=1></TD></TR>
 <TR><TD colSpan=3 height=20 BGCOLOR=#f4f4f4><marquee><%call index_diary()%></marquee></TD></TR>
 <TR><TD background=img/xu2.gif colSpan=3 height=1></TD></TR>
 <TR><TD align="center" colSpan=3 height=20 BGCOLOR=#f4f4f4>
 <%
 response.write "今天是"
 response.write formatDateTime(Date(),1) & ","
 '格式化为长日期格式输出显示
 response.write " 离<font color=red>"&rizi&"</font>还有"
 response.write "<font color=blue><u>"
 '调用DateDiff函数,计算日期间隔.
 response.write DateDiff("d",Date(),""&rdate&"")
 response.write "</font></u>"
 response.write "天"
 %></TD></TR>
 </table>
 </TD>
 </TR>
 </TABLE>
 <TABLE align=center border=1 cellPadding=0 cellSpacing=0 width=760 borderColor="<%=border%>" frame=vsides rules=none>
 <TR>
 <td width=204 align=left vAlign=top background=img/left_bg.gif>
 <TABLE width=198 border=0 align=left cellPadding=0 cellSpacing=0>
 <TR><td align=center height="41" background="img/post.gif"></td></tr>
 <TR><td align=center height="100" >
 <%call index_vote()%>
 </td></tr>
 <TR><td align=center height="41" background="img/body.gif"></td></tr>
 <TR><td align=center height="150">
 <%call index_coolsites()%>
 </td></tr>
 </table></TD>
 <td width=1 height="250" background="img/xu.gif"></TD>
 <td width=553 align=left vAlign=top bgcolor="#ffffff">
 <TABLE width=553 border=0 align=top cellPadding=0 cellSpacing=0>
 <TR>
 <td align=top width=276 height="40" background="img/wu.gif"><img src="img/0.gif" width="276" height="40" usemap="#Map2" border="0"><map name="Map2"><area shape="rect" coords="208,9,249,20" href="dj.asp" title="更多舞曲...."></map></td><td width=1 background="img/xu.gif"></TD><td align=top width=276 height="40" background="img/wz.gif"><img src="img/0.gif" width="276" height="40" usemap="#Map3" border="0"><map name="Map3"><area shape="rect" coords="208,9,249,20" href="art.asp" title="更多文章...."></map></td>
 </tr>
 <TR>
           <td height="200" align=top valign="top">
 <%call index_dj()%>
           </td>
           <td width=1 background="img/xu.gif"></TD>
           <td width=276 align=top valign="top">
             <%call index_article()%>
           </td>
 </tr>
 <TR>
 <td align=top width=276 height="40" background="img/down.gif"><img src="img/0.gif" width="276" height="40" usemap="#Map4" border="0"><map name="Map4"><area shape="rect" coords="208,9,249,20" href="down.asp" title="更多下载...."></map></td><td width=1 background="img/xu.gif"></TD><td align=top width=276 height="40" background="img/js.gif"><img src="img/0.gif" width="276" height="40" border="0" usemap="#Map5"><map name="Map5"><area shape="rect" coords="208,9,249,20" href="<%=bbs%>" title="更多贴子...."></map></td>
 </tr>
 <TR>
           <td height="200" align=top valign="top">
             <%call index_soft()%>
           </td>
           <td width=1 background="img/xu.gif"></TD>
           <td width=276 align=top valign="top">
             <script src=<%=bbslist%>></script>
           </td>
 </tr>
 </table>
 </TD>
 </TR>
 </TABLE>
 <table width="760" borderColor="<%=border%> border="0" align="center" cellpadding="0" cellspacing="0" frame=vsides rules=none bgcolor="#ffffff">
 <TR><TD background=img/xu2.gif colSpan=2 height=1></TD></TR>
   <tr>
     <td width="16"><IMG height=70 src="img/link.gif" width=16 border=0></td>
     <td width="*"><table width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td><%call index_flink()%></td>
         </tr>
       </table>
       <table height="5" width="100%" border="0" cellspacing="0" cellpadding="0">
         <tr>
           <td><%call index_title()%></td>
         </tr>
       </table></td>
   </tr>
 </table>
 <%
 end sub
 %>
2.本站内容管理源代码：
<!--#include file="hanshu.asp"-->
<%
'菜单栏路径设置
'------------------------------------------------------------
dh1url="index.asp"    '第1个菜单的地址
dh1name="首 页"    '第1个菜单的名字
dh2url="news.asp"    '第2个菜单的地址
dh2name="新闻快递"     '第2个菜单的名字
dh3url="dj.asp"     '第3个菜单的地址
dh3name="音乐视听"    '第3个菜单的名字
dh4url="down.asp"     '第4个菜单的地址
dh4name="精品下载"    '第4个菜单的名字
dh5url="art.asp"     '第5个菜单的地址
dh5name="教程文章"    '第5个菜单的名字
dh6url="web.asp"     '第6个菜单的地址
dh6name="最新酷站"    '第6个菜单的名字
dh7url="link.asp"     '第7个菜单的地址
dh7name="自助连接"    '第7个菜单的名字
dh8url="photo.asp"     '第8个菜单的地址
dh8name="精美相册"    '第8个菜单的名字
dh9url="../gzhy/bbs/bbs.asp"     '第9个菜单的地址
dh9name="本站社区"    '第9个菜单的名字
dh10url="book.asp"    '第10个菜单的地址
dh10name="本站留言"    '第10个菜单的名字
'--------------------------------------------------------------------
'网站基本设置
'--------------------------------------------------------------------
jianzhan="2004-7-9"       '建站时间设置
rizi="春节"        '倒计时名字
rdate="04-01-22"      '需要倒计时的日期
WebName="三明电大110"     '设置站点名称
homeurl=""  '网站地址出现在首页下部的连接
logo="img/logo.gif"    '网站LOGO出现在首页下部的连接
datamdb="data/gzhy.mdb"  '数据库路径
myname="lisu"     '站长名称出现在About ME里面
born="1983.12.12"    '站长出生日期出现在About ME里面
from="福州"  '站长的出生地出现在About ME里面
email="lisu20032002.com"  '站长的信箱出现在About ME里面
qq="57601452"   '站长的QQ出现在About ME里面
'--------------------------------------------------------------------
'论坛登陆设置
'此功能只是实现一个论坛入口的功能,你的论坛必须装有首页调用插件.(推荐使用动网)
'--------------------------------------------------------------------
bbslogin="../gzhy/bbs/login.asp?action=chk"  '论坛登陆的Form地址
reg="../gzhy/bbs/reg.asp"  '论坛注册地址
lostpass="../gzhy/bbs/lostpass.asp"  '忘记密码连接路径
bbslist="../gzhy/bbs/newtopic.asp?boardid=all&lock=0&bname=0&tlen=13&n=11&sdate=&orders=2&info=3&action=1&reply=0&showpic=1"   '论坛新帖调用路径必须有论坛首页调用插件的论坛
bbs="../gzhy/bbs/"   '更多新帖调用路径
username="username"   '论坛用户名字段名，动网的论坛此字段不用更改
password="password"   '论坛密码字段名，动网的论坛此字段不用更改
copyright="&copy; 2004-2008 0304.Com版权所有<br>站长：gzhy"&my&" 联系QQ:"&qq&""   '底部版权信息设置
'--------------------------------------------------------------------
'播放顶部设置
'--------------------------------------------------------------------
djplay1="相册"     '菜单名
dplay1="photo.asp"   '连接路径
djplay2="留言"
dplay2="book.asp"
djplay3="宏业"
dplay3=""
djplay4="报 错"
dplay4="re_error.asp?dj_id="
djplay5="关 于"
djptitle="关于本站"
djplay6="版权"
djplay7="作者"
djplay8="联系"
djplay9="合作"
djplay10="版本"
ban="版本 <font color=red>gzhyzx</font>"   '版本
jurl=""      '显示文字
xie="特别合作站点<a href='http://www.5u5u.com'>5u5u.com</a>" '
'----------------------------------------------------------------------------------------
'网站分页设置
'-------------------------------------------------------------------
border="#666666"         '设置边框颜色
indexnews=7              '首页显示的新闻的条数
indexcoolsite=1          '首页显示的酷站的个数
diaryperpage=1           '首页显示的公告的篇数
indexdj=10               '首页显示的舞曲的个数
indexarticle=10          '首页显示的文章的篇数
indexsoft=10             '首页显示的程序的个数
indexfriendlink=6        '首页显示的友情链接的个数
indexphoto=1   '首页显示的照片个数
newsperpage=15           '每页显示的新闻的条数
djperpage=25             '每页显示的舞曲的个数
articleperpage=20        '每页显示的文章的篇数
softperpage=10           '每页显示的程序个数
coolsitesperpage=8       '每页显示的酷站的个数
picperpage=20            '每页显示的照片的个数
newsoft=10               '显示最新的程序个数
newdj=10                 '显示最新的舞曲个数
newpic=2                 '显示最新的照片个数
newcoolsite=1            '显示最新酷站的个数
bestdj=10                '显示推荐舞曲的个数
bestpic=2                '显示推荐照片的个数
bestcoolsite=1           '显示推荐酷站的个数
toparticlenum=10         '显示阅读次数最多的X篇文章
topsoftnum=10            '显示下载次数最多的X个程序
adflperpage=20           '链接管理页面每页显示的链接个数
%>
3.论坛首页源代码：
<!-- #include file="../mybbs_conn.asp" -->
<!-- #include file="../mybbs_inc/inc_const.asp" -->
<!-- #include file="../mybbs_inc/inc_index.asp" -->
<!-- #include file="inc.asp" -->
<head>
<TITLE><%=mybbsname%> - 论坛首页 - powered by mybbs</TITLE>
<!--- This forum Program is Powered by MYBBS --->
<!--- Official Website : --->
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="author" content="永不放弃,mybbs,mybbs.org,www.mybbs.org">
<meta name="description" content="mybbs官方网站,mybbs.org,www.mybbs.org">
<meta name="keywords" content="my,bbs,mybbs,官方网站,mybbs.org,www.mybbs.org">
<LINK href="style.css" rel=stylesheet type=text/css>
</HEAD>
<BODY>
<TABLE class=borders cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD>
<%
'**************************************************
'调用模块：sub top()
'调用作用：页面顶部
'**************************************************
call top()
%>  
           <TABLE class=page cellSpacing=0 cellPadding=10 width=750 align=center    border=0>
        <TBODY>
        <TR>
          <TD>
                      <TABLE class=tborder cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=1 cellPadding=4 width="728" border=0>
                    <TBODY>
                    <TR vAlign=center class=alt>
                      <TD  width="22"><IMG  src="images/icon_navbar_01.gif" border=0></TD>
                      <TD  width="100%">欢迎光临&nbsp;[&nbsp;<b><%=mybbsname%></b>&nbsp;]&nbsp;-&nbsp;<%=mybbswebme%></TD>
                      </TR>
                     </TBODY>
                   </TABLE>
                 </TD>
               </TR>
               </TBODY>
            </TABLE>
                        <TABLE cellSpacing=0 cellPadding=2 width="100%" align=center  border=0>
              <TBODY>
              <TR vAlign=top>
               <TD  width="70%" class=alt>
<%               
'**************************************************
'调用模块：sub inc_index_announce()
'调用作用：首页公告
'**************************************************                
call inc_index_announce()
%>
    </TD>  
           </TR>
              </TBODY>
            </TABLE>
  <%
'**************************************************
'调用模块：include inc_class_open
'调用作用：mybbs分类开始
'**************************************************
%>
<!-- #include file="../mybbs_inc/inc_class_open.asp" -->

            <TABLE class=tborder cellSpacing=0 cellPadding=0 width="100%"  align=center border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD class=tcat colSpan=6>≡&nbsp;<%=rsclass("classname")%>&nbsp;≡</TD>
                    </TR>
                    <TR align=middle>
                      <TD class=thead width="8%">　</TD>
                      <TD class=thead align=left width="36%">论坛</TD>
                      <TD class=thead width="8%">主题</TD>
                      <TD class=thead width="8%">回复</TD>
                      <TD class=thead width="30%">最后更新</TD>
                      <TD class=thead width="10%">斑竹</TD>
                    </TR>
<%
'**************************************************
'调用模块：include inc_forum_open
'调用作用：mybbs论坛开始
'**************************************************
%>
<!-- #include file="../mybbs_inc/inc_forum_open.asp" -->
               
                    <TR align=middle onmouseover="this.bgColor='#f1f1f1';" onmouseout="this.bgColor='#f6f6f6';" bgcolor='#f6f6f6'>
                      <TD  vAlign=center align=center width="8%">
                      <A  href="listtheme.asp?area=<%=clng(rs("areaID"))%>">
                      <%if forumvip=1 then%>
                      <IMG   src="images/forum_vip.gif"  border=0  alt="VIP板块">
                      <%elseif forumtime<24 then%>
                      <IMG   src="images/forum_new.gif"  border=0  alt="有新帖">
                      <%else%>
                      <IMG   src="images/forum_old.gif"  border=0  alt="无新帖">
                      <%end if%>
                      </A></TD>
                      <TD  align=left width="36%" >
                       <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                          <TBODY>
                          <TR>
                            <TD ><A  href="listtheme.asp?area=<%=clng(rs("areaID"))%>">
       <b><%=rs("areaname")%></b></a><BR><%=rs("areaDescript")%></TD>
                           </TR>
                           </TBODY>
                         </TABLE>
                      </TD>
                      <TD  width="8%"><%=rs("themecount")%></TD>
                      <TD  width="8%"><%=rs("replycount")%></TD>
                      <TD  width="30%">
                        <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
                          <TBODY>
                          <TR align=right>
<%
'**************************************************
'模  块：sub inc_index_lasttheme()
'作  用：首页最后更新主题
'**************************************************   
call inc_index_lasttheme()
%>                    
                          </TR>
                          </TBODY>
                         </TABLE>
                       </TD>
                       <TD  width="10%">
<%
'**************************************************
'模  块：sub inc_index_master()
'作  用：首页斑竹显示
'**************************************************   
call inc_index_master()
%>      </TD>
                    </TR>
<%
'**************************************************
'调用模块：include inc_forum_close
'调用作用：mybbs论坛结束
'**************************************************
%>
<!-- #include file="../mybbs_inc/inc_forum_close.asp" -->                    
                    <TR>
                      <TD class=tcatfoot colSpan=6><IMG height=1   src="images/clear.gif"  width=1></TD>
                    </TR>
                    </TBODY>
                  </TABLE>
                </TD>
               </TR>
               </TBODY>
             </TABLE>
 <br>
<%
'**************************************************
'调用模块：include inc_class_close
'调用作用：mybbs分类结束
'**************************************************
%>
<!-- #include file="../mybbs_inc/inc_class_close.asp" --> 
            <TABLE class=tborder cellSpacing=0 cellPadding=0 width="100%"       align=center border=0>
              <TBODY>
              <TR>
                <TD>
                  <TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
                    <TBODY>
<%
if forumplusset=0 then
%>                   
                    <TR>
      <TD class=tcat colspan=2>≡ 论坛娱乐 ≡</TD>
                    </TR>
                    <TR vAlign=top>
      <td class=alt  colspan=2>
<%
'**************************************************
'调用模块：sub inc_index_plus()
'调用作用：首页论坛娱乐显示
'**************************************************  
call inc_index_plus()
%>     
       </td>
     </TR>
     
<%
end if
if forumlinkset=0 then
%>                   
                    <TR>
                      <TD class=tcat colspan=2>≡ 论坛联盟 ≡</TD></TR>
                    <TR vAlign=top>
                    
       <td class=alt  colspan=2>
<%
'**************************************************
'调用模块：sub inc_index_link()
'调用作用：首页论坛联盟显示
'**************************************************  
call inc_index_link()
%>      
       </td>
     </TR>
     
<%
end if
%>
     <tr>
       <td class=tcat colspan=2>≡ 论坛统计 ≡</td>
     </tr>  
<%
'**************************************************
'调用模块：sub inc_index_info()
'调用作用：首页论坛统计显示
'**************************************************  
call inc_index_info()
if forumonlineset=0 then  
%>
   
     <tr>
       <td class=thead colspan=2>在线统计:论坛目前总共有&nbsp;<b><%=ionline_all%></b>&nbsp;人在线（<img border="0" src="images/online_vip.gif" >VIP会员&nbsp;<b><%=ionline_vip%></b>&nbsp;人&nbsp;|&nbsp;  <img border="0" src="images/online_member.gif" >普通会员&nbsp;<b><%=ionline_user%></b>&nbsp;人&nbsp;|&nbsp;<img border="0" src="images/online_guest.gif" >游客&nbsp;<b><%=ionline_guest%></b>&nbsp;人）</td>
     </tr>     
     <tr>
       <td class=alt width="5%" align=center valign=center><IMG src="images/boy.gif"   border=0></td>
       <td class=alt width="95%">
<%
'**************************************************
'调用模块：sub inc_index_online()
'调用作用：首页在线统计显示
'**************************************************  
call inc_index_online()
%>
      </td>
     </tr>
<%end if%>
     <tr>     
       <td class=thead colspan=2>论坛统计:</td>
     </tr>      
     </tr>
      <td class=alt width="5%" align=center valign=center><IMG src="images/stats.gif"   border=0></td>
       <td class=alt >会员:<b>&nbsp;<%=imemberCount%></b>&nbsp; 主题:&nbsp;<b><%=ithemeCount%></b>&nbsp; 帖子:&nbsp;<b><%=ireplyCount%></b>&nbsp;,&nbsp;&nbsp;历史最高在线纪录是&nbsp;<b><%=ionlineCount%></b>&nbsp;人同时在线,发生时间是:&nbsp;<b><%=ionlinetime%></b></td>
     </tr>     
                    <TR>
                      <TD class=tcatfoot colspan=2><IMG height=1   src="images/clear.gif"  width=1></TD>
                    </TR>
                    </TBODY>
                  </TABLE>
                 </TD>
                </TR>
                </TBODY>
              </TABLE>
             <br>
     <table border="0" width="50%" id="table1" cellspacing="0" cellpadding="0" align=center>
     <tr>
      <td><IMG   src="images/forum_old.gif"  border=0 ></td>
      <td>没有新的帖子</td>
      <td><IMG   src="images/forum_new.gif"  border=0 ></td>
      <td>有新的帖子</td>
      <td><IMG   src="images/forum_vip.gif"  border=0  alt="VIP板块"></td>
      <td>VIP专区</td>
     </tr>
    </table>  
</TD></TR></TBODY></TABLE>
<%
'**************************************************
'调用模块：sub footer()
'调用作用：页面尾部
'**************************************************
call footer()
%>    
</BODY>
4. 以下是将数据库中选中的公告以滚动的形式显示于前台的源代码：
<!--#include file="inc/char.inc"-->
<script language=java script>//实现滚动功能的是这段java代码。
<!--
//
var version = "other"
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";
function marquee1()
{
if (version == "e4")
{
document.write("<marquee style='BOTTOM: 0px; FONT-WEIGHT: 100px; HEIGHT:110px;  TEXT-ALIGN: left; TOP: 0px' id='news' scrollamount='1' scrolldelay='10' behavior='loop' direction='up' border='0' onmouseover='this.stop()' onmouseout='this.start()'>")
}
}
function marquee2()
{
if (version == "e4")
{
document.write("</marquee>")
}
}
function MM_swapImgRestore() { //v3.0
vari,x,a=document.MM_sr;for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<table border="0" cellspacing="0" cellpadding="0" width="100%" align="center" bgcolor="<%=RightBColor%>">
<tr>
<td width="100%" bgcolor="#DE0000" height="18" align="center" > <font color="#FFFFFF">本站公告</font></td>
</tr>
<%InTable("bottomr")%>
<tr>
<td bgcolor="<%=RightCColor%>">
<table width="158" border="0" cellspacing="0" cellpadding="8" align="center" style="TABLE-LAYOUT: fixed">
<tr>
<td style="WORD-WRAP: break-word">
<table border="0" width="100%" cellspacing="0">
<tr>
<%
set rs=conn.execute("SELECT * FROM Announce where Ischecked=true")
if rs.eof and rs.bof then
%>
<td width="100%" align="center">尚无任何公告</td>
<%
else
%>
<td width="100%"> <script language=java script>marquee1();</script>
<table border="0" width="100%" cellspacing="2" cellpadding="2">
<% if not isnull(rs("Title")) then%>
<TR>
<td width="100%" align=center height=20><font
color=<%=AlertFColor%>><%=rs("Title")%></font></td>
</TR>
<% end if%>
<TR>
<td width="100%"><%=rs("Content")%></td>
</TR>
<TR>
<td width="100%" align=right><%=rs("Author")%></td>
</TR>
<TR>
<td width="100%" align=right><%=Dateva lue(rs("DateAndTime"))%></td>
</TR>
</table><script language=java script>marquee2();</script>
</td>
<%
end if
rs.close
%>
</tr>
</table>
5. 实现管理员添加的源代码：
<form  method=post  action="admin_AdminSave.asp">
//这个form对象是指当提交添加资料时就会调用admin_AdminSave.asp这个文件把信息添加到数据库。
<table border="1" width="40%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td align="center" bgcolor="<%=MainTColor%>" height=20 colspan=2>添 加 管 理 员</td>
</tr>
<tr>
<td align="right">管 理 员 名：</td>
<td><input type=text name=UserName size="15"  value=""></td>
</tr>
<tr>
<td align="right">管 理 权 限：</td>
<td>
<select name="oskey">
<option value="super">超级管理员</option>
<option value="senior">普通管理员</option>
</select>
</td>
</tr>
<tr>
<td align="right">管 理 密 码：</td>
<td><input type=text name=Password size="15"  value=""></td>
</tr>
<tr>
<td align="center" colspan=2>
<input type=hidden value="add" name="act">
<input type=submit value=增加 name="submit">
<input type=reset name="Submit" value="取消">
</td>
</tr>
</table>
</FORM>
以下为调用文件admin_AdminSave.asp的源代码
<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->//此头文件的作用是与数据库建立连接
<%
founderr=false
username=request.form("username")
password=request.form("password")
oskey=request.form("oskey")
if username="" or password="" then
errmsg=errmsg+"<br>"+"<li>管理员名称和密码都不能为空！"
founderr=true
call error()
Response.End
end if
if request("act")="edit" and request("id")<>"" then
id=request("id")
sql="select * from admin where id="& request("id")
rs.open sql,conn,1,3
if not rs.eof then
rs("oskey")=oskey
rs("Username")=username
rs("Password")=password
rs.update
end if
rs.close
elseif request("act")="add" then
sql="select * from admin where username='"&username&"'"
rs.open sql,conn,1,3
if (rs.eof and rs.bof) then
rs.addnew
rs("oskey")=oskey
rs("Username")=UserName
rs("Password")=Password
rs.update
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
response.redirect "admin_AdminMana.asp"
%>
6.管理员源代码：
<!--#include file="../inc/config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<title>管理登录</title>
<%
dim founderr,errmsg
founderr=false
errmsg=""
dim adminname
dim adminpwd
dim flag
if request("action")="adminlogin" then
adminname=trim(replace(request("adminname"),"'",""))
adminpwd=trim(replace(request("adminpwd"),"'",""))
flag=trim(replace(request("flag"),"'",""))
 
if adminname="" and adminpwd="" then
 founderr=true
errmsg=errmsg+"<br>"+"<li>请输入用户名或密码！"
end if
if founderr then
call diserror
response.end
end if
sql="select * from admin where admin_name='"&adminname&"' and admin_password='"&adminpwd&"'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
  rs.close
 set rs=nothing
   founderr=true
 errmsg=errmsg+"<br>"+"<li>您输入的用户名和密码不正确!"
else
  session("adminlogin")=sessionvar
  session("issuper")=rs("admin_id")
  session("flag")=rs("flag")
  session.timeout=50
  rs.close
  set rs=nothing
end if
elseif request("action")="logout" then
 session("adminlogin")=""
 session("flag")=""
 session("issuper")=""
end if
 if session("adminlogin")<>sessionvar and session("flag")="" then%>
 <HTML><HEAD><TITLE>管理中心</TITLE>
 <META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
 href="inc/style.css" type=text/css rel=stylesheet>
 <META content="MSHTML 6.00.2800.1126" name=GENERATOR>
 </HEAD>
 <body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))><br><br><br>
       <table width="280" border="0" cellspacing="1" cellpadding="10" align="center" bgcolor="#000000">
 <form name="form1" method="post" action="admin.asp?action=adminlogin">
   <tr>
     <td bgcolor="#E8E8E8" align="center"  colspan="2">
       管理登陆</td>
   </tr>
   <tr>
     <td bgcolor="#FFFFFF" width="80">用 户：
               </td><td bgcolor="#FFFFFF" width="200"><input type="text" name="adminname" class="textarea" size="20"></td>
   <tr>
     <td bgcolor="#FFFFFF">密 码：</td><td bgcolor="#FFFFFF"><input type="password" name="adminpwd" class="textarea" size="20"></td>
   </tr>
   </tr>
   <tr>
     <td bgcolor="#FFFFFF"  colspan="2" align="center"><input type="submit" name="Submit" value="登录" class="button"></td>
   </tr>
 </table>
       <%else%>
 <html>
 <head>
 <title>∷ 管理中心 ∷</title>
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 </head>
 <frameset id="frame" cols="140,*" frameborder="NO" border="0" framespacing="0" rows="*">
   <frame name="menu" target="main" scrolling="AUTO" noresize src="menu.asp" marginwidth="0" marginheight="0">
 <frameset rows="35,*"  framespacing="0" border="0" frameborder="0" frameborder="no" border="0">
 <frame src="top.asp" name="top" target="main" scrolling="NO" NORESIZE frameborder="0" marginwidth="10" marginheight="0" border="no">
 <frame name="main" src="body.asp" scrolling="AUTO" NORESIZE frameborder="0" marginwidth="10" marginheight="10" border="no">
 </frameset>
 </frameset>
 　<noframes>
 　<body>
 　　<p>本页使用了框架结构，如果您的浏览器不支持它。请将您的浏览器升级为IE5.0或更高的版本！</p>
 　　<p><a href="contents.html">进入</a></p>
 　</body>
 　</noframes>
 </html>
 <%end if%>

相关论文