Functions that implement conversion of HTML code under asp

<%

'*********************************

'Function: HTMLEncode(reString)

'Parameter: reString, string to be encoded

'Author: Alixi

'Date: 2007/7/15

'Description: Convert HTML code

'Example: HTMLEncode("<p>Welcome to<br>Alixi</p>")

'*********************************

FunctionHTMLEncode(reString)

DimStr:Str=reString

IfNotIsNull(Str)Then

Str=UnCheckStr(Str)

Str=Replace(Str,"&","&")

Str=Replace(Str,">",">")

Str=Replace(Str,"<","<")

Str=Replace(Str,CHR(32),"")

Str=Replace(Str,CHR(9),"")

Str=Replace(Str,CHR(9)," ")

Str=Replace(Str,CHR(34),"")

Str=Replace(Str,CHR(39),"'")

Str=Replace(Str,CHR(13),"")

Str=Replace(Str,CHR(10),"<br>")

HTMLEncode=Str

EndIf

EndFunction

'Inverse conversion HTML code

FunctionHTMLDecode(reString)

DimStr:Str=reString

IfNotIsNull(Str)Then

Str=Replace(Str,"&","&")

Str=Replace(Str,">",">")

Str=Replace(Str,"<","<")

Str=Replace(Str,"",CHR(32))

Str=Replace(Str,"",CHR(9))

Str=Replace(Str," ",CHR(9))

Str=Replace(Str,"",CHR(34))

Str=Replace(Str,"'",CHR(39))

Str=Replace(Str,"",CHR(13))

Str=Replace(Str,"<br>",CHR(10))

HTMLDecode=Str

EndIf

EndFunction

%>