user_face.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 34 行

<!-- #include file="include/config_user.asp" -->
<!-- #include file="include/jk_ubb.asp" -->
<!-- #include file="include/conn.asp" -->
<%
tit="浏览头像"

call web_head(0,0,3,0,0)
'------------------------------------left----------------------------------
response.write ukong&vbcrlf&"<table border=0 width='98%' cellpadding=0 cellspacing=8 align=center>"

call user_face()

response.write "</table>"&vbcrlf&kong
'---------------------------------center end-------------------------------
call web_end(0)

sub user_face()
  dim fc,j,fnum,cnum,tt,nnum
  cnum=5:fc=0
  fnum=int(web_var(web_num,11))+1
  fc=fnum\cnum
  if fnum mod cnum >0 then fc=fc+1
  for j=1 to fc
    response.write vbcrlf&"<tr align=center>"
    for i=1 to cnum
      nnum=cnum*(j-1)+i-1
      if nnum>=fnum then exit for
      tt="<table border=0><tr><td align=center><img src='images/face/"&nnum&".gif' border=0></td></tr><tr><td align=center><b>"&nnum&"</b></td></tr></table>"
      response.write vbcrlf&"<td>"&format_k(tt,1,5,120,120)&"</td>"
    next
    response.write vbcrlf&"</tr>"
  next
end sub
%>