fanfuc.inc

媒体中国-设计联盟

<%
'网站分类
dim top(13)
top(1) = "全部网站"
top(2) = "设计酷站"
top(3) = "学习论坛"
top(4) = "域名主机"
top(5) = "代码软件"
top(6) = "生活资讯"
top(7) = "情感交友"
top(8) = "休闲娱乐"
top(9) = "文化艺术"
top(10) ="新闻媒体"
top(11) ="金融商务"
top(12) ="综合信息"
top(13) ="其他类别"

'屏蔽THML语法
function htmlencode(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l and i-1>0 then
	                   if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode=result
end function

'取字符串长度
function strLen(str,n)
	dim L,t,c,cc
	dim i
	L=len(str)
	t=0
	for i=1 to L
		c=asc(mid(str,i,1))
		if c<0 then c=c+65536
				if c>255 then
					t=t+2
				else 
					t=t+1
		end if
		if t>=n then 
			cc=i
			exit for
		end if
	next
	strLen=i
end function

function strLength(str)
          dim l,t,c
          dim i
          l=len(str)
          t=l
          for i=1 to l
             c=asc(mid(str,i,1))
             if c<0 then c=c+65536
             if c>255 then
                t=t+1
             end if
          next
          strLength=t
end function 
%>