<!--#include file="conn.asp"--> <!--#include file="css/page.asp"--> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>音乐</title>
</head> <body> <% set rs=server.CreateObject("adodb.recordset") sql="select * from zhan_music" rs.open sql,conn,1,1 if rs.bof and rs.eof then response.write "暂时没有任何内容音乐" else url="music.asp" rs.pagesize=10 PageNo=request("PageNo") if PageNo="" or PageNo=0 then PageNo=1 rs.AbsolutePage=PageNo TSum=rs.pagecount maxperpage=rs.pagesize PageNo=PageNo+1 PageNo=PageNo-1 if CINT(pageno)>1 then if CINT(pageno)>CINT(TSum) then response.Write("对不起没有您想要的页数") Response.End end if end if if PageNo<0 then response.Write("没有这一页!") Response.End End if i=0 do while not rs.eof and i<rs.pagesize %>
<font color='#0066cc'>○</font><a href='music.asp?id=<%=rs("music_id")%>'><%=rs("music_name")%></a> '我想通过这个ＩＤ的传送，传到本页面，然后根据传送后的ＩＤ，读取数据库，自动出现下面的一个播放器．请问这样要怎么实现．当我有传送ID才会出现现在的播放器,而刚开始进入这个页面是没有的,但是如果有ID传送过去,就不能显示,所有的歌的列表了,这要怎么做才能使播放音乐正常进行还能显示列表. <%i=i+1 rs.movenext loop %> <object classid=CLSID:6BF52A52-394A-11d3-B153-00C04F79FAA6 codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701standby= type=application/x-oleobject width=408 height=209 id=MediaPlayer1
loading viewastext> <param name="URL" value="<%=Rs("url")%>"> <param name="AudioStream" value="-1"> <param name="AutoSize" value="0"> <param name="AutoStart" value="-1"> <param name="AnimationAtStart" value="0"> <param name="AllowScan" value="-1"> <param name="AllowChangeDisplaySize" value="-1"> <param name="AutoRewind" value="0"> <param name="Balance" value="0"> <param name="BaseURL" value> <param name="BufferingTime" value="5"> <param name="CaptioningID" value> <param name="ClickToPlay" value="-1"> <param name="CursorType" value="0"> <param name="CurrentPosition" value="-1"> <param name="CurrentMarker" value="0"> <param name="DefaultFrame" value> <param name="DisplayBackColor" value="0"> <param name="DisplayForeColor" value="16777215"> <param name="DisplayMode" value="0"> <param name="DisplaySize" value="4"> <param name="Enabled" value="-1"> <param name="EnableContextMenu" value="-1"> <param name="EnablePositionControls" value="0"> <param name="EnableFullScreenControls" value="0"> <param name="EnableTracker" value="-1"> <param name="InvokeURLs" value="-1"> <param name="Language" value="-1"> <param name="Mute" value="0"> <param name="PlayCount" value="1"> <param name="PreviewMode" value="0"> <param name="Rate" value="1"> <param name="SAMILang" value> <param name="SAMIStyle" value> <param name="SAMIFileName" value> <param name="SelectionStart" value="-1"> <param name="SelectionEnd" value="-1"> <param name="SendOpenStateChangeEvents" value="-1"> <param name="SendWarningEvents" value="-1"> <param name="SendErrorEvents" value="-1"> <param name="SendKeyboardEvents" value="0"> <param name="SendMouseClickEvents" value="0"> <param name="SendMouseMoveEvents" value="0"> <param name="SendPlayStateChangeEvents" value="-1"> <param name="ShowCaptioning" value="0"> <param name="ShowControls" value="-1"> <param name="ShowAudioControls" value="-1"> <param name="ShowDisplay" value="0"> <param name="ShowGotoBar" value="0"> <param name="ShowPositionControls" value="-1"> <param name="ShowStatusBar" value="-1"> <param name="ShowTracker" value="-1"> <param name="TransparentAtStart" value="-1"> <param name="VideoBorderWidth" value="0"> <param name="VideoBorderColor" value="0"> <param name="VideoBorder3D" value="0"> <param name="Volume" value="70"> <param name="WindowlessVideo" value="0"> </object> <%call showpage(url,rs.RECORDCOUNT,maxperpage,false,true,"条主题")%> <%end if%> <% rs.close set rs =nothing conn.close set conn=nothing %> </body> </html>
