给你个最简单的,如果可以的话,自己修饰一下,歌曲列表程序
<%
set musicrs=server.createobject("adodb.recordset")
sql="select * from 存放歌曲表"
musicrs.open sql,conn,1,1
if not musicrs.eof then%>
<table>
<tr>
<td align="center">序号</td>
<td align="center">产地</td>
<td align="center">类型</td>
<td align="center">中文歌名</td>
<td align="center">发行日期</td>
<td align="center">词曲</td>
<td align="center">歌手</td>
<td align="center">所属专辑</td>
</tr>
<% do while not eof%>
<tr>
<td align="center"><%=musicrs("序号")%></td>
<td align="center"><%=musicrs("产地")%></td>
<td align="center"><%=musicrs("类型")%></td>
<td align="center"><a href="listenning.asp?music_id=<%=musicrs("music_id")%>"><%=musicrs("中文歌名")%></a></td>
<td align="center"><%=musicrs("发行日期")%></td>
<td align="center"><%=musicrs("词曲")%></td>
<td align="center"><%=musicrs("歌手")%></td>
<td align="center"><%=musicrs("所属专辑")%></td>
</tr>
<%musicrs.movenext
loop%>
</table>
<%end if
musicrs.close%>
listenning.asp 程序
<% music_id=rsquest("music_id")
if music_id<>"" or not isnull(music_id) then
set listenrs=server.createobject("adodb.recordset")
sql="select * from 存放歌曲表 where music_id="&music_id
listenrs.open sql,conn,1,1
if not listenrs.eof then%>
<embed src="<%=listenrs("歌曲的url")%>"></embed>
<% end if
listenrs.close
end if%>
注意和你的数据库里的字段相适应就应该可以了,你试试吧
[此贴子已经被作者于2006-4-17 22:59:17编辑过]