changecode.asp

前台完全分离了HTML与ASP

<%
Function HTMLDecode(fString)
If not isnull(fString) Then
    'fString = Replace(fString, CHR(38), "&#38;")
    fString = replace(fString, "&gt;", ">")
    fString = replace(fString, "&lt;", "<")
    fString = Replace(fString, "&nbsp;", CHR(32))
    fString = Replace(fString,"",CHR(13))
    fString = Replace(fString,"<br/>",CHR(10))
	fString = Replace(fString,"<br>",CHR(10))
    HTMLDecode = fString
End If
End Function


%>