user_face.asp

erp系統有進銷存,產品管理 供大家學習,

<!-- #include file="include/con_user.asp" -->
<!-- #include file="include/jk_page_cute.asp" -->
<!-- #include file="include/jk_pagecute.asp" -->
<%
'**********************************************************
' 腾龙在线企业商务通用网站系统   甘肃.景泰.伊心
' Email: [e-mail]     ,   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: [e-mail]     ,   QQ：2533239
' Web: http://www.5533239.com , http://www.5533239.cn
' Copyright (C) 2007.07.01 5533239.com All Rights Reserved.
' 腾龙在线(www.5533239.com)，中国中小企业电子商务服务网。
'**********************************************************
%>