Program | conversion
Function HTMLEncode (str)
On Error Resume Next
Dim result
Dim L
If IsNull (str) then
Htmlencode= "
Exit Function
End If</p><p>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 (+)
result= result+ ""
Case "&"
result=result+ "&"
Case Chr (a)
result=result+ "<br>"
Case chr (9)
result=result+
Case CHR
' result=result+ '
if I+1<=l and i-1>0 then
if mid (str,i+1,1) =CHR (a) or mid (str,i+1,1) =CHR (9) or mid (str,i-1,1) =CHR () 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</p><p> The above information by the dynamic network pioneer (http://www.aspsky.net) Finishing production, reprint please explain the source!