<!--#Include File="Connection.Asp"-->
<%
'''''''''Write By shangyi31soft shangyi 2005/10/25 QQ2'''''
Dim JaZ,B,C,D,i,k,E,F,G,H,J,L,FLyN
Set JaZ = new q_zone
B = JaZ.JaKillStr(Request.QueryString("JaUid"))
If B="" Then
B= "2"
End If
C=Split(JaZ.GetHeadElement("*",B,"JaUser",""),"<><><>")
D = JaZ.GetRsElement("Top 6 *",B,"JaVicList","ORDER BY JaVicDate DESC")
L =Split(JaZ.GetHeadElement("*",B,"JaFaceSet",""),"<><><>") 
E = JaZ.GetRsElement("*",B,"JaBlogSet","ORDER BY JaDate DESC")
H = JaZ.GetRsElement("Top 3 *",B,"JaBlogSet","ORDER BY JaRe DESC")
J = JaZ.GetRsElement("Top 3 *",B,"JaBlogSet","ORDER BY JaHit DESC")
F = JaZ.GetCount("Count(JaId)","JaBlogSet","")

FlyN = Split(L(2),"|")
%>
<?xml version="1.0" encoding="gb2312" ?>
<JaZone_menu>
<UserInfo>
<JaUid><%=Trim(C(0))%></JaUid>
<JaZoneName><%=Trim(C(1))%></JaZoneName>
<JaUname><%=Trim(C(2))%></JaUname>
<JaAge><%=Trim(C(3))%></JaAge>
<JaSex><%=Trim(C(4))%></JaSex>
<JaInter><%=Trim(C(5))%></JaInter>
<JaXue><%=Trim(C(6))%></JaXue>
<JaXin><%=Trim(C(7))%></JaXin>
<JaBorn><%=Trim(C(8))%></JaBorn>
<JaFace><%=Trim(C(9))%></JaFace>
<JaVic><%=Trim(C(10))%></JaVic>
<JaMemo><%=Replace(Trim(C(14)),"$$$","")%></JaMemo>
<JaSheng><%=trim(C(17))%></JaSheng>
<JaShi><%=trim(C(18))%></JaShi>
<JaYou><%=trim(C(20))%></JaYou>
<JaList><%=Trim(JaZ.JaZoneL(B))%></JaList>
</UserInfo>

<UserFace>
<JaBgSet><%=Trim(L(0))%></JaBgSet>
<JaCursorSet><%=Trim(L(1))%></JaCursorSet>
<JaFlySet><%=Trim(FlyN(0))%></JaFlySet>
<JaFlyNum><%=Trim(FlyN(1))%></JaFlyNum>
<JaUid><%=Trim(L(4))%></JaUid>
<JaStyle><%=Trim(L(5))%></JaStyle>
</UserFace>

<%

for i=0 to 5
 for k=0 to Ubound(D)
  if k=0 then
  Response.Write "<UserVic><JaVicName>" & Trim(D(k,i)) & "</JaVicName>"
  else
  if k=1 then
  Response.Write "<JaVicDate>" & Trim(D(k,i)) & "</JaVicDate>"
  else
  if k=2 then
  Response.Write "<JaVicNum>" & Trim(D(k,i)) & "</JaVicNum>"
  else
  if k=3 then
  Response.Write "<JaUid>" & Trim(D(k,i)) & "</JaUid></UserVic>"   
  End If
  End if 
  End if
  End If
 next
next
%>

<%
Dim fString
for i=0 to F-1
 
 for k=0 to Ubound(E)
  
  if k=0 then
  Response.Write "<JaZoneBlog><JaId>" & Trim(E(k,i)) & "</JaId>"
  else
  if k=1 then
  Response.Write "<JaTitle>" & Trim(E(k,i)) & "</JaTitle>"
  else
  if k=2 then
  Response.Write "<JaMsg>" & Trim(E(k,i)) & "</JaMsg>"
  else
  if k=3 then
  Response.Write "<JaDate>" & Trim(E(k,i)) & "</JaDate>" 
  else
  if k=4 then
  Response.Write "<JaHit>" & Trim(E(k,i)) & "</JaHit>"  
  else
  if k=5 then
  Response.Write "<JaRe>" & Trim(E(k,i)) & "</JaRe>" 
  else
  if k=6 then
  Response.Write "<JaSort>" & Trim(E(k,i)) & "</JaSort>"  
  else
  if k=7 then
  Response.Write "<JaUid>" & Trim(E(k,i)) & "</JaUid></JaZoneBlog>" 
  End If
  End if 
  End if
  End If
  End If
  End If
  End If
  End if


 next



next
%>

<%
for i=0 to 2
 
 for k=0 to Ubound(H)
  
  if k=0 then
  Response.Write "<JaBlogRe><JaReId>" & Trim(H(k,i)) & "</JaReId>"
  else
  if k=1 then
  Response.Write "<JaReT>" & Trim(H(k,i)) & "</JaReT>"
  else
  if k=2 then
  Response.Write "<JaReMsg>" & Trim(H(k,i)) & "</JaReMsg>"
  else
  if k=3 then
  Response.Write "<JaReDate>" & Trim(H(k,i)) & "</JaReDate>" 
  else
  if k=4 then
  Response.Write "<JaReHit>" & Trim(H(k,i)) & "</JaReHit>"  
  else
  if k=5 then
  Response.Write "<JaReRe>" & Trim(H(k,i)) & "</JaReRe>" 
  else
  if k=6 then
  Response.Write "<JaReSort>" & Trim(H(k,i)) & "</JaReSort>"  
  else
  if k=7 then
  Response.Write "<JaUid>" & Trim(H(k,i)) & "</JaUid></JaBlogRe>" 
  End If
  End if 
  End if
  End If
  End If
  End If
  End If
  End if


 next



next
%>


<%
for i=0 to 2
 
 for k=0 to Ubound(J)
  
  if k=0 then
  Response.Write "<JaBlogHi><JaHiId>" & Trim(J(k,i)) & "</JaHiId>"
  else
  if k=1 then
  Response.Write "<JaHiT>" & Trim(J(k,i)) & "</JaHiT>"
  else
  if k=2 then
  Response.Write "<JaHiMsg>" & Trim(J(k,i)) & "</JaHiMsg>"
  else
  if k=3 then
  Response.Write "<JaHiDate>" & Trim(J(k,i)) & "</JaHiDate>" 
  else
  if k=4 then
  Response.Write "<JaHiHit>" & Trim(J(k,i)) & "</JaHiHit>"  
  else
  if k=5 then
  Response.Write "<JaHiRe>" & Trim(J(k,i)) & "</JaHiRe>" 
  else
  if k=6 then
  Response.Write "<JaHiSort>" & Trim(J(k,i)) & "</JaHiSort>"  
  else
  if k=7 then
  Response.Write "<JaUid>" & Trim(J(k,i)) & "</JaUid></JaBlogHi>" 
  End If
  End if 
  End if
  End If
  End If
  End If
  End If
  End if


 next



next
%>
</JaZone_menu>
