一个点击听歌程序的小小错误 - ASP技术论坛

问题点数：0 回复次数：0

一个点击听歌程序的小小错误

我定义了一个listenfun.asp

<script language="javascript">
function openlisten()
{window.open("listenning.asp?music_chinese=<%=music%>","newwindow","height=500,width=450");}

</script>

下面是一个调用页
<%Set connect=Server.CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.Recordset")
dim s
connect.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".\lanyadb.MDB") & ";Persist Security Info=False"
s="Select * from music_info where music_new=1 order by music_date desc"
rs.open s,connect,1,1

Do

music=Trim(rs("music_chinese"))
picture="musicpic\" & Trim(rs("music_picture"))

%>

<tr>
<td onClick="openlisten()"><img border=0 src=<%=picture%> alt=<%=music%>>
<td><table width=100% border=0>

<tr><td onClick="javascript:window.open('listenning.asp?music_chinese=<%=music%>','','height=500,width=450')">
<a title="点击试听"> <font color="#3300FF"> <%=music%>  <%=Trim(rs("music_english"))%></font></a>

<td align=right onClick="openlisten()">发行日期：<%=Trim(rs("music_date"))%>

<tr>
<td colspan=2 align=center> 作曲：<%=Trim(rs("music_writer"))%>   演唱：<%=Trim(rs("music_actor"))%>

<tr><td colspan=2><%=rs("music_brief")%>

<tr><td colspan=2 align=right>出品：<%=Trim(rs("music_producer"))%>

</table>

<%
rs.movenext
Loop until rs.Eof

rs.Close
Set rs=Nothing

%>

但是，每次听歌时打开数据库中最后一个内容如何解决？

搜索更多相关主题的帖子: javascript　language　function　False　music　