28,409
社区成员




<%
dim pg
pg=request.QueryString("id")
if pg="" then
pg=1
end if
if pg=0 then
pg=1
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,1,3
%>
<table width="694" height="332" border="1">
<tr>
<td width="463" height="28" bgcolor="#33FFCC">MC-->ZHANG 个人音乐收藏</td>
<td width="215" bgcolor="#FFFF00"> </td>
</tr>
<tr>
<td height="78"><object id="MediaPlayer" width="460" 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="middle" border="0" standby="Loading Microsoft Windows Media Player components..."
type="application/x-oleobject">
<param name="FileName" value="play_list.asp?id=<%=pg%>" />
<param name="EnableContextMenu" value="-1" />
<param name="uiMode" value="Full" />
<param name="ShowControls" value="-1" />
<param name="ShowPositionControls" value="-1" />
<param name="ShowAudioControls" value="1" />
<param name="CaptioningID" value="value" />
<param name="ClickToPlay" value="-1" />
<param name="CursorType" value="0" />
<param name="CurrentPosition" value="0" />
<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="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" />
</object></td>
<td bgcolor="#66FF66">歌词暂无 </td>
</tr>
<tr>
<td height="216" valign="top">
歌曲列表</br>
<%
do while not rs.eof
response.Write "<a href=play.asp?id="&rs("id")&">" &rs("name") &"</a>"
response.Write("<br>")
rs.movenext
loop
%>
<!--#include file="connclose.asp"-->
</td>
<td valign="top"><div align="left"><a href="liulan.asp" target="_blank">添加新歌曲</a>(格式为wma格式)</div></td>
</tr>
</table>
<SCRIPT LANGUAGE="JavaScript" for="MediaPlayer" event="endofstream">
<!--
alert("播放完毕,谢谢收听。");
//-->
</SCRIPT>
<!--#include file="conn.asp"-->
<%
pg=request.QueryString("id")
if pg="" then
pg=1
end if
set rs=server.CreateObject("adodb.recordset")
sql="select distinct * from music where id>="&pg&""
rs.open sql,conn,1,1
dim pg
%>
<ASX version = "3.0">
<TITLE>med播放器</TITLE>
<author>MC-ZHANG听听</author>
<copyright>本地音乐试听</copyright>
<% do while not rs.eof %>
<entry>
<title><%=rs("name")%></title><author><%=rs("name")%></author>
<copyright><%=rs("name")%></copyright>
<ref href="<%=rs("src1")%>"/>
</ENTRY>
<%rs.movenext
loop%>
</ASX>
<!--#include file="connclose.asp"-->
</body>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
.STYLE2 {color: #000066}
-->
</style>
</head>
<body>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from music"
rs.open sql,conn,1,3
'dim s,m,p(9),j
j=0
s=request.Form("CHANGE")
's="E:\myweb\music\huanhun1.wma,E:\myweb\music\huanhun2.wma"
m=split(s,",")
for i=0 to ubound(m)
'm(i)=rs("src1")
'response.Write m(i)
'for j=0 to ubound(m1)
'response.Write m1(j)
'next
'response.Write m1(ubound(m1))
'rs.update
m1=split(m(i),"\")
if len(m(i))>1 then
rs.addnew
rs("src1")=m(i)
rs("name")=m1(ubound(m1))
rs.update
end if
next
%>
添加歌曲成功,请 <label onclick="window.close()">
<span class="STYLE2">关闭</span>
</lable> 此页面
</body>
</html>