Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

用asp+XML打造留言本

来源:中文源码网    浏览:362 次    日期:2024-03-29 13:56:22
【下载文档:  用asp+XML打造留言本.txt 】


用ASP+XML打造留言本
用ASP+XML打造留言本 一、读者指引 读者指引帮助你掌握本文的梗概。以免你看了大半才明白这编文章不适合你,给你造成视觉污染。
如果你正在用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号--定义为
1、用户名我们--定义为
2、来自那里们--定义为
3、留言时间定--义为
4、用户主页定--义为
5、用户的信箱--定义为
6、留言内容定--义为
当然以上不是必须的读者可以自行命名并加减相关标签,把它们组合起来就得到List.xml的文件了
  1苛子中国广州01-4-23 18:26:56http://page2000.xiloo.comlucaihui@cmmail.com这是我的第一个XML文件 
注意:必须加上encoding="gb2312"否则会报错为非法字符,因为XML默认不支持中文。为根节点等为子节点。对这个文件的意思我就不多说了大家也应该看的明白了。接下来就是我们如何来显示它了。
五、建立显示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节点%>留言本<% PageSize =10'假设每页显示10条留言AllNodesNum =objRootsite.childNodes.length-1'获取子节点数据(因为是从节点数从0开始的所最大子节点数要减1)PageNum=AllNodesNum\PageSize+1'算出总页数PageNo=request.querystring("PageNo")if PageNo="" then'如果是每一次获得页面则定位到每一页显示最新的留言PageNo=PageNumend ifStarNodes=PageNo*PageSize-1'获得起始节点EndNodes=(PageNo-1)*PageSize'获得结束节点if EndNodes<0 thenEndNodes=0end ifif StarNodes>AllNodesNum then'判断起始节点数是否超过总的节点数EndNodes=EndNodes-(StarNodes-AllNodesNum)'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错StarNodes=AllNodesNumend ifif EndNodes<0 thenEndNodes=0end ifwhile StarNodes>=EndNodes'从结束节点到超始节点之间读取节点数据username = objRootsite.childNodes.item(StarNodes).childNodes.item(1).text'获得用户名fromwhere = objRootsite.childNodes.item(StarNodes).childNodes.item(2).text'获得用户来自那里Posttime = objRootsite.childNodes.item(StarNodes).childNodes.item(3).text'获得留言时间homepage = objRootsite.childNodes.item(StarNodes).childNodes.item(4).text'获得用户主页email = objRootsite.childNodes.item(StarNodes).childNodes.item(5).text'获得用户Eamiltext = objRootsite.childNodes.item(StarNodes).childNodes.item(6).text'获昨留言内容
'***************************************************************************** '这里使作了XML的DOM来读取数据,显然objRootsite对像所对应的节点为' objRootsite.childNodes.item(StarNodes)所对应的节点就是节点因为不至一个节点所以用了item()来识别当前节点数据,随着StarNodes的递减节点根着往上移一个个读取节点数据。'objRootsite.childNodes.item(StarNodes).childNodes.item(1).text所对应的节点为具体的每个节点的文本值,这里(1)所对应的就是username用户名(因为节点的子节点才是我们真正所要的)'******************************************************************************
text = replace(text,chr(13),"
")'替代回车text = replace(text,chr(32)," ")'替代空格%>
<% StarNodes=StarNodes-1wend set objXML=nothing %>
留言溥 写新留言
姓 名:<%=username%>
来 自:<%=fromwhere%>
| 主页 | | 信箱 | | 留言时间:<%=Posttime%> |
<%=text%>
共有<<%=PageNum%>>页 <% if cint(PageNo)<>PageNum then'分页response.write "上一页"end ifif cint(PageNo)<>1 thenresponse.write "下一页 "end if%>

六、建立写新留言程序(PostNew.asp) 这个文件要实现的功能就是写入新的XML节点,首先创建一个XML对像然后把XML读入内存中,利用appendChild()方法加入我们生成的XML节点。
<%username=request.form("username")if username<>"" thenfromwhere =request.form("fromwhere")homepage =request.form("homepage")email =request.form("email")text =request.form("text")text =replace(text,"<","<")Posttime =now()strSourceFile = Server.MapPath("/") & "\List.xml"'获取XML文件的路径这里根据你的虚拟目录不同而不同Set objXML = Server.CreateObject("Microsoft.XMLDOM")'创建XML对像objXML.load(strSourceFile)'把XML文件读入内存中Set objRootlist = objXML.documentElement.selectSingleNode("NewList")'选取节点if objRootlist.hasChildNodes then'判断是否有子节点(因为如果是每一次是没有子节点的,' 如果不加判断在第一次运得时就会报错id = objRootlist.lastchild.firstchild.text+1'这里获得将要插入子节点的ID号,其ID号为的最后一个子节点(lastchild)的第一个子节点(firstchild)的ID号加1(这里我们按照关系型数据库的ID号来递增)else'如是没有字子节点则是第一次留言ID号设为1id=1end ifbrstr=chr(13)&chr(10)&chr(9)'为了插入XML文件中的节点换行空格排列整齐'(当然你也可以不用这样只是为了XML数据好看而以)XMLnode=brstr&""&brstr & _""&id&""&brstr & _""&username&""&brstr & _""&fromwhere&""&brstr & _""&Posttime&""&brstr & _""&homepage&""&brstr & _""&email&""&brstr & _""&text&""&brstr & _""&chr(13)'根据得到的数据建立XML片段set objXML2=Server.CreateObject("Microsoft.XMLDOM")'建立一个新XML对像objXML2.loadXML(XMLnode)'把XML版片段读入内存中set rootNewNode=objXML2.documentElement'获得objXML2的根节点objRootlist.appendChild(rootNewNode)'把XML片段插入到List.xml中objXML.save(strSourceFile)'存储lsit.xml文件(因为不存储List.xml只在内存中更新了)set objXML=nothingset objXML2=nothingresponse.write "谢谢您的留言"response.end
end if %>Untitled Document
新留言
姓 名:**
来 自:
主 页:
Email:
内 容:

七、总结
到这里我们就建立一个简单并有分页功能的XML留言本了,呵看完了简单吧,其实我这里只起一个抛砖引玉的功能,其目的是引导大家建立更复杂更好的ASP+XML程序,例如:所上面的留言本加上回复功能,管理功能,点击计数据功能等,甚至你可以把它变一个BBS等等。最后留言本运行结果如下:
(List.xml在IE5下面的运行结果)
(留言本index.asp运行结果)

相关内容