转换html代码子程序 -pc6资讯

您的位置：首页 → 技术开发 → ASP技巧 → 转换html代码子程序

转换html代码子程序 时间：2004/11/7 4:10:00来源：本站整理作者：蓝点我要评论(0): function htmlencode(str)

    on error resume next

    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+"<"

           case ">"

                result=result+">"

           case chr(34)

                result=result+"""

           case "&"

                result=result+"&"

           case chr(13)

                result=result+"
"

           case chr(9)

                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 else

                result=result+mid(str,i,1)

         end select

       next

       if err.number<>0 then err.clear

       htmlencode=result

   end function

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。