asp html代码转安全ascii代码

function DoTrimProperly(str nNamedFormat properly pointed points)
dim strRet
strRet = ServerHTMLEncode(str)
strRet = replace(strRet vbcrlf"<br>")
strRet = replace(strRet vbtab"")
if (LEN(strRet) > nNamedFormat) Then
strRet = LEFT(strRet nNamedFormat)
if (properly = ) Then
Dim TempArray
TempArray = split(strRet " ")
Dim n
strRet = ""
for n = to Ubound(TempArray)
strRet = strRet & " " & TempArray(n)
next
End if
if (pointed = ) Then
strRet = strRet & points
End if
End if
DoTrimProperly = strRet
End Function

Function FormatStr(String)
on Error resume next
String = Replace(String CHR() "")
String = Replace(String "<" "&lt;")
String = Replace(String ">" "&gt;")
String = Replace(String CHR() & CHR() "<BR><BR>")
String = Replace(String CHR() "<BR>")
FormatStr = String
End Function

Function FormatStr(String)
on Error resume next
String = Replace(String " " "&nbsp;")
String = Replace(String CHR() "&nbsp")
String = Replace(String CHR() & CHR() "<BR><BR>")
String = Replace(String CHR() "<BR>")
String = Replace(String "<" "&lt;")
String = Replace(String ">" "&gt;")
FormatStr = String
End Function