<%
'===================系统过滤非法字符开始=================================
Const ForbidStr="垃圾|靠|滚|妈|日|屎｜妈的|傻|垃|屎|蛋|爸|爷|%|and|b"
'过滤函数
Public Function checkForbidStr(guestStr)
	checkForbidStr = True	
	Dim ForbidArr, i	
	ForbidArr = Split(ForbidStr, "|")
	For i = 0 To UBound(ForbidArr)
		If InStr(guestStr, ForbidArr(i)) > 0 Then
			checkForbidStr = False
			Exit Function
		End If
	Next
	checkForbidStr = True
End Function
function tohtml(from)
	dim s
	s=from
	if s<>"" then
    s = Replace(s,"&","&amp;")
    s = Replace(s,"<","&lt;")
    s = Replace(s,">","&gt;")
    s = Replace(s,"\t","    ")
    s = Replace(s,"\r\n","\n")
    s = Replace(s,"\n","<br>")
    s = Replace(s,"  "," &nbsp;")
    s = Replace(s,"'","&#39;")
    s = Replace(s,"\\","&#92;")
	s=replace(s," ","&nbsp;")
    s=replace(s,chr(13)&chr(10),"<Br>")
	end if
	tohtml=s
end function
'===================系统过滤非法字符结束=================================
%>