转换html代码子程序

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+"&lt;" 
case ">" 
result=result+"&gt;" 
case chr(34) 
result=result+"&quot;" 
case "&" 
result=result+"&amp;" 
case chr(13) 
result=result+"<br>" 
case chr(9) 
result=result+"&nbsp;&nbsp;&nbsp;&nbsp;" 
case chr(32) 
'result=result+"&nbsp;" 
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+"&nbsp;" 
else 
result=result+" " 
end if 
else 
result=result+"&nbsp;" 
end if 
case else 
result=result+mid(str,i,1) 
end select 
next 
if err.number<>0 then err.clear 
htmlencode=result 
end function

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！