<!--#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 ticount,newti,tishow
Dim tiSQL
Dim defeat,haha,hahata,hahazz
ticount = JaZ.GetCount("Count(*)","JaMusicSpecial","Where JaUid='"&B&"' ")
tishow = JaZ.GetCount("Count(*)","JaMusicSpecial","Where JaUid='"&B&"' and IsShow=1 ")
If tishow=0 Then
tiSQL = "JaUid='"&B&"' Order By ID Desc"
Else
tiSQL = "JaUid='"&B&"' and IsShow=1 Order By ID Desc"
End if
newti = JaZ.GetBlogRe("SpecialName,SpecialMemo,IsShow","JaMusicSpecial",tiSQL)

Dim isnn,isstr,i,j
isnn = JaZ.GetCount("Count(*)","JaMusic","Where JaUid='"&B&"' and JaSpecialID=0")
isstr = JaZ.GetBlogRe("*","JaMusic","JaUid='"&B&"' and JaSpecialID=0")

If newti = false Then
defeat = "默认专题"
  If isnn = 0 Then
  haha = "您还没有收藏音乐，请点击添加歌曲。<br>添加音乐，您的朋友访问时就可以听到您添加的音乐。"
  Else
  hahata = "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  For i=0 To isnn-1
  hahazz = hahazz & "<tr><td width='91%'><b><font color=#FF9900>"&i+1&"&nbsp;</font></b>"&isstr(3,i)&"&nbsp;"
    For j=0 To isstr(6,i)-1
    hahazz = hahazz & "<img src='Qz/icon_star.gif' width='11' height='10'>"
    Next
  hahazz = hahazz & "</td><td width='9%'><a href=javascript:showmusic('"&B&"','"&isstr(5,i)&"')>"
  hahazz = hahazz & "<img src='Qz/bt_01.gif' alt='收听' width='12' height='12' border='0'></a></td>"
  hahazz = hahazz & "</tr><tr>" 
  hahazz = hahazz & "<td colspan='2'>"&isstr(7,i)&"</td></tr>"
  hahazz = hahazz & "<tr><td colspan='2'><hr size='1' color='#CCCCCC'></td></tr>"
  Next
  haha = hahata & hahazz & "</table>"
  End if
Else
defeat = newti(0,0)
haha = newti(1,0)
End if

Dim ouCount,conStr
ouCount = JaZ.GetCount("Count(*)","JaBaal","Where JaUid='"&B&"' ")
conStr = JaZ.GetBlogRe("*","JaBaal","JaUid='"&B&"' Order By ID Desc")
%>
<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 width="76%" height="23" class="title4">&nbsp;<span class="classs"><img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp;<b> 
      音乐收藏（<%=ticount%>）——<%=defeat%> 专题</b></span></td>
    <%If JaCheckIsLog = "yes" Then%>
    <td colspan="2" class="title4"> <div align="center"><img src="Qz/bt_05.gif" width="16" height="14">&nbsp;<a href="MusicSpecial.asp?JaUid=<%=B%>">添加专题</a> </div>
      </td>
    <%If JaCheckIsLog="yes" Then%>
    <%End if%>
  </tr>
  <%End if%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=haha%>
      </td>
  </tr>
</table><br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="23" class="title4">&nbsp;<span class="classs"><img src="Style/<%=Trim(C(5))%>/b.gif" width="1" height="1" align="absmiddle" class="ltitle">&nbsp;<b> 
      我的偶像
<%If ouCount>0 Then%>（<%=ouCount%>）——<%=conStr(3,0)%><%End If%></b></span> </td>
  </tr>
</table><br>
<%If ouCount=0 Then
   If JaCheckIsLog = "yes" Then
   Response.Write "<center>您还没有创建偶像，<br>请点击  <img src='Qz/bt_05.gif' width='16' height='14'>&nbsp;"
   Response.Write "<a href='BaalAdd.asp?JaUid="&B&"'>开始创建</a></center>"
   Else
   Response.Write "<center>该用户还没有创建偶像!</center>"
   End if
Else
%>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="center" valign="top"> 
    <td width="180" height="180" valign="middle" ><table width="160" border="0" cellspacing="1" cellpadding="0" bgcolor="#CCCCCC" height="160">
        <tr> 
          <td id = "idoleimg" bgcolor="#FFFFFF" align="center"><img src="<%=conStr(11,0)%>" border="0" width="150" height="150"></td>
        </tr>
      </table>
      <table height="3" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td></td>
        </tr>
      </table>
      <a href="MusicDoc.asp?JaUid=<%=B%>&musicID=<%=conStr(1,0)%>" class="classs">偶像音乐</a></td>
    <td valign="top"><table height="3" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td></td>
        </tr>
      </table>
      <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="20" colspan="2" class="text">中文姓名：<%=conStr(3,0)%></td>
        </tr>
        <tr> 
          <td colspan="2" class="line"></td>
        </tr>
        <tr> 
          <td height="20" colspan="2" class="text"> 生日：<%=conStr(4,0)%></td>
        </tr>
        <tr> 
          <td colspan="2" class="line"></td>
        </tr>
        <tr> 
          <td width="50%" class="text">星座：<%=conStr(5,0)%></td>
          <td width="50%" class="text">血型：<%=conStr(6,0)%> 型</td>
        </tr>
        <tr> 
          <td width="50%" class="text"> 身高：<%=conStr(7,0)%> 厘米</td>
          <td width="50%" class="text">体重：<%=conStr(8,0)%> 公斤</td>
        </tr>
        <tr> 
          <td colspan="2" class="line"></td>
        </tr>
        <tr> 
          <td colspan="2" class="text">爱好：<%=conStr(9,0)%></td>
        </tr>
        <tr> 
          <td colspan="2" class="line"></td>
        </tr>
        <tr> 
          <td colspan="2" class="text">简介：<%=conStr(10,0)%></td>
        </tr>
      </table></td>
  </tr>
</table>
<%End if%>
</body>
</html>
