用ASP+XML结合数据库给服务器减负2008年06月11日 阅读:次
随着网站程序的发展ASP＋数据库基本普遍使用，但是数据量越来越大运行效率慢慢地出现问题了。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 = "xml(标准化越来越近了)File">
<在线播放>
<歌曲>
<歌名>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(标准化越来越近了)=xml(标准化越来越近了)File.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：xml(标准化越来越近了)File,以便后面的脚本语言访问该xml(标准化越来越近了)对象。
“set xml(标准化越来越近了)=xml(标准化越来越近了)File.recordset” 语句创建了一个可以访问xml(标准化越来越近了)的游标。这个游标
类似于ASP中的RecordSet对象，所拥有的方法与后者也几乎是完全一样的。如：
当我们用set xml(标准化越来越近了)=xml(标准化越来越近了)File.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 = "xml(标准化越来越近了)File">
<在线播放>
<%
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="http://web.rdxx.com/Files/Pic/Img/ASP_Example/0682915191620956.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(标准化越来越近了)=xml(标准化越来越近了)File.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这些日子来不倦的帮助，无以回报，唯有灌上此文。
|
当前位置：惠州长宽 >> 网络学院 >> 网络编程 >> ASP >> 浏览文章
