<!--#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 rs,sqlstr,MaxPerPage,text,checkpage,CurrentPage,i,p
Dim JaCheckIsLog
JaCheckIsLog = JaZ.JaIsUser(B) 

sqlstr = "SELECT * FROM [JaMusic] Where JaUid='"&B&"' Order By ID DESC"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sqlstr,conn,1,1
MaxPerPage=3
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If request("page")="" Then 
p = 1
Else
p = request("page")
End if
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
i=0 
%>
<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 src="JsInc/MsgPage.js"></script>
<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">&nbsp;<span class="classs"><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="99%" border="0" cellspacing="2" cellpadding="0">
          <tr> 
            <td colspan="2"> 
              <div align="center">                 
                <%
If Rs.Eof Then			  
Response.Write "对不起，没有任何播放列表<br><br>"
Else
Do While Not Rs.Eof
%>
                <table width="100%" border="0" cellspacing="2" cellpadding="0">
                  <tr> 
<td width="92%"><b><font color="#FF9900"><%=(CurrentPage-1)*MaxPerPage+i+1%></font></b>&nbsp;<%=Trim(Rs(3))%></td>
                    <td width="8%"><a href=javascript:showmusic("<%=B%>","<%=Trim(Rs(5))%>")><img src="Qz/bt_01.gif" width="12" height="12" border=0></a></td>
                  </tr>
                </table>
                <%
i=i+1 
If i >= MaxPerpage Then Exit do
Rs.MoveNext
Loop
End if
%>
              </div></td>
          </tr>
          <tr> 
            <td height="16" colspan="2"> 
              <hr color="#CCCCCC" width="100%" size="1" noshade></td>
          </tr>
          <tr> 
            <td width="50%"><div align="center">
<%If Rs.PageCount <> 0 Then%>
共<%=Rs.PageCount%>页
<Script Language="JavaScript">Pages(<%=CurrentPage%>,<%=Rs.PageCount%>,<%=Rs.RecordCount%>,'page',<%=B%>);</Script>
<%End if%>
 </div>
</td>
          </tr>
        </table>
      </div></td>
  </tr>
</table>
</body>
</html>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
