formchk.asp

网络商城系统

<%
'过滤特殊字符
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
%>