急啊！！大哥大姐门，帮小弟解决下这个问题啊。

[小小一枚]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../common/dbconn.asp"-->
<%=Request("checkid")%>
<%
Dim i,id,Num
if request("id")<>"" then
id=request("id")
else

If Request("checkid")="" or isnull(Request("checkid")) or isempty(Request("checkid")) Then
response.write "没有选择记录"
end if
end if

set rs=server.createobject("adodb.recordset")
sql="select * from yx_music where id in ("&Request("checkid")&") order by id desc"
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update
'=========判断文件后缀=============
file = rs("zuopin_url")
ary_file = split(file,".")
filetype = ary_file(UBound(ary_file ))
'================================

'更多音乐
set m_rs=server.createobject("adodb.recordset")
m_sql="select * from yx_music order by addtime desc"
m_rs.open m_sql,conn,1,1
%>
<html>
<head>
<title>个人音乐库</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE type=text/css>
.p1 {FONT-SIZE: 9pt; FONT-FAMILY: "宋体"}
.f14 {FONT-SIZE: 14px; MARGIN-LEFT: -24pt; align: left}
.f9 {FONT-SIZE: 9pt; LINE-HEIGHT: 18px}
TD {FONT-SIZE: 9pt; LINE-HEIGHT: 18px}
.c {COLOR: #666666}
.formfont {FONT-SIZE: 16px; FONT-FAMILY: "Verdana", "Arial", "Helvetica", "sans-serif"}
.t {COLOR: #0000cc; TEXT-DECORATION: none}
A.t:hover {TEXT-DECORATION: underline}
</STYLE>
</head>
<script>
<!--
function h(obj,url){
obj.style.behavior='url(#default#homepage)';
obj.setHomePage(url);
}
-->
</script>
<body leftmargin="0" topmargin="0">
<%=id%>
<table width="414" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="FFFFFF">
<tr>
<td width="202" height="25" align="left" bgcolor="#DDDDDD">  <span class="f9"><b><%=rs("zuopin_name")%></b></span>   人气：<%=rs("click")%></td>
<td width="198" align="left" bgcolor="#DDDDDD"> </td>
</tr>
<tr>
<td colspan="2" align="center" class=f9> 
</td></tr>
<% if filetype="wma" or filetype="wmv" then%>
<tr>
<td colspan="2" align="center">
<object id="mplayer" width="400" height="68" classid="CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95"
codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=6,4,5,715"
align="baseline" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="FileName" value="<%=rs("zuopin_url")%>" loop-->
<param name="ShowControls" value="1">
<param name="ShowPositionControls" value="0">
<param name="ShowAudioControls" value="1">
<param name="ShowTracker" value="1">
<param name="ShowDisplay" value="0">
<param name="ShowStatusBar" value="1">
<param name="AutoSize" value="0">
<param name="ShowGotoBar" value="0">
<param name="ShowCaptioning" value="0">
<param name="AutoStart" value="<%=a+1%>">
<param name="PlayCount" value="0">
<param name="AnimationAtStart" value="0">
<param name="TransparentAtStart" value="0">
<param name="AllowScan" value="0">
<param name="EnableContextMenu" value="1">
<param name="ClickToPlay" value="0">
<param name="InvokeURLs" value="1">
<param name="DefaultFrame" value="datawindow">

<embed src="<%=rs("zuopin_url")%>" align="baseline" border="0" width="400" height="68"
type="application/x-mplayer2"
pluginspage="http://www.microsoft.com/isapi/redir.dll?prd=windows&sbp=mediaplayer&ar=media&sba=plugin&" showcontrols="1" showpositioncontrols="0"
showaudiocontrols="1" showtracker="1" showdisplay="0"
showstatusbar="1"
autosize="0"
showgotobar="0" showcaptioning="0" autostart="1" autorewind="0"
animationatstart="0" transparentatstart="0" allowscan="1"
enablecontextmenu="1" clicktoplay="0" invokeurls="1"
defaultframe="datawindow">
</embed>
</object>
<br>
 </td>
</tr>
<%else%>
<tr>
<td colspan="2" align="center"><div align="center"><embed name="rplayer" type="audio/x-pn-realaudio-plugin" src="<%=rs("zuopin_url")%>"
controls="ControlPanel,StatusBar" width=400 height=68 border=0 autostart=true loop=true>
</embed>
</div></td>
</tr>
<%end if%>
</table>
<table width="410" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td><strong>更多新歌:</strong></td>
</tr>
<%for i=1 to 10%>
<tr>
<% for j=1to 4 %>
<td width="25%"><a href="?id=<%=m_rs("id")%>" title=<%=m_rs("zuopin_name")%>><%=left(m_rs("zuopin_name"),7)%></a></td>
<%
m_rs.movenext
if m_rs.eof then exit for
next%>
</tr>
<%
if m_rs.eof then exit for
next
m_rs.movenext
%>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
m_rs.close
set m_rs=nothing
conn.close
response.close
%>


里面欠套的那个播放器的 <param name="FileName" value="<%=rs("zuopin_url")%>" loop-->

filename的value值怎么循环得到啊？？

就是播放器可以连续播放多首不同的音乐

[scalewingzip]

帮你顶了