function.asp

个人网站系统 毕业论文 大家可以借鉴下

<%
function th(str)
    str=replace(str,"fuck","")
    str = replace(str, ">", "&gt;")
    str = replace(str, "<", "&lt;")
    str = Replace(str, CHR(32), "&nbsp;")
    str = Replace(str, CHR(13), "")
    str = Replace(str, CHR(10) & CHR(10), "</P><P>")
    str = Replace(str, CHR(10), "<BR>")
	str = left(str,150)
th=str
end function
function th2(str)
    str=replace(str,"fuck","")
    str = replace(str, ">", "&gt;")
    str = replace(str, "<", "&lt;")
    str = Replace(str, CHR(32), "&nbsp;")
    str = Replace(str, CHR(13), "")
    str = Replace(str, CHR(10) & CHR(10), "</P><P>")
    str = Replace(str, CHR(10), "<BR>")	 
th2=str
end function

function CovHtml(content)
ON ERROR RESUME NEXT
CovHtml=content
if not isnull(content) then
CovHtml=replace(CovHtml,"&","&amp;")
CovHtml=replace(CovHtml,"<","&lt;")
CovHtml=replace(CovHtml,">","&gt;")
CovHtml=replace(CovHtml,chr(34),"&quot;")
CovHtml=replace(CovHtml,chr(39),"&#39;")
end if
if Err.Number <>0 then
CovHtml= "CovHtml转换中出错请联系管理员<br>"
Err.Clear
end if
end function
%>