请问各位哥哥姐姐 叔叔 阿姨们 我现在有一个音乐网站的源码，我想把播放的源码改成下载的 怎么改呀~~~而且希望不要会员限制，谁都可以下 <!--#include file="conn.asp"--> <% Session("auth") = True Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <!--#include file="const.asp"-->
<% Response.Write "" id=request.QueryString("id") founderr=false if id="" then end if set rs=server.createobject("adodb.recordset") sql = "SELECT * FROM MusicDJ WHERE id="&id rs.open sql,conn,1,3 if rs("LF_Path")="" then else rs("hits")=rs("hits")+1 rs.update MusicName=rs("MusicName") hits=rs("hits") rs.close end if %> <html> <script> if(window.name!='DJplay_song') { top.location=""; } </script> <SCRIPT LANGUAGE="JScript.Encode" src=images/play.rm></SCRIPT> <SCRIPT LANGUAGE="JavaScript"> <!-- Hide function killErrors() { return true; } window.onerror = killErrors; //容错 // --> </SCRIPT> <script> { window.resizeTo( 348 , 389 ); } s4="<%=id%>"; </script> <head><title>歌曲播放：<%=musicname%>--汕头DJ街区</title></head> <STYLE type=text/css>TD { FONT-SIZE: 12px; COLOR: #000000 } A { COLOR: #cccccc; TEXT-DECORATION: none } </STYLE> <body leftMargin="0" topMargin="0" MARGINHEIGHT="0" MARGINWIDTH="0" oncontextmenu="self.event.returnValue=false;alert('汕头DJ街区版权所有!')" onkeydown='if(event.keyCode==78&&event.ctrlKey)return false;' onload=player_play() onselectstart="event.returnValue=false" ondragstart="window.event.returnValue=false" bgcolor="#004D99" background="image/bg.gif"> <table border="0" cellpadding="0" cellspacing="0" width="340"> <tr> <td style="font-weight: normal; font-size: 9pt; font-style: normal; font-variant: normal; color: #ffffff"> <IMG src="images/player_1.gif" width="342" height="30" border=0><table border="0" width="100%" background="images/player_2.gif" height="26"> <tr> <td style="font-weight: normal; font-size: 9pt; font-style: normal; font-variant: normal; color: #ffffff"> <font color="#000000"><marquee scrollamount="2" onmouseover='this.stop()' onmouseout='this.start()' scrolldelay="60"><%=LM1Code%></marquee></font><td width="81" style="font-weight: normal; font-size: 9pt; font-style: normal; font-variant: normal; color: #ffffff"></td></td> </tr> </table> </td> </tr> <tr> <td background="images/player_bg.gif" style="font-weight: normal; font-size: 9pt; font-style: normal; font-variant: normal; color: #ffffff"> <p align="center"> <script LANGUAGE="javaScript"> var ERR_NonePlayer="您的系统中没有安装Real Player播放器。请安装!\n\n播放器将关闭。"; var ERR_FileNotFind="未发现你要点播的舞曲。\n\n请更换其他舞曲！"; var ERR_NotLocateServer="播放器链接本舞曲所在服务器超时，请重新点播！"; var ERR_UnkownError="目前本站在线用户过多，服务器限制，请抢线或稍后试听！"; </script> <script LANGUAGE="VBScript"> on error resume next RealPlayerG2 = (NOT IsNull(CreateObject("rmocx.RealPlayer G2 Control")))\n'); RealPlayer5 = (NOT IsNull(CreateObject("RealPlayer.RealPlayer(tm) ActiveX Control (32-bit)"))) RealPlayer4 = (NOT IsNull(CreateObject("RealVideo.RealVideo(tm) ActiveX Control (32-bit)"))) if not RealPlayerG2 and RealPlayer5 and RealPlayer4 then if MsgBox("您的浏览器无法自动下载最新的浏览器插件，是否要下载播放器来播放？", vbYesNo) = vbYes then window.location = "ftp://dllishui.pchome.net/multimedia/media/RealOneGOLDcn.exe" end if end if
Sub player_OnBuffering(lFlags,lPercentage) if (lPercentage=100) then StartPlay=false if (FirstPlay) then FirstPlay=false end if exit sub end if End Sub Sub player_OnErrorMessage(uSeverity, uRMACode, uUserCode, pUserString, pMoreInfoURL, pErrorString) select case player.GetLastErrorRMACode() case -2147221496 window.alert(ERR_FileNotFind) case -2147221433,-2147221428,-2147221417,-2147217468 window.alert(ERR_NotLocateServer) case else window.alert(ERR_UnkownError) end select End Sub </script> <embed name="player" src="qcgdrm.asp?songid=<%=id%>" width="318" height="266" type="audio/x-pn-realaudio-plugin" autostart="true" controls="imagewindow,ControlPanel"> <script language="javascript"> player.SetWantErrors(true); </script> </td> </tr> <tr> <td style="font-weight: normal; font-size: 9pt; font-style: normal; font-variant: normal; color: #ffffff"> <IMG src="images/player_3.gif" width="340" height="26" border=0></td> </tr> </table> 这个是播放的
