<% function htmlencode2(str) dim result dim l if isNULL(str) then htmlencode2="" 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(13) result=result+"
" 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 htmlencode2=result end function %>