当前位置:首页 » 网站技术 » ASP

ASP做象资源管理器的树形目录

...

 一、读者指引

  读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你,给你造成视觉污染。

  如果你正在用ASP+XML写一些程序,或者你正在学XML那就值得一看。

  阅读本文须具备的知识,对ASP有基本的了解,对XML和DOM有基本了解,如果你不了解那么你通过学习本文基本上能够撑握ASP+XML和DOM的应用,并能根据本文范写出自已更高级的ASP+XML程序。

  二、基本思想

  本文思想是基于用ASP和DOM来读取和存储XML数据,并利用XML数据来存储留言信息,达到同用数据库存储数据的功能。

  三、XML留言本的优势

  或许你会问用ASP+TXT文本也可以达到不用数据库实上留言的功能,不错确实能够做到,而且网上也有很多这样的留言本免费下载,但这里我要讲一下ASP+XML的优越性。

  1、XML+ASP比ASP+TXT速度要快。可能你也发现当TXT文件很少时速度出奇的快,但是随着留言信息的增加TXT文本变大,速度却又是出奇的慢这就是ASP+TXT的弱点。当然我不能说ASP+XML就一定是出奇的快,但是比起ASP+TXT来说是快了许多,当然随着留言信息的增加XML文本增大速度也下降很快,但是比起TXT来说就还是好了许多(这一点可以从WAS测试证明读者可以自行测试),当然ASP+XML比不上数据库,因为数据库对查询做了特别的优化,而XML只是纯文本,在ASP建立对像是要把XML数据全部读入内存中,如果数据量大的话可想而知速度会慢下来。

  那你也许会问那我什么时候用关系数据库存储数据,又什么时候用XML存储数据呢?我这里也顺便提一下,就是当数据比较复杂无规率时用XML数据比较合适,还有就是你打算这些数据要在不同的操作系统上读取运用时那就是XML大显身手的时候了。如果你是普通的数据那么不到关键时刻或不支持数据库的空间时还是不要用XML文件来存储数据为好。

  2、XML数据的易读取性,TXT文本是比较难操作的,我们必须一行一行的读取判断,而且很多功能无法实上,只能编制比较简单的留言本,而XML数据则不同了,利用DOM可以轻易的访问每一个节点,而不是TXT那些烦人的Readline() Witeline()了,我们可以随意的加入删除更新某一个我们感兴趣的节点,利用ASP或者JS或者数据岛都可以轻松实上这一点,当然我这里为发考虑兼容性,用了ASP来读取XML数据,而没有用数据岛来读取节点数据(因为只有IE5以上版本才支持数据岛技术)而用ASP来实上就不存在这些问了因为客户得到的是HTML文件。

  3、XML数据夸操作系统性,只要我们把这些数据存储为XML那么这些数据就能被应何基它语言或系统所识别,而不用做应何改动。TXT显然不具备这些性能。例如我们在网上的留言信息可以直接被被转换成wap格式在手机上显示。

  四、建立存储留言信息的XML文件(List.xml)

  我们这里不打算使用DTD,因为我们这是我们自已编制并测试通过的XML数据,所以不需要DTD来验证(如果你对此感兴趣当然可以加一个这不影响程序的运行)。现在我们来看看建立一个留言本的基本要素

  0、留言ID号--定义为<id>

  1、用户名我们--定义为<username>

  2、来自那里们--定义为<fromwhere>

  3、留言时间定--义为<Posttime>

  4、用户主页定--义为<homepage>

  5、用户的信箱--定义为<email>

  6、留言内容定--义为<text>

  当然以上不是必须的读者可以自行命名并加减相关标签,把它们组合起来就得到List.xml的文件了


   <?xml version="1.0" encoding="gb2312"?>
  <site>
  <NewList>
  <list>
  <id>1</id>
  <username>苛子</username>
  <fromwhere>中国广州</fromwhere>
  <Posttime>01-4-23 18:26:56</Posttime>
  <homepage>http://page2000.xiloo.com</homepage>
  <email>lucaihui@cmmail.com</email>
  <text>这是我的第一个XML文件</text>
  </list>
  </NewList>
  </site>
 


  注意:必须加上encoding="gb2312"否则会报错为非法字符,因为XML默认不支持中文。<site>为根节点<NewList><ist>等为子节点。对这个文件的意思我就不多说了大家也应该看的明白了。接下来就是我们如何来显示它了。

  五、建立显示XML数据的ASP文件(index.asp)
  这个文件要实现的功能就是读取并显示XML数据,首先创建一个XML对像然后把XML读入内存中,利用DOM分离出我们所要的数据。


   <%
  strSourceFile = Server.MapPath("/") & "\List.xml"
  '获取XML文件的路径这里根据你的虚拟目录不同而不同
  Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
  '以自由线程创建一个XML对像
  objXML.load(strSourceFile)'把XML文件读入内存
  Set objRootsite = objXML.documentElement.selectSingleNode("NewList")
  '选取NewList节点
  %>
  <html>
  <head>
  <title>留言本</title>
  <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  <style type="text/css">
  <!--
  td { font-family: "宋体"; font-size: 9pt; text-decoration: none}
  a { font-family: "宋体"; font-size: 9pt; color: #0066CC; text-decoration: none}
  a:hover { color: #FF6600; text-decoration: underline}
  -->
  </style>
  </head><body bgcolor="#0099CC" text="#000000">
  <table width="80%" border="0" cellspacing="1" cellpadding="4" align="center" bgcolor="#CCCCCC">
  <tr bgcolor="#000000">
  <td colspan="2"><font color="#FFFFFF">留言溥 <a href="PostNew.asp"><font color=#FFFFFF>写新留言
  </font></a></font></td>
  </tr>
  <%
  PageSize =10'假设每页显示10条留言
  AllNodesNum =objRootsite.childNodes.length-1
  '获取子节点数据(因为是从节点数从0开始的所最大子节点数要减1)
  PageNum=AllNodesNum\PageSize+1'算出总页数
  PageNo=request.querystring("PageNo")
  if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言
  PageNo=PageNum
 
树形目录显示程序

  问题描述:

  在我们项目中常常会出现自关联的数据表,如果我们从整体看去,整个表就呈现为一个树形数据结构(对于复杂的情况,它可能变成一个图)。当我们对这个表进行显示,编辑时,如果不采用好的表现形式,会显得很笨拙,为此,我们开发这样的树形结构的程序。在上一版本中,我们使用的是递归算法来实现,在我们对这个算法评测时发现,对于拥有成千上万条记录的数据库就不再能胜任了,所以在新的算法版本中,我们使用了XML技术,动态的发现数据,以解决一次从服务器下在大量数据的尴尬,同时也遍免了如果表数据结构呈现为图时就会进入死循环的错误。

  实际思路:

  1、 初始显示时只显示根与二级节点,根与二级节点同在一层次
  2、 点击一节点,如果它的子节点区域对象不存在,则建立对象,同时下载数据更新数据,显示所有子节点。
  3、 每个节点在建立后都就有相同的功能,如检查子节点是否存在,显示隐藏子节点等等
  4、 DHTML+XML+ASP+CSS同时使用

  技术难点:

  1、 使用xmlhttp接口时乱码问题:
  因为在asp输出页面中,缺省的编码方案并不是中文的,那么在客户端页面的xmlhttp中解释时,就会以缺省的方案解析,所以就会出现乱码。为此,我们在Server端的asp页面中,加入如下代码定义编码方案:

   Response.CharSet="GB2312"
  Response.ContentType="text/html"


  2、 如何在界面上保持上一版本的风格(类资源管理器形式):
  在上一版本中,所有的页面内容都是一气呵成的,在控制上采用递归等思想,所有时的界面相对友好,当时本版中的机制发生了变化,内容是有多次合成的关键问题,img ,span 对象的id 如何确定经过求证,在界面上,本版本的界面难以与第一界面相同,所以只能保留一部分,但是总体来说,新界面同样也能满足需要

  因为在这里不好使用附件,所以只能贴源码了:


   ---xtree.html------

  <HTML>
  <HEAD>
  <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
  <SCRIPT LANGUAGE=javascript src="xtree.js">
  </SCRIPT>
  <style type="text/css">
  <!--
  a:link { font-size: 14px; text-decoration: none; color: #0000FF}
  a:visited { font-size: 14px; color: #0000FF; text-decoration: none}
  a:hover { font-size: 14px; color: #FF0000; background-color: #CCCC99; text-decoration: none}
  a:active { font-size: 14px; color: #FFFFFF; background-color: #191970; text-decoration: none}
  .item{ font-size:14px}
  -->
   </style>
  </HEAD>
  <BODY leftMargin=0 rightMargin=0 topMargin=0 border=0>
  <bold>树形菜单演示程序</bold><br>
  <table border=0>
  <tr><td nowrap>
  <span id='oSpanroot' border=0></span><SCRIPT LANGUAGE=javascript>createChildNode("root",0);</SCRIPT></td></tr>
  </table>
  </BODY>
  </HTML>

  -------xtree.asp------------

  <%@ Language=VBScript %>
  <%
  Response.CharSet="GB2312"
  Response.ContentType="text/html"
  '''''''''''''''''''''''''''''''Server code start'''''''''''''''''''''''''''''''
  dim parId,nodeLayer
  parid=Request.QueryString("parId")
  nodeLayer=cint(Request.QueryString("nodeLayer"))

  if(parid="") then
  Response.Write("root id can't is null")
  Response.End()
  end if
  if(nodeLayer<0) then
  nodeLayer=0

  end if
  %>
  <%
  strconn="at"
  strsql="select * from tree where par='"&parid&"'"
 

  ''SQL 语句书写要求:在记录集的前面三个字段必须依次为:row_id(惟一的主键)、name(菜单条显示的内容)、par_id(父节点row_id),其它根据需要输出与显示

   set conn=server.createobject("ADODB.connection")
  conn.open strconn

  set rs=server.createobject("ADODB.Recordset")
  rs.open strsql,conn,3,3

继续阅读
JavaScript在ASP中实现掩码文本框
新手初练:用ASP做一个域名查询系统
ASP学习:史上最强的数据分页方法
经典实用的基础asp程序整理
ASP开发必备:WEB打印代码大全
ASP中一个字符串处理类加强版(VBScript)
ASP学习:urldecode 方法补遗
ASP学习:远程注册自己的组件
在静态页面中显示文章被阅读的次数
发表评论

昵称:
最新评论
暂时没有评论!