<%
'過濾特殊字符
function Encodestr(str)
	str=trim(str)
	str=replace(str,"<","&lt;")
	str=replace(str,">","&gt;")
	str=replace(str,"'","""")
	str=replace(str,vbCrLf&vbCrlf,"</p><p>")
	str=replace(str,vbCrLf,"<br>")
	str=Replace(str,"&#","&amp;#")
        str=replace(str,"陰道","****")
  str=replace(str,"做愛","****")
  str=replace(str,"淫","****")
  str=replace(str,"陰莖","****")
  str=replace(str,"色情","****")
  str=replace(str,"三級片","****")
  str=replace(str,"下流","****")
  str=replace(str,"乳房","****")
  str=replace(str,"潘云鶴","****")
  str=replace(str,"我靠","****")
  str=replace(str,"高潮","****")
  str=replace(str,"舔","****")
  str=replace(str,"口交","****")
  str=replace(str,"FUCK","****")
  str=replace(str,"SUCK","****")
  str=replace(str,"性交","****")
  str=replace(str,"勃起","****")
  str=replace(str,"黃色","****")
  str=replace(str,"黃片","****")
  str=replace(str,"限制片","****")
  str=replace(str,"成人","****")
  str=replace(str,"避孕套","****")
  str=replace(str,"床上用品","****")
  str=replace(str,"內褲","****")
  str=replace(str,"胸罩","****")
  str=replace(str,"陰蒂","****")
  str=replace(str,"干你","****")
  str=replace(str,"小穴","****")
  str=replace(str,"性生活","****")
  str=replace(str,"插進","****")
  str=replace(str,"臺灣","****")
  str=replace(str,"國民黨","****")
  str=replace(str,"日本","****")
  str=replace(str,"法輪功","****")
  str=replace(str,"日貨","****")
  str=replace(str,"他媽","****")
  str=replace(str,"我操","****")
  str=replace(str,"江澤民","****")
  str=replace(str,"胡錦濤","****")
  str=replace(str,"好爽","****")
  str=replace(str,"造反","****")
  str=replace(str,"Fuck 小日本","****")
  str=replace(str,"反日游行","****")
       	encodestr=replace(str,"  ","　")
end function
'將輸入框里的字符轉換
function HtmlEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")        
	HTMLEncode2 = fString
end function
'要修改文件時，將正確顯示格式，包括分行等。
function Body1(str)
        body1=replace(str,"<br>",chr(10))
        body1=replace(body1,"<BR>",chr(10))
        body1=replace(body1,"</p><p>",CHR(10) & CHR(10))
        body1=replace(body1,"</P><P>",CHR(10) & CHR(10))
        body1=replace(body1,"&nbsp;","")
        body1=body1+chr(13)
end function
%>