ASP過濾特殊字元
阿新 • • 發佈:2019-02-03
<%Function FormatHTML(fString)
If fString<>""Then
fString =trim(fString)
fString =replace(fString, ";", ";") '分號過濾 fString =replace(fString, "--", "——") '--過濾 fString =replace(fString, "%20", "") '特殊字元過濾 fString =replace(fString, "==", "") '==過濾 fString =replace(fString, ">", ">")
fString =replace(fString, "<", "<")
fString =Replace(fString, CHR(32), "") ' fString =Replace(fString, CHR(9), "") ' fString =Replace(fString, CHR(34), """)
fString =Replace(fString, CHR(39), "'") '單引號過濾 fString =Replace(fString, CHR(13), "")
fString =Replace(fString, CHR(10) &CHR(10), "</P><P> ")
fString =Replace(fString, CHR(10), "<BR> ")
FormatHTML = fString
EndIfEnd Function%>
If fString<>""Then
fString =trim(fString)
fString =replace(fString, ";", ";") '分號過濾 fString =replace(fString, "--", "——") '--過濾 fString =replace(fString, "%20", "") '特殊字元過濾 fString =replace(fString, "==", "")
fString =replace(fString, "<", "<")
fString =Replace(fString, CHR(32), "") ' fString =Replace(fString, CHR(9), "") ' fString =Replace(fString, CHR(34), """)
fString
fString =Replace(fString, CHR(10) &CHR(10), "</P><P> ")
fString =Replace(fString, CHR(10), "<BR> ")
FormatHTML = fString
EndIfEnd Function%>