functions.asp

..不怎么明白。不知道这个市什么只想下个服务端

<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

'-----------------------------------查看用户信息------------------------------------
function format_user_view(uuser,ut,un)
  if var_null(uuser)="" then
    format_user_view="<font class=gray>-----</font>"
    exit function
  end if
  dim uname
  uname=uuser
  if un=1 then uname=joekoe_cms.cuted(uuser,5)
  format_user_view="<a href='"&joekoe_cms.web_dir&"user/user_view.asp?username="&server.urlencode(uuser)&"' alt='查看 "&uuser&" 的详细资料'"
  if ut=1 then format_user_view=format_user_view&" target=_blank"
  format_user_view=format_user_view&">"&uname&"</a>"
end function

function format_user_name(varss,ctt,ct)
  dim cnum,vars,classt
  cnum=5
  if int(ctt)=0 then cnum=0
  vars=varss
  if var_null(vars)="" then
    format_user_name="<font class=gray>-----</font>"
    exit function
  end if
  if var_null(ct)<>"" and ct<>"" then classt=" class="&ct
  format_user_name="<a href='"&joekoe_cms.web_dir&"user/user_view.asp?username="&server.urlencode(vars)&"' alt='查看 "&vars&" 的详细资料' target=_blank"&classt&">"&joekoe_cms.code_html(vars,1,cnum)&"</a>"
end function

function format_user_face(f_vars,f_w,f_h)
  if var_null(f_vars)="" or f_vars="" then
    format_user_face=joekoe_cms.web_dir&"images/face/0.gif"
    exit function
  end if
  format_user_face="<img src='"&f_vars&"' border=0 width="&f_w&" height="&f_h&">"
end function

function user_view_sex(us,utim)
  dim a,b,temp1,t
  a="0"
  b="离线了"
  t=datediff("n",utim,joekoe_cms.now_time)
  if int(t)<=int(dim_num(2)) then
    a=""
    b="在线哦！有人找吗？"
  end if
  if us=false then
    temp1="<img src='"&joekoe_cms.web_dir_skin&"small/girl"&a&".gif' align=absmiddle alt='"&web_n_girl&"，"&b&"' border=0>"
  else
    temp1="<img src='"&joekoe_cms.web_dir_skin&"small/boy"&a&".gif' align=absmiddle alt='"&web_n_boy&"，"&b&"' border=0>"
  end if
  user_view_sex=temp1
end function

function forum_user_power_grade(u_int,u_power)
  dim dim_power,dim_grade,si,snum,sdim,sdim2,gp_type,gp_types,gp_name,up_type,up_name,n_int,b
  n_int=0
  b=0
  dim_power=dim_user
  dim_grade=split(web_user_grade,"|")
  snum=ubound(dim_power)
  for si=0 to snum
    sdim=split(dim_power(si),":")
    if u_power=sdim(0) then
      up_type=sdim(0)
      up_name=sdim(1)
      select case si
      case 0
        gp_types=up_type
        gp_type="p"
      case 1
        gp_types=up_type
        gp_type="p"
      case 2
        gp_type="p"
      end select
    end if
  next
  if up_type="" or up_name="" then
    sdim=split(dim_power(0),":")
    up_type=sdim(0)
    up_name=sdim(1)
  end if
  snum=ubound(dim_grade)
  for si=0 to snum
    sdim=split(dim_grade(si),":")'''
    if int(si)<>int(snum-1) then sdim2=split(dim_grade(si+1),":")
    select case si
    case snum-1
      if int(u_int)>=int(sdim(0)) then
        n_int=si
        gp_name=sdim(1)
        b=1
      end if
    case else
      if int(u_int)<int(sdim2(0)) then
        n_int=si
        gp_name=sdim(1)
        b=1
      end if
    end select
    if b=1 then exit for
  next
  dim gp_type2,gp_type3
  gp_type2=gp_type
  gp_type3=gp_type&n_int
  if gp_types<>"" and var_null(gp_types)<>"" then
    gp_type3=gp_types
  end if
  if isarray(dim_power) then erase dim_power
  if isarray(dim_grade) then erase dim_grade
  if isarray(sdim) then erase sdim
  if isarray(sdim2) then erase sdim2
  forum_user_power_grade="<img src='"&joekoe_cms.web_dir_skin&"star/star_"&gp_type3&".gif' border=0><br>&nbsp;&nbsp;等级：<img border=0 src='"&joekoe_cms.web_dir_skin&"small/icon_"&up_type&".gif' alt='"&up_name&"' align=absmiddle>&nbsp;"&gp_name
end function

function commend_friend(t1,t2,t3)
  commend_friend="<a href='javascript:;' onclick=""javascript:open_win('"&joekoe_cms.web_dir&"common/commend.asp?nsort="&server.urlencode(t1)&"&topic="&server.urlencode(t2)&"&url="&server.urlencode(t3)&"','commend',500,380,'no');"">→&nbsp;推荐给我的好友</a>"
end function

function img_small(snum)
  img_small="<img border=0 src='"&joekoe_cms.web_dir&"images/small/"&snum&".gif' align=absmiddle>&nbsp;"
end function

function img_skin(snum)
  img_skin="<img border=0 src='"&joekoe_cms.web_dir_skin&"small/"&snum&".gif' align=absmiddle>&nbsp;"
end function

function jk_em(em_frm,em_word)
  dim temp1,j
  for j=0 to 15
    temp1=temp1&"<img src='"&joekoe_cms.web_dir&"images/icon/em"&(j+1)&".gif' border=0 align=absMiddle onclick=""javascript:jk_insert_em('[em"&(j+1)&"]','"&em_frm&"','"&em_word&"');"" style=""cursor: hand"">&nbsp;&nbsp;"
  next
  temp1=temp1&"&nbsp;&nbsp;<font class=gray>[&nbsp;<a href='###' onclick=""javascript:open_win('"&joekoe_cms.web_dir&"common/em.asp?"&em_frm&","&em_word&",em','em',300,360,'no');"">更多EM贴图…</a>&nbsp;]</font>"
  jk_em=temp1
end function

function jk_icon(inum)
  dim temp1,j
  for j=0 to 9
    temp1=temp1&"<img border=0 src='"&joekoe_cms.web_dir&"images/icon/"&j&".gif'>&nbsp;<input class=bg_td type=radio value='"&j&"' name=icon"
    if int(inum)=int(j) then temp1=temp1&" checked"
    temp1=temp1&">&nbsp;"
  next
  jk_icon=temp1
end function

function note_emoney_pay(p_emoney,p_nsort,p_id)
  note_emoney_pay="<img src='"&joekoe_cms.web_dir_skin&"small/emoney.gif' border=0 alt='"&joekoe_cms.web_unit&"支付' align=absmiddle>&nbsp;<font class=gray>不可用</font>"
end function

function shop_emoney_pay(p_is_emoney,p_emoney,p_id)
  dim nemoney
  nemoney=0
  if p_is_emoney then nemoney=p_emoney
  shop_emoney_pay=note_emoney_pay(nemoney,n_sort,p_id)
end function

function img_user()
  dim a,udim,ui,udim2
  a="网站用户图例："
  udim=dim_user
  for ui=0 to ubound(udim)
    udim2=split(udim(ui),":")
    a=a&vbcrlf&"&nbsp;<img border=0 src='"&joekoe_cms.web_dir_skin&"small/icon_"&udim2(0)&".gif' align=absmiddle>&nbsp;"&udim2(1)
  next
  a=a&vbcrlf&"&nbsp;<img border=0 src='"&joekoe_cms.web_dir_skin&"small/icon_other.gif' align=absmiddle>&nbsp;游客"
  if isarray(udim) then erase udim
  if isarray(udim2) then erase udim2
  img_user=a
end function

function img_forum()
  dim a,fdim,fi
  fdim=split(web_forum_type,"|")
  for fi=0 to ubound(fdim)
    a=a&vbcrlf&"&nbsp;<img src='"&joekoe_cms.web_dir_skin&"forum/label_"&(fi+1)&".gif' title='无新贴' border=0 align=absmiddle>&nbsp;" & _
        vbcrlf&"&nbsp;<img src='"&joekoe_cms.web_dir_skin&"forum/label_"&(fi+1)&"n.gif' title='有新贴' border=0 align=absmiddle>&nbsp;"&fdim(fi)&"&nbsp;"
  next
  if isarray(fdim) then erase fdim
  img_forum=a
end function

function img_topic()
  dim a