<!-- #include file="skin.asp" -->
<!-- #include file="jk_ubb.asp" -->
<!-- #include file="jk_email.asp" -->
<!-- #include file="jk_val_code.asp" -->
<!-- #include file="jk_page_cute.asp" -->
<!-- #include file="jk_pagecute.asp" -->



<%dim types,integral,sort_dim,id,ml,name,nummer,nums,rssum,page,viewpage,thepages,pageurl,pic_fk1 
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel
pageurl="?"
nummer=6
nums=nummer



sub jy_left()
%>
<table cellspacing=1 cellpadding=4  class=table>
<tr><td align=center><%response.write img_skin(web_img_h)%><a href="party_list.asp"><font color=blue>网友聚会</font></a>&nbsp;&nbsp;&nbsp;&nbsp;
<%response.write img_skin(web_img_h)%><a href="user_put.asp?action=party"><font color=blue>发起聚会</font></a></td></tr>
<tr><td colspan=2  class=td0>&nbsp;<%response.write img_skin(web_img_h)&"魅力排行版"%></td></tr>
<%
sql="select top 5 id,username,integral from user_data where hidden=1 order by integral desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  name=rs("username")
  integral=rs("integral")
  response.write vbcrlf&"    <tr><td height='"&dim_num(6)&"'><img src='skin/"&joekoe_cms.web_skin&"/small/h_article.gif' border=0 align=absMiddle>&nbsp;<a href='jy_view.asp?username="&name&"' target=_blank alt='"&joekoe_cms.code_html(name,1,0)&"'>"&joekoe_cms.code_html(name,1,15)&"</a></td><td>"&joekoe_cms.code_html(ml,1,15)&"</td></tr>"
  rs.movenext
loop
rs.close
%>
  </table>

<table cellspacing=1 cellpadding=4 class=table>
<tr><td colspan=2  class=td0>&nbsp;<%response.write img_skin(web_img_h)&"男人魅力排行版"%></td></tr>
<%
sql="select top 5 id,username,ml from user_data where sex=true and hidden=1 order by integral desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  name=rs("username")
  ml=rs("ml")
  response.write vbcrlf&"    <tr><td height='"&dim_num(6)&"'><img src='skin/"&joekoe_cms.web_skin&"/small/h_article.gif' border=0 align=absMiddle>&nbsp;<a href='jy_view.asp?username="&name&"' target=_blank alt='"&joekoe_cms.code_html(name,1,0)&"'>"&joekoe_cms.code_html(name,1,15)&"</a></td></tr>"
  rs.movenext
loop
rs.close
%>
    </table>




<table cellspacing=1 cellpadding=4 class=table>
<tr><td colspan=2 class=td0>&nbsp;<%response.write img_skin(web_img_h)&"女人魅力排行版"%></td></tr>
<%
sql="select top 5 id,username,ml from user_data where sex=false and hidden=1 order by integral desc,id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  id=rs("id")
  name=rs("username")
  ml=rs("ml")
  response.write vbcrlf&"    <tr><td height='"&dim_num(6)&"'><img src='skin/"&joekoe_cms.web_skin&"/small/h_article.gif' border=0 align=absMiddle>&nbsp;<a href='jy_view.asp?username="&name&"' target=_blank alt='"&joekoe_cms.code_html(name,1,0)&"'>"&joekoe_cms.code_html(name,1,15)&"</a></td><td>"&joekoe_cms.code_html(ml,1,15)&"</td></tr>"
  rs.movenext
loop
rs.close
%>
 </table>

<%
end sub
sub jy_main
dim at,username
%>
<table cellspacing=1 cellpadding=1 width=600 height="115">
<tr class=td0>
<td class=td0 width=25% colspan=0 height="16">&nbsp;<%response.write img_skin("m_user")%>最佳男主角</td>
<td class=td0 width=25% colspan=0 height="16">&nbsp;<%response.write img_skin("m_user")%>最新男会员</td>
<td class=td0 width=25% colspan=0 height="16">&nbsp;<%response.write img_skin("m_user")%>最佳女主角</td>
<td class=td0 width=25% colspan=0 height="16">&nbsp;<%response.write img_skin("m_user")%>最新女会员</td>
</tr>
<tr>
<%
sql="select top 1 * from user_data where sex=true order by ml desc"
  set rs=joekoe_cms.exec(sql,1)
%>
<td width=25% colspan=1 align=center height="1"><a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write format_user_face (rs("face"),rs("face_w"),rs("face_h"))%></a></td>
<%
sql="select top 1 * from user_data where sex=true order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  
%>
<td width=25% colspan=1 align=center height="1"><a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write format_user_face(rs("face"),rs("face_w"),rs("face_h"))%></a></td>
<%
sql="select top 1 * from user_data where sex=false order by ml desc"
  set rs=joekoe_cms.exec(sql,1)
%>
<td width=25% colspan=1 align=center height="1"><a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write format_user_face (rs("face"),rs("face_w"),rs("face_h"))%></a></td>
<%
sql="select top 1 * from user_data where sex=false order by ml desc"
  set rs=joekoe_cms.exec(sql,1)
%>
<td width=25% colspan=1 align=center height="1"><a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write format_user_face (rs("face"),rs("face_w"),rs("face_h"))%></a></td>
<%
sql="select top 1 * from user_data where sex=true order by ml desc"
  set rs=joekoe_cms.exec(sql,1)
  
%>

<tr><td width=25% align=center height="76">
用户名称：<a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write rs("username")%></a><br>
出生日期：<%response.write joekoe_cms.code_html(rs("birthday"),1,0)%><br>来自何方：<%response.write joekoe_cms.code_html(rs("whe"),1,0)%><br>现有积分：<%response.write joekoe_cms.code_html(rs("integral"),1,0)%><br><br>
<a href='user_friend.asp?action=add&add_username=<%response.write rs("username")%>' target=_blank><img border=0 alt='将 <%response.write rs("username")%> 加为我的好友' src='<%response.write joekoe_cms.web_dir_skin%>forum/forum_friend.gif' align=absmiddle></a>&nbsp;
 <a href='user_mail.asp?action=msg_write&accept=<%response.write rs("username")%>' target=_blank><img border=0 alt='给 <%response.write rs("username")%> 发送短信' src='<%response.write joekoe_cms.web_dir_skin%>mail/msg.gif' align=absmiddle></a><br><br></td>
 <%
sql="select top 1 * from user_data where sex=true order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  
%>
<td width=25% align=center height="76">
用户名称：<a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write rs("username")%></a><br>
出生日期：<%response.write joekoe_cms.code_html(rs("birthday"),1,0)%><br>来自何方：<%response.write joekoe_cms.code_html(rs("whe"),1,0)%><br>现有积分：<%response.write joekoe_cms.code_html(rs("integral"),1,0)%><br><br>
<a href='user_friend.asp?action=add&add_username=<%response.write rs("username")%>' target=_blank><img border=0 alt='将 <%response.write rs("username")%> 加为我的好友' src='<%response.write joekoe_cms.web_dir_skin%>forum/forum_friend.gif' align=absmiddle></a>&nbsp;
 <a href='user_mail.asp?action=msg_write&accept=<%response.write rs("username")%>' target=_blank><img border=0 alt='给 <%response.write rs("username")%> 发送短信' src='<%response.write joekoe_cms.web_dir_skin%>mail/msg.gif' align=absmiddle></a><br><br></td>
<%
sql="select top 1 * from user_data where sex=false order by ml desc"
  set rs=joekoe_cms.exec(sql,1)
  
%>
<td width=25% align=center height="76">
用户名称：<a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write rs("username")%></a><br>
出生日期：<%response.write joekoe_cms.code_html(rs("birthday"),1,0)%><br>来自何方：<%response.write joekoe_cms.code_html(rs("whe"),1,0)%><br>现有积分：<%response.write joekoe_cms.code_html(rs("integral"),1,0)%><br><br>
<a href='user_friend.asp?action=add&add_username=<%response.write rs("username")%>' target=_blank><img border=0 alt='将 <%response.write rs("username")%> 加为我的好友' src='<%response.write joekoe_cms.web_dir_skin%>forum/forum_friend.gif' align=absmiddle></a>&nbsp;
 <a href='user_mail.asp?action=msg_write&accept=<%response.write rs("username")%>' target=_blank><img border=0 alt='给 <%response.write rs("username")%> 发送短信' src='<%response.write joekoe_cms.web_dir_skin%>mail/msg.gif' align=absmiddle></a><br><br></td>


<%
sql="select top 1 * from user_data where sex=false order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  
%>
<td width=25% align=center height="76">
用户名称：<a href='jy_view.asp?username=<%response.write rs("username")%>'><%response.write rs("username")%></a><br>
出生日期：<%response.write joekoe_cms.code_html(rs("birthday"),1,0)%><br>来自何方：<%response.write joekoe_cms.code_html(rs("whe"),1,0)%><br>现有积分：<%response.write joekoe_cms.code_html(rs("integral"),1,0)%><br><br>
<a href='user_friend.asp?action=add&add_username=<%response.write rs("username")%>' target=_blank><img border=0 alt='将 <%response.write rs("username")%> 加为我的好友' src='<%response.write joekoe_cms.web_dir_skin%>forum/forum_friend.gif' align=absmiddle></a>&nbsp;
 <a href='user_mail.asp?action=msg_write&accept=<%response.write rs("username")%>' target=_blank><img border=0 alt='给 <%response.write rs("username")%> 发送短信' src='<%response.write joekoe_cms.web_dir_skin%>mail/msg.gif' align=absmiddle></a><br><br></td>
</tr>
</tabel><% end sub

sub main_center_pic(cs_tnum,cs_cnum)
dim tmp1,tmp_topic,tmp_url,face
tmp1=vbcrlf&"<tr align=center>"
sql="select top "&cs_tnum&" id,username,face from user_data  order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof

tmp_topic=rs("username")
tmp_url="user_view.asp?username="&rs("username")
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>"& _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("face"),1,tmp_url)&"</td></tr>"& _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"'target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>"& _
vbcrlf&"</td>"
rs.movenext

loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='600'>"&tmp1&vbcrlf&"</table>"

end sub

sub jh%>
<table cellspacing=1 cellpadding=4  width='575'>
<tr><td class=td colspan=7>网友聚会</td></tr>
<tr align=center>
<td  width='10%' bgcolor="#9999FF">所在城市</td>
<td  width='20%' bgcolor="#9999FF">聚会主题</td>
<td  width='25%' bgcolor="#9999FF">聚会地点</td>
<td  width='13%' bgcolor="#9999FF">活动日期</td>
<td width='12%' bgcolor="#9999FF">具体时间</td>
<td  width='10%' bgcolor="#9999FF">发起人</td>
<td  width='10%' bgcolor="#9999FF">报名数</td>
</tr>
<%
sql="select top 8 * from party_list order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
  response.write vbcrlf&" <tr align=center><td>"&rs("party_add")&"</td><td><a href=party_view.asp?id="&rs("id")&">"&rs("party_info")&"</a></td><td>"&rs("address")&"</td><td>"&rs("party_date")&"</td><td>"&rs("party_time")&"</td><td>"&rs("party_master")&"</td><td>"&rs("party_num")&"</td></tr>"
  rs.movenext
  loop
rs.close%>
</table>
<%end sub
sub gg
%>
<table cellspacing=1 cellpadding=4  width='575'>
<tr>
<%
end sub%>