ASP HTML to convert HTML encoding program

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 (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 () or mid (str,i+1,1) =CHR (9) or mid (str,i-1,1) =CHR (?) or mid (str,i-1,1) =c HR (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


}