functions.asp

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

  a=a&vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/isok.gif' border=0 align=absmiddle>&nbsp;&nbsp;开放的主题&nbsp;" & _
        vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/ishot.gif' border=0 align=absmiddle>&nbsp;&nbsp;回复超过10贴&nbsp;" & _
        vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/islock.gif' border=0 align=absmiddle>&nbsp;&nbsp;锁定的主题&nbsp;" & _
        vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/istop.gif' border=0 align=absmiddle>&nbsp;<img src='"&joekoe_cms.web_dir_skin&"forum/istops.gif' border=0 align=absmiddle>&nbsp;&nbsp;固顶、总固顶的主题&nbsp;" & _
        vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/isvote.gif' border=0 align=absmiddle>&nbsp;&nbsp;投票的主题" & _
        vbcrlf&"<img src='"&joekoe_cms.web_dir_skin&"forum/isgood.gif' border=0 align=absmiddle>&nbsp;&nbsp;精华主题"
  img_topic=a
end function

function forum_img_tim()
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 width='98%'>" & _
              vbcrlf&"<tr><td align=center>"&img_forum&"</td></tr>" & _
              vbcrlf&"<tr><td height=5></td></tr>" & _
              vbcrlf&"<tr><td align=center>时间格式：<font class=gray>年-月-日 时:分:秒</font>　当前时间："&joekoe_cms.now_time&"</a></td></tr>" & _
              vbcrlf&"</table>"
  forum_img_tim=temp1&ukong
end function

function forum_img_topic()
  dim temp1
  temp1=temp1&vbcrlf&"<table border=0 width='98%'>" & _
              vbcrlf&"<tr><td align=center>论坛主题图例： "&img_topic()&"</td></tr>" & _
              vbcrlf&"</table>"
  forum_img_topic=temp1&ukong
end function

function user_sys_type(svar)
  if svar="" or var_null(svar)="" then
    user_sys_type="未知的系统信息"
    exit function
  end if
  dim sys_dim,temp1,sys2,s1,tmp
  sys_dim=split(svar,";")
  if int(ubound(sys_dim))<2 then
    user_sys_type="未知的系统信息"
    exit function
  end if
  sys2=sys_dim(2)
  s1=len(sys2)
  tmp=mid(sys2,s1,1)
  if tmp=")" then sys2=mid(sys2,1,s1-1)
  temp1="操作系统："&sys2
  temp1=temp1&"，浏览器："&sys_dim(1)
  temp1=replace(temp1,"MSIE","Internet Explorer")
  temp1=replace(temp1,"NT 5.0","2000")
  temp1=replace(temp1,"NT 5.1","XP")
  temp1=replace(temp1,"NT 5.2","2003")
  if isarray(sys_dim) then erase sys_dim
  user_sys_type=temp1
end function

function base_forum_istop(b_istop,b_isvote)
  dim temp_b
  temp_b="istop"
  if b_isvote=1 then
    temp_b="isvote"
  elseif b_istop=2 then
    temp_b="istops"
  end if
  base_forum_istop="<img src='"&joekoe_cms.web_dir_skin&"forum/"&temp_b&".gif' border=0>"
end function

function base_forum_is(b_re_counter,b_istop,b_islock,b_isgood,b_isvote,b_vote_num)
  dim temp_b
  temp_b="isok"
  if b_isvote=1 then
    if b_islock=1 then
      temp_b="isvotelock"
    else
      temp_b="isvote"
    end if
  else
    select case b_istop
    case 1
      temp_b="istop"
    case 2
      temp_b="istops"
    case else
      if b_isgood=1 then
        temp_b="isgood"
      else
        if b_islock=1 then
          temp_b="islock"
        else
          if b_re_counter>=10 then temp_b="ishot"
        end if
      end if
    end select
  end if
  base_forum_is="<img src='"&joekoe_cms.web_dir_skin&"forum/"&temp_b&".gif' border=0>"
end function

function base_forum_isview(b_isvote,b_islock,b_re_counter,b_istop,b_isgood)
  dim temp_b
  if fir_isvote then
    temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/isvote.gif' border=0>&nbsp;"
  else
    if fir_islock=1 then
      temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/islock.gif' border=0>&nbsp;"
    else
      if re_counter>=dim_num(18) then    'hot_num
        temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/ishot.gif' border=0>&nbsp;"
      else
        temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/isok.gif' border=0>&nbsp;"
      end if
    end if
  end if
  if fir_istop=1 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/istop.gif' border=0>&nbsp;"
  if fir_istop=2 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/istops.gif' border=0>&nbsp;"
  if fir_isgood=1 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/isgood.gif' border=0>&nbsp;"
  base_forum_isview=temp_b
end function

function get_abc(var_s)
  '65-90 A-Z
  '97-122 a-z
  '48-58 0-9
  '45 -
  dim tmp,vars:vars=trim(var_s)
  if vars="" or isnull(vars) then get_abc="-":exit function
  vars=left(vars,1)
  tmp=int(asc(vars))
  if tmp>=48 and tmp<=57 then get_abc=vars:exit function
  if (tmp>=65 and tmp<=90) or (tmp>=97 and tmp<=122) then get_abc=ucase(vars):exit function
  tmp=tmp+65536
  if(tmp>=45217 and tmp<=45252) then get_abc="A":exit function
  if(tmp>=45253 and tmp<=45760) then get_abc="B":exit function
  if(tmp>=45761 and tmp<=46317) then get_abc="C":exit function
  if(tmp>=46318 and tmp<=46825) then get_abc="D":exit function
  if(tmp>=46826 and tmp<=47009) then get_abc="E":exit function
  if(tmp>=47010 and tmp<=47296) then get_abc="F":exit function
  if(tmp>=47297 and tmp<=47613) then get_abc="G":exit function
  if(tmp>=47614 and tmp<=48118) then get_abc="H":exit function
  if(tmp>=48119 and tmp<=49061) then get_abc="J":exit function
  if(tmp>=49062 and tmp<=49323) then get_abc="K":exit function
  if(tmp>=49324 and tmp<=49895) then get_abc="L":exit function
  if(tmp>=49896 and tmp<=50370) then get_abc="M":exit function
  if(tmp>=50371 and tmp<=50613) then get_abc="N":exit function
  if(tmp>=50614 and tmp<=50621) then get_abc="O":exit function
  if(tmp>=50622 and tmp<=50905) then get_abc="P":exit function
  if(tmp>=50906 and tmp<=51386) then get_abc="Q":exit function
  if(tmp>=51387 and tmp<=51445) then get_abc="R":exit function
  if(tmp>=51446 and tmp<=52217) then get_abc="S":exit function
  if(tmp>=52218 and tmp<=52697) then get_abc="T":exit function
  if(tmp>=52698 and tmp<=52979) then get_abc="W":exit function
  if(tmp>=52980 and tmp<=53640) then get_abc="X":exit function
  if(tmp>=53641 and tmp<=54480) then get_abc="Y":exit function
  if(tmp>=54481 and tmp<=62289) then get_abc="Z":exit function
  get_abc="-"
end function

sub web_search()
  response.write vbcrlf&"  <table border=0>" & _
                 vbcrlf&"  <form action='"&joekoe_cms.web_dir&"support/search.asp' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
                 vbcrlf&"  <tr>" & _
                 vbcrlf&"  <td>"&img_small("search")&"</td>" & _
                 vbcrlf&"  <td>&nbsp;<input type=text name=keyword value='' size=20 maxlength=20></td>" & _
                 vbcrlf&"  <td>&nbsp;<select name=sea_type>" & _
                 vbcrlf&"<option value='forum'>论坛</option>" & _
                 vbcrlf&"<option value='news'>新闻</option>" & _
                 vbcrlf&"<option value='article'>文栏</option>" & _
                 vbcrlf&"<option value='down'>下载</option>" & _
                 vbcrlf&"<option value='paste'>图片</option>" & _
                 vbcrlf&"<option value='flash'>Flash</option>" & _
                 vbcrlf&"<option value='website'>网站</option>" & _
                 vbcrlf&"<option value='shop_product'>商城</option>" & _
                 vbcrlf&"</select></td>" & _
                 vbcrlf&"  <td>&nbsp;<input type=checkbox name=celerity value='yes'></td>" & _
                 vbcrlf&"  <td>快速搜索&nbsp;</td>" & _
                 vbcrlf&"  <td valign=top><input type=image src='"&joekoe_cms.web_dir&"images/small/web_sea.gif' border=0></td>" & _
                 vbcrlf&"  <td>&nbsp;&nbsp;<a href='"&joekoe_cms.web_dir&"support/search.asp?action=help' title='多功能搜索'>搜索帮助？</a></td>" & _
                 vbcrlf&"  </tr>" & _
                 vbcrlf&"  </form>" & _
                 vbcrlf&"  </table>"
end sub

sub web_copy()
response.write vbcrlf&"<table cellspacing=1 cellpadding=2 class=table>" & _
               vbcrlf&"<tr><td class=bg_tds align=center height=30><a href='"&joekoe_cms.web_url&"' target=_blank>"&joekoe_cms.web_name&"</a>　<a href='/' class=gray target=_blank>"&joekoe_cms.pro_edition&"</a>　<a href='javascript:window.close();'>关闭窗口</a></td></tr>" & _
               vbcrlf&"</table>"
end sub

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