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

'函數：HTMLEncode(reString)

'參數：reString,待編碼轉換處理的字符串

'作者：阿里西西

'日期：2007/7/15

'描述：對HTML代碼進行轉換

'示例：HTMLEncode("

歡迎訪問
阿里西西

")

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

Function?HTMLEncode(reString)

Dim?Str:Str=reString

If?Not?IsNull(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),?"
")

HTMLEncode?=?Str

End?If

End?Function

'反轉換HTML代碼

Function?HTMLDecode(reString)

Dim?Str:Str=reString

If?Not?IsNull(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,?"
",?CHR(10))

HTMLDecode?=?Str

End?If

End?Function

%>

時間： 2007-08-06

總結

以上是生活随笔為你收集整理的asp 转换html代码,asp下实现对HTML代码进行转换的函数的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。