<!--#Include File="Connection.Asp"-->
 
<%
Dim JaZ,C,flyN,B,cur
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>")
flyN = split(Trim(C(2)),"|")
If Cint(Trim(C(1)))<>0 Then
cur = "CURSOR:url('cur/"&C(1)&".ani');"
Else
cur = ""
End If
Dim JaCheckIsLog
JaCheckIsLog = JaZ.JaIsUser(B)
Dim musicID,maxID
musicID = JaZ.JaKillStr(Request.QueryString("musicID"))
maxID = JaZ.GetCount("ID","JaMusicSpecial","Where JaUid='"&B&"' Order By ID Desc")
If musicID="" Or Isnumeric(musicID)=false Then
  If maxID="" Then
  musicID=0
  Else
  musicID=maxID
  End if
End if
%>
<html>
<head>
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>JaZone</title>
<link type="text/css" rel="stylesheet" href="Style/<%=Trim(C(5))%>/css.css">
</head>
<script language="JavaScript">
function showmusic(jauid,url) { 
window.open("MusicShow.asp?JaUid="+jauid+"&url="+url,"","height=300,width=320,left=300,top=0,resizable=yes,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<body leftMargin=2 topMargin=0 marginheight="0" marginwidth="0" style="background-color:transparent;<%=cur%>" text="#cccccc" link="#cccccc" vlink="#cccccc" alink="#cccccc">
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="23" colspan="5" background="Style/<%=Trim(C(5))%>/titleback.gif"><span class="classs">&nbsp;<img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp; 
      <b>我的音乐收藏</b></span> <div align="center"></div></td>
  </tr>
  <tr> 
    <td width="691" height="2"></td>
    <td width="30"></td>
    <td colspan="3"></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center">
        <table width="100%" border="0" cellspacing="2" cellpadding="0">
          <tr> 
            <td height="23" colspan="2"> 
              <%
Dim de
Set de = Conn.Execute("Select * From [JaMusicSpecial] Where JaUid='"&B&"' Order By ID Desc")
Do While Not de.Eof
Response.Write "<span class='classs'>·</span><a href='?JaUid="& Trim(de(1)) &"&musicID="& de(0) &"'>"& de(2) &"</a>"
de.MoveNext
Loop
Response.Write "<span class='classs'>·</span><a href='?JaUid="&B&"&musicID=0'>默认专题</a>"
de.Close
%>
            </td>
          </tr>
          <%
Dim musicName,rrs,m,y
m=1
musicName = JaZ.GetCount("SpecialName","JaMusicSpecial","Where ID="&musicID&" ")
If musicName="" Then musicName = "默认专题"
Set rrs =Conn.Execute("Select * From [JaMusic] Where JaUid='"&B&"' and JaSpecialID="&musicID&" ")
%>
          <tr> 
            <td colspan="2" class="title4"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="80%" height="18">&nbsp;<img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp;<span class="classs"><b> 
                    音乐专题——<%=musicName%></b></span> </td>
                  <td width="20%">
                    <%If JaCheckIsLog="yes" Then
If musicID<>0 Then%>
                    <a href="MusicAdd.asp?JaUid=<%=B%>"><img src="Qz/bt_05.gif" alt="添加曲目" width="16" height="14" border="0"></a> 
                    <a href="MusicSpeEdit.asp?JaUid=<%=B%>&musicID=<%=musicID%>"><img src="Qz/bt_06.gif" alt="修改此专题" width="14" height="14" border="0"></a> 
                    <a href="MusicSpeDel.asp?JaUid=<%=B%>&musicID=<%=musicID%>" onClick="{if(confirm('确定删除吗?')){return true;}return false;}"><img src="Qz/bt_04.gif" alt="删除此专题" width="14" height="14" border="0"></a> 
                    <%End if
End if
%>
                  </td>
                </tr>
              </table> 
            </td>
          </tr>
          <%
		  If rrs.Eof Then
		  Response.Write "<tr><td>没有任何记录!</td></tr>"
		  Else
		  Do While Not rrs.Eof
		  %>
          <tr> 
            <td><b><font color=#FF9900><%=m%></font></b> <%=rrs(3)%> 
              <%
For y=1 To rrs(6)
Response.Write "<img src='Qz/icon_star.gif' width='11' height='10'>"
Next
%>
            </td>
            <td width="13%"><a href=javascript:showmusic("<%=B%>","<%=Trim(rrs(5))%>")><img src="Qz/bt_01.gif" alt="收听" width="12" height="12" border=0></a> 
              <%If JaCheckIsLog="yes" Then%>
              <a href="MusicEdit.asp?JaUid=<%=B%>&musicID=<%=musicID%>&ID=<%=rrs(0)%>"><img src="Qz/bt_02.gif" alt="编辑" width="12" height="12" border="0"></a> 
              <a href="MusicDel.asp?JaUid=<%=B%>&musicID=<%=musicID%>&ID=<%=rrs(0)%>" onClick="{if(confirm('确定删除吗?')){return true;}return false;}"><img src="Qz/bt_03.gif" alt="删除" width="12" height="12" border="0"></a> 
              <%End if%>
            </td>
          </tr>
          <tr> 
            <td colspan="2"><%=rrs(7)%></td>
          </tr>
          <tr> 
            <td height="20" colspan="2"> <hr size="1" color="#CCCCCC"></td>
          </tr>
          <%
		  m=m+1
rrs.MoveNext
Loop
End if
rrs.Close
%>
        </table>
      </div></td>
  </tr>
</table>
</body>
</html>
