<% Dim MusicID,MusicArray,MusicNum,songpath MusicID=request.QueryString("id") '创建排列顺序 MusicArray=Split(MusicID, ",") MusicNum = UBound(MusicArray) set rs=server.createobject("adodb.recordset") For i=0 To MusicNum sql="select Musicname,Wma,Singer,song_path from [MusicList] where id ="&MusicArray(i) rs.open sql,conn,1,1 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 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 11 song_path=song_path11 Case 12 song_path=song_path12 Case 13 song_path=song_path13 Case 14 song_path=song_path14 Case 15 song_path=song_path15 Case 16 song_path=song_path16 Case 17 song_path=song_path17 Case 18 song_path=song_path18 Case 19 song_path=song_path19 Case 20 song_path=song_path20 Case 21 song_path=song_path21 Case 22 song_path=song_path22 Case 23 song_path=song_path23 Case 24 song_path=song_path24 Case 25 song_path=song_path25 Case 26 song_path=song_path26 Case 27 song_path=song_path27 Case 28 song_path=song_path28 Case 29 song_path=song_path29 Case 30 song_path=song_path30 Case 31 song_path=song_path31 Case 32 song_path=song_path32 Case 33 song_path=song_path33 Case 34 song_path=song_path34 Case 35 song_path=song_path35 Case 36 song_path=song_path36 Case 37 song_path=song_path37 Case 38 song_path=song_path38 Case 39 song_path=song_path39 Case 40 song_path=song_path40 Case else song_path=song_path1 End Select song_path=song_path&rs("Wma") %> 免费影院 免费影院 免费影院www.xxxxxx.com "/> "/> <% End If rs.close Next set rs=nothing CloseDatabase %> <% Dim MusicID MusicID=trim(request.QueryString("id")) If MusicID="" Then Response.Write ("<script language=JavaScript>alert('错误!\n\n您至少需要选择一部影片');javascript:window.close();</script>") Response.end End If '更新点击量 'conn.execute("update [MusicList] set hits=hits+1 where id in ("&MusicID&")") '创建排列顺序 MusicArray=Split(MusicID, ",") MusicNum = UBound(MusicArray) set rs=server.createobject("adodb.recordset") For i=0 To MusicNum sql="select MusicName,Singer,hits from MusicList where id ="&MusicArray(i) rs.open sql,conn,1,3 If not rs.eof Then rs("hits")=rs("hits")+1 rs.Update MusicName=MusicName&", "&rs("MusicName") Singer=Singer&", "&rs("Singer") hits=hits&","&rs("hits") End If rs.close Next set rs=nothing CloseDatabase hits=Mid(hits,2) Singer=Mid(Singer,3) MusicName=Mid(MusicName,3) %> <script language=javascript id=clientEventHandlersJS> </script> <script language="JScript" src="player.js"></script> <script> // function rf() {return false; } document.oncontextmenu = rf function keydown() {if(event.ctrlKey ==true || event.keyCode ==93 || event.shiftKey ==true){return false;} } document.onkeydown =keydown function drag() {return false;} document.ondragstart=drag function stopmouse(e) { if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2)) return false; } document.onmousedown=stopmouse; if (document.layers) window.captureEvents(Event.MOUSEDOWN); window.onmousedown=stopmouse; </script>

<script language="JScript" event="currentItemChange()" for="MediaPlayer1"> flashplayer.style.width=199; flashplayer.style.height=153; MediaPlayer1.style.width=0; MediaPlayer1.style.height=0; song_result(); </script> <script language="JScript" event="buffering(Start)" for="MediaPlayer1"> var timeout_id; if (Start==true) { if(state_list) state_list.innerHTML ="缓冲：" time_list.innerHTML =MediaPlayer1.currentMedia.durationString; show_buffer(); } else { state_list.innerHTML ="播放：" flashplayer.style.width=0; flashplayer.style.height=0; MediaPlayer1.style.width=199; MediaPlayer1.style.height=153; } </script>

全屏“双击屏幕”看不了的影片请改天再试！
以后出现进不来本站，请按键盘＂F５＂键

<script language="javascript"> </script>