<!-- #Include File="../Include/Skin.asp" -->
<!-- #Include File="../Include/Cls_pagecute.asp" -->
<%
'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit="用户头像"
call DoWebHead(0,0)
'----------------------------中间 开始----------------------------
call user_face()
'----------------------------中间 结束----------------------------
call DoWebEnd()
sub user_face()
  dim fc,j,fnum,cnum,rnum,nnum
  cnum=8
  rnum=5
  fc=0
  fnum=Format_Mid_Num(19)+1
	Dim obj_page
	Set obj_page=new Cls_PageCute
	obj_page.pageurl="?"		
	obj_page.nummer=cnum*rnum						
	obj_page.page_t=1									
	obj_page.page_p=5									
	obj_page.page_unit="个"
	obj_page.page_tit="头像"
	obj_page.v_id="id"
	Call obj_page.p_init("","","","")
	obj_page.rssum=fnum
	Call obj_page.p_info()
	Cls.ReadPage "common"
	Dim FaceStr
    FaceStr ="<table>"
  for j=1 to rnum
    FaceStr =FaceStr & vbcrlf&"<tr align=center>"
    for i=1 to cnum
      nnum=cnum*(j-1)+i-1+(obj_page.viewpage-1)*obj_page.nummer
      if nnum>=obj_page.rssum then exit for
      FaceStr =FaceStr & "<td><table border=0><tr><td align=center>"&pic_face(Cls.web_dir&"Images/Face/"&nnum&".gif",3,"")&"</td></tr><tr><td align=center><b>"&nnum&"</b></td></tr></table></td>"
    next
    FaceStr =FaceStr & vbcrlf&"</tr>"
  next
  FaceStr =FaceStr & Vbcrlf & "<tr class=trs><td colspan="&cnum&"><div id=""asaipage"">"&obj_page.page_var&"分页："&obj_page.page_cute&""&obj_page.page_shortcut&"</div></td></tr>" 
  FaceStr =FaceStr & Vbcrlf & "</table>"
	   Cls.HtmlRcod "msg",FaceStr
	   Cls.HtmlRcod "tit",tit
	   Cls.OutPage
End Sub
%>
