asp智能脏话过滤系统v1.0第1/2页

<%
'**********************************************************
'*智能脏话过滤系统v1.0       *    *
'*转载请保留版权信息,多谢                        *   拉   *
'*调用方法:sayy=ND_say_what(sayy),sayy为内容输入 *   图   *
'*程序作者:阮丁远,(网名:柏拉图的程序) 版权所有   *   的   *
'*qq:657697290                                   *   序   *
'*最后修改:20080609                              *   著   *
'*(struct,spring,,....net,www.jb51.net|强人工智能系统  2049年)还未开发基于分词数据库的形容词
，名词等归类的，和带自动优先级式分词，
'*(struct,spring,,....net,www.jb51.net|强人工智能系统  2049年)和xml多层式的字与字最大间隔设
置(精确到单个字与单个字的间隔，
'*(struct,spring,,....net,www.jb51.net|强人工智能系统  2049年)因为连续的单个字与单个字间可能
也有随机性空格) 及语义嵌套，递归式冗余纠错，和
'*(struct,spring,,....net,www.jb51.net|强人工智能系统  2049年)程序语义理解，人工神经元语义理
解的更高版本
'**********************************************************
function ND_say_what(sayyyyx)



'本代码使用说明:如 ivv=0,icc=0,zang_data(ivv,0,0)="操|日|靠|ri|cao|草
|kao",icc=icc+1,zang_data(ivv,icc,0)="他",zang_data(ivv,icc,1)=2,表示如果"操|日|靠|ri|cao|草
|kao"中的"操"字或"日"字或其他字 与 zang_data(ivv,icc,0)="他"中指定的"他"字相隔zang_data
(ivv,icc,1)=2指定的2个字的距离或小于2个字距离,就认为此语句为脏话,并自动过滤掉

'*的使用: zang_data(0,0,0)="去死妈",zang_data(0,1,0)="*"之类 表示只要存在"去死妈"这些字 就过
滤掉 ,而不用考虑字符距离等 ,这与zang_data(0,0,0)="去死妈",zang_data(0,1,0)=.....不存在 的情
况 的效果等效

' 一个英文的长度为1,一个中文的长度也算为1

' 对于 "杀死"两字, 则认为 "杀"字 与 "死"字 相差0个字符,  "杀 死"两字中 也认为 "杀"字 与 "死"
字 相差0个字符,因为会自动忽略字与字间的空格