<!--#include file="../inc/sql_conn.asp"-->
<!--#include file="../Path.Asp"-->
<%
ID = Request("id")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Sql="Select * From ylmv_MusicList Where ID In("& id &") Order by -ID DESC"
Rs.Open Sql,Conn,1,3
Do While Not(rs.eof or rs.bof)
	Rs("Hits") = Rs("Hits")+1
	rs.update
		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 6
				song_path=song_path6
			Case 7
				song_path=song_path7
			Case 8
				song_path=song_path8
			Case 9
				song_path=song_path9
			Case 10
				song_path=song_path10
			Case else
				song_path=song_path1
		End Select
		song_path=song_path&rs("Wma")
	Response.Write "Insertsong(" & Chr(34) & song_path &"|"&rs("MusicName")&"|"&rs("Singer")&"|"&ReadSpecial(rs("SpecialID"))&"|"&rs("id")&chr(34)&");" &VbCrLf
	Response.Flush
Rs.MoveNext
Loop
Rs.Close
set rs=nothing


Function ReadSpecial(SpecialID)
	Set Rs1=Server.CreateObject("ADODB.RecordSet")
	Sql="Select SpecialID,name from ylmv_Special where SpecialID="&SpecialID
	Rs1.Open Sql,Conn,1,1
	If Not(rs1.eof or rs1.bof) then
		Sstr=rs1("name")
	end if
	Rs1.Close
	ReadSpecial=Sstr
End Function
%>