到了今天，数据库已经成了网站的灵魂，可以说，没有对数据进行集中管理就算不上是一个真正的网站。而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对数据库的全面超越。
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/webkaifa/）先看下面这个XML文件：
？xml version="1.0" encoding="gb2312"？
在线播放
歌曲
歌名Hello Goodbye/歌名
URLftp://61.139.37.148/music/songs01/english/beatles/helLogoodbye.mp3/URL
演唱者The Beatles/演唱者
歌词You say yes, I say no/歌词
/歌曲
歌曲
歌名Yesterday/歌名
URLhttp://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 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/歌名
URLftp://61.139.37.148/music/songs01/english/beatles/helLogoodbye.mp3/URL
演唱者The Beatles/演唱者
歌词You say yes, I say no/歌词
/歌曲
歌曲
歌名Yesterday/歌名
URLhttp://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("歌词")&"BRbr"
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的这些内容后，我们完全可以开始我们真正的服务器减负行动了！
我们的思路是：
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/webkaifa/）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
tdfont color="#FFFFFF" size="2" 播放网络歌曲：/font/td
tdinput name="textURL" type="text" id="textURL" style="WIDTH: 328px; BACKGROUND-COLOR: darkorange;color: #000000;"/td
tddiv 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;"
pfont 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
现在，你知道怎么给服务器减负了吗？^-^本文旨在探讨，如有错漏，欢迎指正与讨论。
