您的位置:首页网页设计ASP实例 → 用XML结合数据库,给服务器减负。

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

时间:2004/11/7 3:02:00来源:本站整理作者:蓝点我要评论(0)

到了今天,数据库已经成了网站的灵魂,可以说,没有对数据进行集中管理

就算不上是一个真正的网站。而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文件:





<在线播放>

<歌曲>

<歌名>Hello Goodbye

ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3<;/URL>

<演唱者>The Beatles

<歌词>You say yes, I say no



<歌曲>

<歌名>Yesterday

http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3

<演唱者>The Beatles

<歌词>Yesterday, all my troubles seemed so far away





试试看,用记事本编辑一下这个文件,并保存文件名为songList.xml,然后用IE浏览器打开

这个文件,如果没有语法错误,即可在浏览器中显示XML所独有的树状页面。

点击后面的链接查看效果:      XML文件



这就是一个合法的XML文档,而XML文档的规则与格式也非常自由,如果你要创建一个新的XML

文件,只需一字不改地照写第一行“”,而后面

的标签与标签之间的text就可以很随意,仅仅遵守以下规则即可:



1.首标签与尾标签必须对应,可以重复,但不可以嵌套。

2.标签的命名规则与JAVA/C/C++等程序语言的变量命名规则相似,区分大小写。

3.一个文档只能有一个根元素,如实例中的“<在线播放>”

4.唯一的关键字“XML”,标签不能以这三个字母开头。

5.如果文档与规则有所冲突,将导制XML文档在浏览器中无法正常显示,亦表示非合法的XML

 文档。



OK,我们已经知道怎样写一个合法的XML文档了,下一步我们将开始探讨将XML文件嵌入到HTML

文件中,并用VBScript脚本语言操作XML文档中的数据。先看下面这个文件:









用XML嵌入HTML









<在线播放>

<歌曲>

<歌名>Hello Goodbye

ftp://61.139.37.148/music/songs01/english/beatles/hellogoodbye.mp3<;/URL>

<演唱者>The Beatles

<歌词>You say yes, I say no



<歌曲>

<歌名>Yesterday

http://www.mayia.com/beatlescom/beatles/mp3/mp3/yesterday.mp3

<演唱者>The Beatles

<歌词>Yesterday, all my troubles seemed so far away











set xml=xmlFile.recordset

xml.MoveFirst

document.write "第一条记录
"

document.write xml("歌名")&"
"

document.write xml("演唱者")&"
"

document.write xml("URL")&"
"

document.write xml("歌词")&"

"

xml.MoveNext

document.write "第二条记录
"

document.write xml("歌名")&"
"

document.write xml("演唱者")&"
"

document.write xml("URL")&"
"

document.write xml("歌词")&"
"







点击后面的链接查看实例:          查看

在这个HTML文件中,我们加入了一对标记,用来嵌入一个内部XML文档。

嵌入在HTML文件中的XML文档一样地遵循与独立的XML文档一样的规则,只是省去了独立

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◆      

点击后面的链接查看实例            查看







殷亮的在线播放













<% ''''''''''''''''''''连接数据库'''''''''''''''''''''''''

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

%>







<在线播放>

<% 

If not rs.eof then

while not rs.eof

%>

<歌曲>

<歌名><%= trim(rs("song_name")) %>

<%= trim(rs("song_url")) %>

<演唱者><%= trim(rs("songer")) %>

<歌词><%= trim(rs("song_lyrics")) %>



<% 

rs.movenext

wend

End If 

%>







  

 

   





























































































































 

 

   

      

       

         

       

         

       

   

   

     

 

         

       

   

 



 

 

    

     播放内置歌曲:

     

  

 

         

set xml=xmlFile.recordset

xml.MoveFirst

dim num

for num=0 to xml.RecordCount-1

document.write(""&xml("歌名")&"")

xml.MoveNext

next

xml.MoveFirst 



  

 

     

         

       

   

    

     播放网络歌曲:

     

     

         

       

   

 



 

 

正在播放: 

   

   演唱的 

   

   






z-index:6; left: 120px; top: 349px;">

 
  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">

 









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







现在,你知道怎么给服务器减负了吗?^-^



本文旨在探讨,如有错漏,欢迎指正与讨论。

感谢站长miles这些日子来不倦的帮助,无以回报,唯有灌上此文。


相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 迅雷新手完全入门手册 asp下面javascript上传图片限制格式大小方法告诉大家网页弹出窗口应用总结ASP常见错误类型大全asp常见错误分析和解决办法

人气排行 总是弹出visual studio 实时调试器 三种解决SQLSERVER存储过程及调用详解Asp获取真实IP地址ASP中连接Mssql的几种方法一个简单好用的UBB编辑器(含代码)如何用Split将字符串转换为数组并获取数组下ASP防止表单重复提交的办法告诉你免费的简单聊天室源代码