用XML结合数据库给服务器减负

【 tulaoshi.com - Web开发 】

　　到了今天，数据库已经成了网站的灵魂，可以说，没有对数据进行集中管理就算不上是一个真正的网站。而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/歌名
　　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的这些内容后，我们完全可以开始我们真正的服务器减负行动了！

　　我们的思路是：

　　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

　　现在，你知道怎么给服务器减负了吗？^-^本文旨在探讨，如有错漏，欢迎指正与讨论。