html怎么新建子程序,转换html代码子程序_asp技巧

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