用XML结合数据库，给服务器减负(2)

◆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
%>

 
 

 
  
    
  
  
    
  
 

 
  
    
    
    
  
  
    
    
    
  
 

播放内置歌曲：
播放网络歌曲：

 

正在播放：
  
   演唱的
  
  

   style="BORDER-RIGHT: white double; BORDER-TOP: white double; <br>BORDER-LEFT: white double;COLOR: #000000; DIRECTION: ltr; <br>BORDER-BOTTOM: white double;BACKGROUND-COLOR: darkorange; <br>TEXT-ALIGN: left"><br> 

现在，你知道怎么给服务器减负了吗？

(完)