<!-- #include file="include/con_user.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<%
'**********************************************************
' 騰龍在線企業商務通用網站系統   甘肅.景泰.伊心
' Email: wwj@5533239.com     ,   QQ：2533239
' Web: http://www.5533239.com , http://www.5533239.cn
' Copyright (C) 2007.07.01 5533239.com All Rights Reserved.
' 騰龍在線(www.5533239.com)，中國中小企業電子商務服務網。
'**********************************************************

dim nummer,nums,rssum,page,viewpage,thepages,pageurl
pageurl="?"
nummer=0
nums=nummer
tit="用戶頭像"

call web_head(0,0,3,0,0)
'----------------------------中間 開始----------------------------

call user_face()

response.write ukong
'----------------------------中間 結束----------------------------
call web_end(0,0)

sub user_face()
  dim fc,j,fnum,cnum,rnum,tt,nnum
  cnum=5
  rnum=3
  fc=0
  tt=joekoe_cms.own_http()&joekoe_cms.web_dir
  fnum=dim_num(5)+1
  nummer=cnum*rnum
  nums=nummer
  rssum=fnum
  call format_pagecute()
  if int(viewpage)>1 then fc=(viewpage-1)*nummer
%>
<table border=0 cellpadding=0 cellspacing=4 align=center>
<tr align=center>
<td>本站共有 <font class=red><%response.write rssum%></font> 個頭像</td>
<td width=10></td>
<td>頁次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font></td>
<td width=10></td>
<td>分頁：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,5,"#ff0000")%></td>
</tr>
</table>
<table border=0 width='98%' cellpadding=0 cellspacing=8 align=center>
<%
  for j=1 to rnum
    response.write vbcrlf&"<tr align=center>"
    for i=1 to cnum
      nnum=cnum*(j-1)+i-1+fc
      if nnum>=rssum then exit for
%>
<td>
  <table border=0>
  <tr><td align=center><%response.write pic_fk(tt&"images/face/"&nnum&".gif",3,"")%></td></tr>
  <tr><td align=center><b><%response.write nnum%></b></td></tr>
  </table>
</td>
<%
    next
    response.write vbcrlf&"</tr>"
  next
%>
</table>
<%
end sub

'**********************************************************
' 騰龍在線企業商務通用網站系統   甘肅.景泰.伊心
' Email: wwj@5533239.com     ,   QQ：2533239
' Web: http://www.5533239.com , http://www.5533239.cn
' Copyright (C) 2007.07.01 5533239.com All Rights Reserved.
' 騰龍在線(www.5533239.com)，中國中小企業電子商務服務網。
'**********************************************************
%>