wma_bzmtv_mx.asp

一个不错的音乐网站

<!--#include file="conn.asp"-->
<!--#include file="../bzmtv-inc/path.asp"-->
<ASX version = "3.0">
<%
MusicID=request.QueryString("id")
MusicArray=Split(MusicID, ",")
MusicNum = UBound(MusicArray)
set rs=server.createobject("adodb.recordset")
For i=0 To MusicNum
	sql="select * from [special] where specialid ="&MusicArray(i)
	rs.open sql,conn,1,3
	rs("hits")=rs("hits")+1
	rs.Update
	If not rs.eof Then
		songpath=rs("song_path")
		If songpath="" or IsNull(songpath) Then
			songpath=1
		End If
		Select Case songpath
			Case 1
				song_path=song_path1
			Case 2
				song_path=song_path2
			Case 3
				song_path=song_path3
			Case 4
				song_path=song_path4
			Case 5
				song_path=song_path5
			Case else
				song_path=song_path1
		End Select
		song_path=song_path&rs("Wma")
%>
<entry SKIPIFREF="YES">
<ref href="<%=song_path%>"/> 
</ENTRY>
<%  
End If
rs.close
Next	
set rs=nothing
%>
</ASX>