转换html代码子程序

核心提示：function htmlencode(str)on error resume nextdim resultdim lif isnull(str) then htmlencode="" exit functionend ifl=len(str)result=""dim ifor

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