用XML结合数据库，给服务器减负
以下几种人不宜看本文：
1. 网站计数器还只有两位数的。
2. 认为减少与数据库服务器交互毫无实际意义的。
3. 未满18岁的。
半年前，我沉迷于狄更斯的《远大前程》，并从一位非常敬业的站长先生那里下载到了
这本经典的小说的HTML版。之所以称他敬业，不为别的，单看他为了这本别人最爱就可
以毫不怜惜地动用50个HTML文件加1个CSS文件的份上，你也会佩服他的敬业的。
现在，也许再不会有人会为了一篇49章的小说用51个文件，因为数据库与XML让我们有了
更多的选择。到了今天，数据库已经成了网站的灵魂，可以说，没有对数据进行集中管理
就算不上是一个真正的网站。而ASP加数据库，更成了主流中的主流，网站里的用户登录，
论坛，留言本都成了它们用武之地，从前用51个文件才能做成的事，现在用2个文件就可以
了，但ASP加数据库，却并非完美，尤其是与服务器进行频繁的交互方面。
比如按ASP+数据库的方案，我们完全可以将那位敬业的站长的工作简化为两个文件：一个
数据库文件，记录小说的所有章节；另一个ASP文件，用来读取数据库的内容；当客户端
点击“下一章”的时候便可以浏览下一章内容……的确，这看似很直观方便，但不可乎视
的是，每当我们浏览下一章的时候，我们的浏览器都会自动自觉地去访问一次数据库，因
此，当有访问者耐心地将这本小说读完的时候，我们的数据库已经与它亲密接触了49次了。
那如果同时有N个49次呢？谁还能保证自己的服务器仍然能从容地应付所有请求？特别是一
些提供了搜索数据，将数据分页显示的网站，服务器不堪重负的现象更应该重视，因为查询
结果有N页，就表示访问者遍览所有结果需要连接服务器打N次。
如果现在你说“N次就N次吧，咱无所谓”，那么你应该马上用鼠标点击浏览器的“后退”
因为我下面将谈到一些垃圾内容。当然，如果你也想让你的数据库程序变成“N页记录，
一次交互”的话，欢迎继续看下去，我们将一起探讨XML与数据库的整合运用。
其实XML并不像许多人想的那样空有名声，而无实际用途。我不知道你是不是也这么想，但
在网上很难见到一些真正应用了XML的网站，这是事实。现在，我列出几条独有XML才能实
现的案例，希望能够以此证明XML的实用与强大：
1. 1个XML文件 + 1个普通HTML文件 = 49章小说分章显示
适用于那些不支持ASP的普通主页空间，这种情况下XML完全代替了数据
库，很经典地实现了数据与排版的分离。XML与HTML完全分工。
2. 1个XML文件 + 1到N个ASP文件 = 留言本/论坛
适用于那些禁用了文件组件FileSystemObject与数据库组件的ASP主页空
间，不用文件存取与数据库，用XML照样可以做留言本与论坛，并实现数
据库的所有功能。
（我在本论坛发表的“第三种途径-----基于XML的ASP留言板”中，详细
地阐述了这一技术，有兴趣的话可以在论坛中搜索此文。）
3. 1个数据库 + 1个嵌入了XML的ASP文件 = “N页记录，一次交互”
可以说，这几种技术都体现了XML的精髓。特别是第2种技术，XML充分证明了自身的优势——
既有数据库的强大又具备文本文件的轻巧（一个.mdb文件上百K，而一个.xml文件才几k，而且
数据库文件修改要借助专门软件或相对应的ASP程序，但xml文件，记事本足矣。）更让人兴
奋的是，XML完全可以抛开文件存取组件与数据库组件实现数据的写入读取，甚至新建文件。
而我们将要谈到的“N页记录，一次交互”则更是XML对数据库的全面超越。
先看下面这个XML文件：
===========================================================================
<?xml version="1.0" encoding="gb2312"?>
<在线播放>
<歌曲>
<歌名>Hello Goodbye</歌名>
<URL>ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>You say yes, I say no</歌词>
</歌曲>
<歌曲>
<歌名>Yesterday</歌名>
<URL>http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>Yesterday, all my troubles seemed so far away</歌词>
</歌曲>
</在线播放>
=============================================================================
试试看，用记事本编辑一下这个文件，并保存文件名为songList.xml，然后用IE浏览器打开
这个文件，如果没有语法错误，即可在浏览器中显示XML所独有的树状页面。
点击后面的链接查看效果: XML文件
这就是一个合法的XML文档，而XML文档的规则与格式也非常自由，如果你要创建一个新的XML
文件，只需一字不改地照写第一行“<?xml version="1.0" encoding="gb2312"?>”，而后面
的标签与标签之间的text就可以很随意，仅仅遵守以下规则即可：
1.首标签与尾标签必须对应，可以重复，但不可以嵌套。
2.标签的命名规则与JAVA/C/C++等程序语言的变量命名规则相似，区分大小写。
3.一个文档只能有一个根元素，如实例中的“<在线播放>”
4.唯一的关键字“XML”，标签不能以这三个字母开头。
5.如果文档与规则有所冲突，将导制XML文档在浏览器中无法正常显示，亦表示非合法的XML
文档。
OK，我们已经知道怎样写一个合法的XML文档了，下一步我们将开始探讨将XML文件嵌入到HTML
文件中，并用VBScript脚本语言操作XML文档中的数据。先看下面这个文件：
==============================================================================
<html>
<head>
<title>用XML嵌入HTML</title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
<xml id = "xmlFile">
<在线播放>
<歌曲>
<歌名>Hello Goodbye</歌名>
<URL>ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>You say yes, I say no</歌词>
</歌曲>
<歌曲>
<歌名>Yesterday</歌名>
<URL>http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>Yesterday, all my troubles seemed so far away</歌词>
</歌曲>
</在线播放>
</xml>
<script language="VBScript">
set xml=xmlFile.recordset
xml.MoveFirst
document.write "第一条记录<BR>"
document.write xml("歌名")&"<BR>"
document.write xml("演唱者")&"<BR>"
document.write xml("URL")&"<BR>"
document.write xml("歌词")&"<BR><br>"
xml.MoveNext
document.write "第二条记录<BR>"
document.write xml("歌名")&"<BR>"
document.write xml("演唱者")&"<BR>"
document.write xml("URL")&"<BR>"
document.write xml("歌词")&"<BR>"
</script>
</body>
</html>
===========================================================================
点击后面的链接查看实例： 查看
在这个HTML文件中，我们加入了一对<xml></xml>标记，用来嵌入一个内部XML文档。
嵌入在HTML文件中的XML文档一样地遵循与独立的XML文档一样的规则，只是省去了独立
XML文档的声明部分“<?xml version="1.0" encoding="gb2312"?>”。在<XML>标签中，
我们设置了XML的ID：xmlFile,以便后面的脚本语言访问该XML对象。
“set xml=xmlFile.recordset” 语句创建了一个可以访问XML的游标。这个游标
类似于ASP中的RecordSet对象，所拥有的方法与后者也几乎是完全一样的。如：
当我们用set xml=xmlFile.recordset创建了一个名为xml的数据游标后，我们就可以使
用以下方法与属性：
xml.MoveFirst() 移到第一条记录
xml.MoveNext() 移到下一条
xml.MovePrevious() 移到上一条
xml.MoveLast() 移到最后一条
xml.BOF 表示游标在第一条记录之前
xml.EOF 表示游标在最后一条记录之后
xml.RecordCount 记录集总数
xml.AbsolutePosition 游标当前位置
xml.AddNew() 添加一条记录
xml.Delete() 删除一条记录
例如：我们要显示某一首歌的歌名，我们只须将游标移到该记录上，再用xml("歌名")
便可获取XML文档中<歌名>与</歌名>之间的文本。非常方便。
好了，在了解以上关于XML的这些内容后，我们完全可以开始我们真正的服务器减负
行动了！
我们的思路是：
1.客户端向服务器的某个ASP程序发出查询条件。
2.该ASP程序响应，并连接数据库。
3.数据库将查询结果返回给该ASP程序。
4.获得数据后，用ASP程序将数据格式化为XML格式，
从而将查询结果建立为该ASP的内嵌式XML对象。
5.在客户端实现XML的分页（分页方法类似于数据库分页）
6.此后，无论是客户端将查询结果翻多少页看多少遍，均不会再与服务器发生交互。
另外，就算是客户端断开网线，也仍然可以浏览还未浏览的分页页面。
下面是我写的一个歌曲在线播放程序页面程序，由两个文件构成：
songList.mdb 一个数据库，装载着歌曲信息。
songList.asp ASP程序，数据库中的数据格式成XML，页面完全显示后，无论点多少次
“下一首”，也不会与服务器交互。
◆songList.asp◆
点击后面的链接查看实例 查看
===========================================================================
<html>
<head>
<title>殷亮的在线播放</title>
<style type="text/css">
<!--
.input
{
background-color: #000000;
border: #000000;
color: #FF9900;
}
-->
</style>
</head>
<body bgcolor="#000000" text="#FF9900">
<% ''''''''''''''''''''连接数据库'''''''''''''''''''''''''
set songCon = Server.CreateObject("ADODB.connection")
conPath = Server.MapPath("songList.mdb")
conStr = "DRIVER={Microsoft Access Driver (*.mdb)}; dbq="
songCon.open(conStr & conPath)
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from songList",songCon,3,3
%>
<!--动态生成内嵌式XML文档,"在线播放"是根标记-->
<xml id = "xmlFile">
<在线播放>
<%
If not rs.eof then
while not rs.eof
%>
<歌曲>
<歌名><%= trim(rs("song_name")) %></歌名>
<URL><%= trim(rs("song_url")) %></URL>
<演唱者><%= trim(rs("songer")) %></演唱者>
<歌词><%= trim(rs("song_lyrics")) %></歌词>
</歌曲>
<%
rs.movenext
wend
End If
%>
</在线播放>
</xml>
<div id="Layer1" style="position:absolute; width:500px; height:59px; z-index:1; left: 118px; top: 4px;">
<!--Window Media Player控件-->
<OBJECT classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" width="500" height="43" id="player" style="WIDTH: 500px; HEIGHT: 43px" VIEWASTEXT>
<PARAM NAME="AudioStream" VALUE="-1">
<PARAM NAME="AutoSize" VALUE="0">
<PARAM NAME="AutoStart" VALUE="-1">
<PARAM NAME="AnimationAtStart" VALUE="-1">
<PARAM NAME="AllowScan" VALUE="-1">
<PARAM NAME="AllowChangeDisplaySize" VALUE="-1">
<PARAM NAME="AutoRewind" VALUE="0">
<PARAM NAME="Balance" VALUE="0">
<PARAM NAME="BaseURL" VALUE="">
<PARAM NAME="BufferingTime" VALUE="5">
<PARAM NAME="CaptioningID" VALUE="">
<PARAM NAME="ClickToPlay" VALUE="-1">
<PARAM NAME="CursorType" VALUE="0">
<PARAM NAME="CurrentPosition" VALUE="-1">
<PARAM NAME="CurrentMarker" VALUE="0">
<PARAM NAME="DefaultFrame" VALUE="">
<PARAM NAME="DisplayBackColor" VALUE="0">
<PARAM NAME="DisplayForeColor" VALUE="16777215">
<PARAM NAME="DisplayMode" VALUE="0">
<PARAM NAME="DisplaySize" VALUE="4">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="EnableContextMenu" VALUE="-1">
<PARAM NAME="EnablePositionControls" VALUE="-1">
<PARAM NAME="EnableFullScreenControls" VALUE="0">
<PARAM NAME="EnableTracker" VALUE="-1">
<PARAM NAME="Filename" VALUE="">
<PARAM NAME="InvokeURLs" VALUE="-1">
<PARAM NAME="Language" VALUE="-1">
<PARAM NAME="Mute" VALUE="0">
<PARAM NAME="PlayCount" VALUE="1">
<PARAM NAME="PreviewMode" VALUE="0">
<PARAM NAME="Rate" VALUE="1">
<PARAM NAME="SAMILang" VALUE="">
<PARAM NAME="SAMIStyle" VALUE="">
<PARAM NAME="SAMIFileName" VALUE="">
<PARAM NAME="SelectionStart" VALUE="-1">
<PARAM NAME="SelectionEnd" VALUE="-1">
<PARAM NAME="SendOpenStateChangeEvents" VALUE="-1">
<PARAM NAME="SendWarningEvents" VALUE="-1">
<PARAM NAME="SendErrorEvents" VALUE="-1">
<PARAM NAME="SendKeyboardEvents" VALUE="0">
<PARAM NAME="SendMouseClickEvents" VALUE="0">
<PARAM NAME="SendMouseMoveEvents" VALUE="0">
<PARAM NAME="SendPlayStateChangeEvents" VALUE="-1">
<PARAM NAME="ShowCaptioning" VALUE="0">
<PARAM NAME="ShowControls" VALUE="-1">
<PARAM NAME="ShowAudioControls" VALUE="-1">
<PARAM NAME="ShowDisplay" VALUE="0">
<PARAM NAME="ShowGotoBar" VALUE="0">
<PARAM NAME="ShowPositionControls" VALUE="-1">
<PARAM NAME="ShowStatusBar" VALUE="0">
<PARAM NAME="ShowTracker" VALUE="-1">
<PARAM NAME="TransparentAtStart" VALUE="0">
<PARAM NAME="VideoBorderWidth" VALUE="0">
<PARAM NAME="VideoBorderColor" VALUE="0">
<PARAM NAME="VideoBorder3D" VALUE="0">
<PARAM NAME="Volume" VALUE="0">
<PARAM NAME="WindowlessVideo" VALUE="0">
</OBJECT>
</div>
<div id="Layer3" style="position:absolute; width:200px; height:115px; z-index:3; left: 120px; top: 140px;"><img src="P_online.jpg" width="300" height="170"></div>
<div id="Layer4" style="position:absolute; width:191px; height:54px; z-index:4; left: 430px; top: 199px;">
<table width="190" height="52" border="1" align="right" bordercolor="#000000" bgcolor="#FF9900">
<tr>
<td height="23" valign="bottom">
<div align="center"></div>
<div align="right">
<input name="btnPre" type="button" disabled="true" id="btnPre" value="上一首">
</div></td>
</tr>
<tr>
<td valign="top">
<div align="right">
<input name="btnNext" type="button" id="btnNext" value="下一首">
</div></td>
</tr>
</table>
</div>
<div id="Layer2" style="position:absolute; width:503px; height:58px; z-index:2; left: 120px; top: 67px;">
<table width="501" border="1">
<tr>
<td width="100"><font color="#FFFFFF" size="2">播放内置歌曲：</font></td>
<td width="317">
<SELECT name="list" size="1" id="list" style="WIDTH: 328px; BACKGROUND-COLOR: darkorange">
<!--用循环来初始化下拉列表-->
<script language="VBScript">
set xml=xmlFile.recordset
xml.MoveFirst
dim num
for num=0 to xml.RecordCount-1
document.write("<OPTION value="&xml("url")&">"&xml("歌名")&"</OPTION>")
xml.MoveNext
next
xml.MoveFirst
</script>
</SELECT>
</td>
<td width="62"><div align="right">
<input name="btnLAN" type="button" id="btnLAN" value="播放">
</div></td>
</tr>
<tr>
<td><font color="#FFFFFF" size="2" >播放网络歌曲：</font></td>
<td><input name="textURL" type="text" id="textURL" style="WIDTH: 328px; BACKGROUND-COLOR: darkorange;color: #000000;"></td>
<td><div align="right">
<input name="btnNET" type="reset" id="btnNET" value="播放">
</div></td>
</tr>
</table>
</div>
<div id="Layer5" style="position:absolute; width:500px; height:20px; z-index:5; left: 120px; top: 320px;">
<p><font color="#FFFFFF" size="2">正在播放：
<input name="textSonger" type="text" class="input" id="textSonger" size="15">
演唱的
<input name="textSongName" type="text" class="input" id="textSongName" size="35">
</font></p>
</div>
<div id="Layer6" style="position:absolute; width:500px; height:150px;
z-index:6; left: 120px; top: 349px;">
<textarea name="area" cols="68" rows="15" id="area"
style="BORDER-RIGHT: white double; BORDER-TOP: white double;
BORDER-LEFT: white double;COLOR: #000000; DIRECTION: ltr;
BORDER-BOTTOM: white double;BACKGROUND-COLOR: darkorange;
TEXT-ALIGN: left">
</textarea>
</div>
<!--各按钮的单击事件-->
<script language="VBScript">
sub play()
textSonger.value=xml("演唱者")
textSongName.value=xml("歌名")
textURL.value=""
area.value=xml("歌词")
player.filename=xml("URL")
if xml.AbsolutePosition=xml.recordcount then
btnNext.disabled=true
else
btnNext.disabled=false
end if
if xml.AbsolutePosition=1 then
btnPre.disabled=true
else
btnPre.disabled=false
end if
end sub
sub btnLAN_onclick
xml.MoveFirst
while xml("URL")<>list.value
xml.MoveNext
wend
call play()
end sub
sub btnNET_onclick
player.filename = textURL.value
textSonger.value = ""
textSongName.value = ""
area.value = "自定义网络歌曲"
end sub
sub btnPre_onclick
xml.MovePrevious
list.selectedIndex = list.selectedIndex - 1
call play()
end sub
sub btnNext_onclick
xml.MoveNext
list.selectedIndex = list.selectedIndex + 1
call play()
end sub
</script>
</body>
</html>
===========================================================================
现在，你知道怎么给服务器减负了吗？^-^
本文旨在探讨，如有错漏，欢迎指正与讨论。
感谢站长miles这些日子来不倦的帮助，无以回报，唯有灌上此文。
1. 网站计数器还只有两位数的。
2. 认为减少与数据库服务器交互毫无实际意义的。
3. 未满18岁的。
半年前，我沉迷于狄更斯的《远大前程》，并从一位非常敬业的站长先生那里下载到了
这本经典的小说的HTML版。之所以称他敬业，不为别的，单看他为了这本别人最爱就可
以毫不怜惜地动用50个HTML文件加1个CSS文件的份上，你也会佩服他的敬业的。
现在，也许再不会有人会为了一篇49章的小说用51个文件，因为数据库与XML让我们有了
更多的选择。到了今天，数据库已经成了网站的灵魂，可以说，没有对数据进行集中管理
就算不上是一个真正的网站。而ASP加数据库，更成了主流中的主流，网站里的用户登录，
论坛，留言本都成了它们用武之地，从前用51个文件才能做成的事，现在用2个文件就可以
了，但ASP加数据库，却并非完美，尤其是与服务器进行频繁的交互方面。
比如按ASP+数据库的方案，我们完全可以将那位敬业的站长的工作简化为两个文件：一个
数据库文件，记录小说的所有章节；另一个ASP文件，用来读取数据库的内容；当客户端
点击“下一章”的时候便可以浏览下一章内容……的确，这看似很直观方便，但不可乎视
的是，每当我们浏览下一章的时候，我们的浏览器都会自动自觉地去访问一次数据库，因
此，当有访问者耐心地将这本小说读完的时候，我们的数据库已经与它亲密接触了49次了。
那如果同时有N个49次呢？谁还能保证自己的服务器仍然能从容地应付所有请求？特别是一
些提供了搜索数据，将数据分页显示的网站，服务器不堪重负的现象更应该重视，因为查询
结果有N页，就表示访问者遍览所有结果需要连接服务器打N次。
如果现在你说“N次就N次吧，咱无所谓”，那么你应该马上用鼠标点击浏览器的“后退”
因为我下面将谈到一些垃圾内容。当然，如果你也想让你的数据库程序变成“N页记录，
一次交互”的话，欢迎继续看下去，我们将一起探讨XML与数据库的整合运用。
其实XML并不像许多人想的那样空有名声，而无实际用途。我不知道你是不是也这么想，但
在网上很难见到一些真正应用了XML的网站，这是事实。现在，我列出几条独有XML才能实
现的案例，希望能够以此证明XML的实用与强大：
1. 1个XML文件 + 1个普通HTML文件 = 49章小说分章显示
适用于那些不支持ASP的普通主页空间，这种情况下XML完全代替了数据
库，很经典地实现了数据与排版的分离。XML与HTML完全分工。
2. 1个XML文件 + 1到N个ASP文件 = 留言本/论坛
适用于那些禁用了文件组件FileSystemObject与数据库组件的ASP主页空
间，不用文件存取与数据库，用XML照样可以做留言本与论坛，并实现数
据库的所有功能。
（我在本论坛发表的“第三种途径-----基于XML的ASP留言板”中，详细
地阐述了这一技术，有兴趣的话可以在论坛中搜索此文。）
3. 1个数据库 + 1个嵌入了XML的ASP文件 = “N页记录，一次交互”
可以说，这几种技术都体现了XML的精髓。特别是第2种技术，XML充分证明了自身的优势——
既有数据库的强大又具备文本文件的轻巧（一个.mdb文件上百K，而一个.xml文件才几k，而且
数据库文件修改要借助专门软件或相对应的ASP程序，但xml文件，记事本足矣。）更让人兴
奋的是，XML完全可以抛开文件存取组件与数据库组件实现数据的写入读取，甚至新建文件。
而我们将要谈到的“N页记录，一次交互”则更是XML对数据库的全面超越。
先看下面这个XML文件：
===========================================================================
<?xml version="1.0" encoding="gb2312"?>
<在线播放>
<歌曲>
<歌名>Hello Goodbye</歌名>
<URL>ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>You say yes, I say no</歌词>
</歌曲>
<歌曲>
<歌名>Yesterday</歌名>
<URL>http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>Yesterday, all my troubles seemed so far away</歌词>
</歌曲>
</在线播放>
=============================================================================
试试看，用记事本编辑一下这个文件，并保存文件名为songList.xml，然后用IE浏览器打开
这个文件，如果没有语法错误，即可在浏览器中显示XML所独有的树状页面。
点击后面的链接查看效果: XML文件
这就是一个合法的XML文档，而XML文档的规则与格式也非常自由，如果你要创建一个新的XML
文件，只需一字不改地照写第一行“<?xml version="1.0" encoding="gb2312"?>”，而后面
的标签与标签之间的text就可以很随意，仅仅遵守以下规则即可：
1.首标签与尾标签必须对应，可以重复，但不可以嵌套。
2.标签的命名规则与JAVA/C/C++等程序语言的变量命名规则相似，区分大小写。
3.一个文档只能有一个根元素，如实例中的“<在线播放>”
4.唯一的关键字“XML”，标签不能以这三个字母开头。
5.如果文档与规则有所冲突，将导制XML文档在浏览器中无法正常显示，亦表示非合法的XML
文档。
OK，我们已经知道怎样写一个合法的XML文档了，下一步我们将开始探讨将XML文件嵌入到HTML
文件中，并用VBScript脚本语言操作XML文档中的数据。先看下面这个文件：
==============================================================================
<html>
<head>
<title>用XML嵌入HTML</title>
</head>
<body bgcolor="#000000" text="#FFFFFF">
<xml id = "xmlFile">
<在线播放>
<歌曲>
<歌名>Hello Goodbye</歌名>
<URL>ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>You say yes, I say no</歌词>
</歌曲>
<歌曲>
<歌名>Yesterday</歌名>
<URL>http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3</URL>
<演唱者>The Beatles</演唱者>
<歌词>Yesterday, all my troubles seemed so far away</歌词>
</歌曲>
</在线播放>
</xml>
<script language="VBScript">
set xml=xmlFile.recordset
xml.MoveFirst
document.write "第一条记录<BR>"
document.write xml("歌名")&"<BR>"
document.write xml("演唱者")&"<BR>"
document.write xml("URL")&"<BR>"
document.write xml("歌词")&"<BR><br>"
xml.MoveNext
document.write "第二条记录<BR>"
document.write xml("歌名")&"<BR>"
document.write xml("演唱者")&"<BR>"
document.write xml("URL")&"<BR>"
document.write xml("歌词")&"<BR>"
</script>
</body>
</html>
===========================================================================
点击后面的链接查看实例： 查看
在这个HTML文件中，我们加入了一对<xml></xml>标记，用来嵌入一个内部XML文档。
嵌入在HTML文件中的XML文档一样地遵循与独立的XML文档一样的规则，只是省去了独立
XML文档的声明部分“<?xml version="1.0" encoding="gb2312"?>”。在<XML>标签中，
我们设置了XML的ID：xmlFile,以便后面的脚本语言访问该XML对象。
“set xml=xmlFile.recordset” 语句创建了一个可以访问XML的游标。这个游标
类似于ASP中的RecordSet对象，所拥有的方法与后者也几乎是完全一样的。如：
当我们用set xml=xmlFile.recordset创建了一个名为xml的数据游标后，我们就可以使
用以下方法与属性：
xml.MoveFirst() 移到第一条记录
xml.MoveNext() 移到下一条
xml.MovePrevious() 移到上一条
xml.MoveLast() 移到最后一条
xml.BOF 表示游标在第一条记录之前
xml.EOF 表示游标在最后一条记录之后
xml.RecordCount 记录集总数
xml.AbsolutePosition 游标当前位置
xml.AddNew() 添加一条记录
xml.Delete() 删除一条记录
例如：我们要显示某一首歌的歌名，我们只须将游标移到该记录上，再用xml("歌名")
便可获取XML文档中<歌名>与</歌名>之间的文本。非常方便。
好了，在了解以上关于XML的这些内容后，我们完全可以开始我们真正的服务器减负
行动了！
我们的思路是：
1.客户端向服务器的某个ASP程序发出查询条件。
2.该ASP程序响应，并连接数据库。
3.数据库将查询结果返回给该ASP程序。
4.获得数据后，用ASP程序将数据格式化为XML格式，
从而将查询结果建立为该ASP的内嵌式XML对象。
5.在客户端实现XML的分页（分页方法类似于数据库分页）
6.此后，无论是客户端将查询结果翻多少页看多少遍，均不会再与服务器发生交互。
另外，就算是客户端断开网线，也仍然可以浏览还未浏览的分页页面。
下面是我写的一个歌曲在线播放程序页面程序，由两个文件构成：
songList.mdb 一个数据库，装载着歌曲信息。
songList.asp ASP程序，数据库中的数据格式成XML，页面完全显示后，无论点多少次
“下一首”，也不会与服务器交互。
◆songList.asp◆
点击后面的链接查看实例 查看
===========================================================================
<html>
<head>
<title>殷亮的在线播放</title>
<style type="text/css">
<!--
.input
{
background-color: #000000;
border: #000000;
color: #FF9900;
}
-->
</style>
</head>
<body bgcolor="#000000" text="#FF9900">
<% ''''''''''''''''''''连接数据库'''''''''''''''''''''''''
set songCon = Server.CreateObject("ADODB.connection")
conPath = Server.MapPath("songList.mdb")
conStr = "DRIVER={Microsoft Access Driver (*.mdb)}; dbq="
songCon.open(conStr & conPath)
set rs = Server.CreateObject("ADODB.Recordset")
rs.open "Select * from songList",songCon,3,3
%>
<!--动态生成内嵌式XML文档,"在线播放"是根标记-->
<xml id = "xmlFile">
<在线播放>
<%
If not rs.eof then
while not rs.eof
%>
<歌曲>
<歌名><%= trim(rs("song_name")) %></歌名>
<URL><%= trim(rs("song_url")) %></URL>
<演唱者><%= trim(rs("songer")) %></演唱者>
<歌词><%= trim(rs("song_lyrics")) %></歌词>
</歌曲>
<%
rs.movenext
wend
End If
%>
</在线播放>
</xml>
<div id="Layer1" style="position:absolute; width:500px; height:59px; z-index:1; left: 118px; top: 4px;">
<!--Window Media Player控件-->
<OBJECT classid="clsid:22D6F312-B0F6-11D0-94AB-0080C74C7E95" width="500" height="43" id="player" style="WIDTH: 500px; HEIGHT: 43px" VIEWASTEXT>
<PARAM NAME="AudioStream" VALUE="-1">
<PARAM NAME="AutoSize" VALUE="0">
<PARAM NAME="AutoStart" VALUE="-1">
<PARAM NAME="AnimationAtStart" VALUE="-1">
<PARAM NAME="AllowScan" VALUE="-1">
<PARAM NAME="AllowChangeDisplaySize" VALUE="-1">
<PARAM NAME="AutoRewind" VALUE="0">
<PARAM NAME="Balance" VALUE="0">
<PARAM NAME="BaseURL" VALUE="">
<PARAM NAME="BufferingTime" VALUE="5">
<PARAM NAME="CaptioningID" VALUE="">
<PARAM NAME="ClickToPlay" VALUE="-1">
<PARAM NAME="CursorType" VALUE="0">
<PARAM NAME="CurrentPosition" VALUE="-1">
<PARAM NAME="CurrentMarker" VALUE="0">
<PARAM NAME="DefaultFrame" VALUE="">
<PARAM NAME="DisplayBackColor" VALUE="0">
<PARAM NAME="DisplayForeColor" VALUE="16777215">
<PARAM NAME="DisplayMode" VALUE="0">
<PARAM NAME="DisplaySize" VALUE="4">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="EnableContextMenu" VALUE="-1">
<PARAM NAME="EnablePositionControls" VALUE="-1">
<PARAM NAME="EnableFullScreenControls" VALUE="0">
<PARAM NAME="EnableTracker" VALUE="-1">
<PARAM NAME="Filename" VALUE="">
<PARAM NAME="InvokeURLs" VALUE="-1">
<PARAM NAME="Language" VALUE="-1">
<PARAM NAME="Mute" VALUE="0">
<PARAM NAME="PlayCount" VALUE="1">
<PARAM NAME="PreviewMode" VALUE="0">
<PARAM NAME="Rate" VALUE="1">
<PARAM NAME="SAMILang" VALUE="">
<PARAM NAME="SAMIStyle" VALUE="">
<PARAM NAME="SAMIFileName" VALUE="">
<PARAM NAME="SelectionStart" VALUE="-1">
<PARAM NAME="SelectionEnd" VALUE="-1">
<PARAM NAME="SendOpenStateChangeEvents" VALUE="-1">
<PARAM NAME="SendWarningEvents" VALUE="-1">
<PARAM NAME="SendErrorEvents" VALUE="-1">
<PARAM NAME="SendKeyboardEvents" VALUE="0">
<PARAM NAME="SendMouseClickEvents" VALUE="0">
<PARAM NAME="SendMouseMoveEvents" VALUE="0">
<PARAM NAME="SendPlayStateChangeEvents" VALUE="-1">
<PARAM NAME="ShowCaptioning" VALUE="0">
<PARAM NAME="ShowControls" VALUE="-1">
<PARAM NAME="ShowAudioControls" VALUE="-1">
<PARAM NAME="ShowDisplay" VALUE="0">
<PARAM NAME="ShowGotoBar" VALUE="0">
<PARAM NAME="ShowPositionControls" VALUE="-1">
<PARAM NAME="ShowStatusBar" VALUE="0">
<PARAM NAME="ShowTracker" VALUE="-1">
<PARAM NAME="TransparentAtStart" VALUE="0">
<PARAM NAME="VideoBorderWidth" VALUE="0">
<PARAM NAME="VideoBorderColor" VALUE="0">
<PARAM NAME="VideoBorder3D" VALUE="0">
<PARAM NAME="Volume" VALUE="0">
<PARAM NAME="WindowlessVideo" VALUE="0">
</OBJECT>
</div>
<div id="Layer3" style="position:absolute; width:200px; height:115px; z-index:3; left: 120px; top: 140px;"><img src="P_online.jpg" width="300" height="170"></div>
<div id="Layer4" style="position:absolute; width:191px; height:54px; z-index:4; left: 430px; top: 199px;">
<table width="190" height="52" border="1" align="right" bordercolor="#000000" bgcolor="#FF9900">
<tr>
<td height="23" valign="bottom">
<div align="center"></div>
<div align="right">
<input name="btnPre" type="button" disabled="true" id="btnPre" value="上一首">
</div></td>
</tr>
<tr>
<td valign="top">
<div align="right">
<input name="btnNext" type="button" id="btnNext" value="下一首">
</div></td>
</tr>
</table>
</div>
<div id="Layer2" style="position:absolute; width:503px; height:58px; z-index:2; left: 120px; top: 67px;">
<table width="501" border="1">
<tr>
<td width="100"><font color="#FFFFFF" size="2">播放内置歌曲：</font></td>
<td width="317">
<SELECT name="list" size="1" id="list" style="WIDTH: 328px; BACKGROUND-COLOR: darkorange">
<!--用循环来初始化下拉列表-->
<script language="VBScript">
set xml=xmlFile.recordset
xml.MoveFirst
dim num
for num=0 to xml.RecordCount-1
document.write("<OPTION value="&xml("url")&">"&xml("歌名")&"</OPTION>")
xml.MoveNext
next
xml.MoveFirst
</script>
</SELECT>
</td>
<td width="62"><div align="right">
<input name="btnLAN" type="button" id="btnLAN" value="播放">
</div></td>
</tr>
<tr>
<td><font color="#FFFFFF" size="2" >播放网络歌曲：</font></td>
<td><input name="textURL" type="text" id="textURL" style="WIDTH: 328px; BACKGROUND-COLOR: darkorange;color: #000000;"></td>
<td><div align="right">
<input name="btnNET" type="reset" id="btnNET" value="播放">
</div></td>
</tr>
</table>
</div>
<div id="Layer5" style="position:absolute; width:500px; height:20px; z-index:5; left: 120px; top: 320px;">
<p><font color="#FFFFFF" size="2">正在播放：
<input name="textSonger" type="text" class="input" id="textSonger" size="15">
演唱的
<input name="textSongName" type="text" class="input" id="textSongName" size="35">
</font></p>
</div>
<div id="Layer6" style="position:absolute; width:500px; height:150px;
z-index:6; left: 120px; top: 349px;">
<textarea name="area" cols="68" rows="15" id="area"
style="BORDER-RIGHT: white double; BORDER-TOP: white double;
BORDER-LEFT: white double;COLOR: #000000; DIRECTION: ltr;
BORDER-BOTTOM: white double;BACKGROUND-COLOR: darkorange;
TEXT-ALIGN: left">
</textarea>
</div>
<!--各按钮的单击事件-->
<script language="VBScript">
sub play()
textSonger.value=xml("演唱者")
textSongName.value=xml("歌名")
textURL.value=""
area.value=xml("歌词")
player.filename=xml("URL")
if xml.AbsolutePosition=xml.recordcount then
btnNext.disabled=true
else
btnNext.disabled=false
end if
if xml.AbsolutePosition=1 then
btnPre.disabled=true
else
btnPre.disabled=false
end if
end sub
sub btnLAN_onclick
xml.MoveFirst
while xml("URL")<>list.value
xml.MoveNext
wend
call play()
end sub
sub btnNET_onclick
player.filename = textURL.value
textSonger.value = ""
textSongName.value = ""
area.value = "自定义网络歌曲"
end sub
sub btnPre_onclick
xml.MovePrevious
list.selectedIndex = list.selectedIndex - 1
call play()
end sub
sub btnNext_onclick
xml.MoveNext
list.selectedIndex = list.selectedIndex + 1
call play()
end sub
</script>
</body>
</html>
===========================================================================
现在，你知道怎么给服务器减负了吗？^-^
本文旨在探讨，如有错漏，欢迎指正与讨论。
感谢站长miles这些日子来不倦的帮助，无以回报，唯有灌上此文。
- 没有相关文章
- 没有评论
