转换html代码子程序

最新推荐文章于 2025-08-13 18:53:35 发布

原创最新推荐文章于 2025-08-13 18:53:35 发布 · 610 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#html #function

ASP专题专栏收录该内容

1 篇文章

订阅专栏

博客给出了一个名为htmlencode的函数，用于对HTML字符串进行编码。函数会处理字符串中的特殊字符，如<、>、\、&等，将其转换为对应的HTML实体，同时对空格、制表符、换行符等也做了相应处理，以实现字符串的HTML编码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

?作者：
?

?? 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