使用xml实现bbs(主题列表篇)_xml技巧-XML编程 -idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

使用xml实现bbs(主题列表篇)_xml技巧

来源：作者：网友供稿发布时间:2007-12-07 05:40:49

表A:
　　1-0-1,this is a test
　　3-1-1,this is a test
　　4-3-1,this is a test
　　5-3-1,this is a test
　　2-0-2,this is a test
　　上面是BBS主题列表的一个例子。一般来说，假如不是使用Oracle(Oracle 有一条查询语句能够自动生成家族树，请查阅Select ... startwith ... connect by ...语句)，那么怎样实现上例的列表是一件费事的工作(相信许多程式员都写过)。
　　假如我们改用XML来实现，那么结果会怎么样呢？
　　现在我们使用"Select * from bbs"从数据库中查询贴子，并以XML格式返回（假如您是用ADO，那么能够用其RecordSet.Save ... adPersistXML直接生成，当然假如您不喜欢ADO生成的格式，可用程式生成，如本例）：
　　表B：
　　
　　
　　
　　
　　4-3-1,this is a test
　　slddfjslajfsdljf
　　
　　
　　5-3-1,this is a test
　　slddfjslajfsdljf
　　
　　
　　3-1-1,this is a test
　　slddfjslajfsdljf
　　
　　
　　1-0-1,this is a test
　　slddfjslajfsdljf
　　
　　
　　2-0-2,this is a test
　　slddfjslajfsdljf
　　
　　
　　说明：这里sid是贴子的id号，pid是贴子的父id号。title是标题，content是贴子的内容。
　　上表中第二行是指定使用b.XSL来转换XML内容。这是提供给IE5的信息。假如您使用XMLDOM，那么能够不要这条信息。
　　我们再来看看将上表的XML内容显示成表A形式的XSL文档是怎么实现的：
　　表C：b.XSL
　　
　　
　　
　　
　　
　　

　　
　　
　　现在，您将表B的内容存为abc.xml，将表C的内容存为b.xsl，然后在IE5中打开，您就能够看到和表A相同的内容了。
　　因此能够看出，XSL文档解定了最终的显示结果。假如您有多个子论坛，那么无需更改论坛程式，只要为各个子论坛提供不同XSL文档，就能够让各个子论坛的版而不论风格画面还是主题排列都会具备独特的表现。假如提供免费论坛服务，那么允许论坛申请者定制自已的XSL文档将是个良好的选择。
　　但是假如客户端不支持XML，该怎么办呢？答案很简单，由服务端先将XML转换成HTML，再传到客户端。
　　下面我们以IIS4/5+IE5+ASP来实现这个例子(服务器必需安装IE5)：
　　<%@ LANGUAGE = JScript %>
　　<%
　　Set rsXML=Server.CreateObject("ADODB.RecordSet");
　　sSQL = “SELECT * from bbs"
　　sConn = “您自个儿写”
　　rsXML.CursorLocation = adUseClient
　　rsXML.Open sSQL, sConn, adOpenStatic
　　//指定XSL文档位置
　　var styleFile = Server.MapPath("simple.xsl");
　　// Save the XML to XMLDOM
　　var source = Server.CreateObject("Microsoft.XMLDOM");
　　rsXML.Save source, adPersistXML
　　我相当不喜欢ADO直接Save出来的XML文档，我总是这样做：
　　Dim GetData,v
　　GetData = GetData & ""
　　while not RS_ForumInfo.EOF
　　GetData = GetData & ""
　　for i = 0 to RS_ForumInfo.Fields.Count -1
　　set v = RS_ForumInfo.Fields.Item(i)
　　if (v.Type=201)or(v.Type=203)or(v.Type=205) then
　　GetData = GetData& "<" & RS_ForumInfo.Fields.Item(i).Name &">" &_
　　"" &_
　　""
　　else
　　GetData = GetData& "<" & RS_ForumInfo.Fields.Item(i).Name &">" &_
　　RS_ForumInfo.Fields.Item(i).Value &_
　　""
　　end if
　　set v = Nothing
　　next
　　GetData = GetData & ""
　　RS_ForumInfo.MoveNext
　　wend
　　GetData = GetData & ""
　　source.loadXML GetData
　　// Load the XSL
　　var style = Server.CreateObject("Microsoft.XMLDOM");
　　style.async = false;
　　style.load(styleFile);
　　Response.Write(source.transformNode(style));
　　%>
　　当然，由于此处为了简便，直接使用ADO来生成XML，因此simple.xsl和上面的b.xsl是不同的。
　　读者能够参考上例和XSL参考资料（2000年的MSDN有比较周详的XML/XSL SDK文档）来编写。（完）

喜欢本文，那就收藏到：