2006-4-29 ASP HTMLENCODE 函数——文本转HTML by Stabx

2006-4-29 ASP HTMLENCODE 函数——文本转HTML by Stabx

<% '文本 转 HTML
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' subject : ASP HTMLENCODE 函数——文本转HTML by Stabx
'
' author : Stabx<shawl.qiu@gmail.com>
'
' blog  : http://blog.csdn.net/btbtd / http://btbtd.exblog.jp/
'
' blog name : Phoenix.GI - P.GI
'
' date  : 2006-4-29
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function textToHtml(str)
    dim result
    dim l
    if isNULL(str) then
       textToHtml=""
       exit function
    end if
    l=len(str)
    result=""
 dim i
 for i = 1 to l
     select case mid(str,i,1)
            case "'" '省略号
                 result=result+"'"
            case "<" '小于号
                 result=result+"<"
            case ">" '大于号
                 result=result+">"
              case chr(13) '新行符
                 result=result+"<br>"
            case chr(34) '引号
                 result=result+"""
            case "&" '与号
                 result=result+"&"
              case chr(32) '不换行空格号          
                 'result=result+" "
                 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+" "
                    else
                       result=result+" "
                    end if
                 else
                    result=result+" "                    
                 end if
            case chr(9) '跳格符
                 result=result+"    "
            case else
                 result=result+mid(str,i,1)
         end select
       next
       textToHtml=result
   end function
%>