<!-- #include file="format_page.asp" -->
<!-- #include file="format_bar.asp" -->
<%
'-------------------定义左栏---------
sub left_type(ltv,pn,ltt)
  'if ltt=1 then response.write "<table border=0 width='96%' cellspacing=0 cellpadding=0 align=center><tr><td align=center>"
  'response.write kong&format_bar("<img src='images/"&web_skin&"/left_"&pn&".gif' border=0>",ltv,"",sk_bar,"")
  'if ltt=1 then response.write "</td></tr></table>"
  response.write kong&main_bar(0,pn,ltv,ltt,"100%","")
end sub
'-------------------推荐好友---------
function commend_friend(t1,t2,t3)
  dim a:a="[&nbsp;<a href='javascript:;' onclick=""javascript:open_win('commend.asp?nsort="&server.urlencode(t1)&"&topic="&server.urlencode(t2)&"&url="&server.urlencode(t3)&"','commend',500,300,'no');"">→&nbsp;推荐给我的好友</a>&nbsp;]":commend_friend=a
end function
'-------------------用户等级---------
function format_user_power(uname,umode,pvar)
  dim admint:admint=objv7.format_power2(user_power,1,1):format_user_power="yes"
  if umode=admint then exit function
  if instr("|"&pvar&"|","|"&uname&"|")<1 then format_user_power="no"
end function
'-------------------页面权限---------
function format_page_power(umode)
  dim unum:unum=objv7.format_power(user_power,umode,2):format_page_power="yes"
  if page_power="" then exit function
  if instr("."&page_power&".","."&unum&".")<1 then format_page_power="no"
end function
'-------------------用户金钱---------
sub user_integral(ut,unum,uuser)
  dim fh:fh="+"
  if ut="del" then fh="-"
  conn.execute("update user_data set integral=integral"&fh&unum&" where username='"&uuser&"'")
end sub
'-------------------等级图片---------
function power_pic(emon,pp,pt)
  dim ddim,j:ddim=split(pp,"."):power_pic=""
  if pt=1 then power_pic="货币：<font class=red_3>"&emon&"</font>&nbsp;"&m_unit&"&nbsp;&nbsp;"
  for j=0 to ubound(ddim)
    if int(ddim(j))=0 then
      power_pic=power_pic&img_small("icon_other")
    else
      power_pic=power_pic&img_small("icon_"&objv7.format_power2(user_power,ddim(j),1))
    end if
  next
  erase ddim
end function
%>