ASP Smart Swearing filter System v1.0 1th/2 page _ Application Tips

Source: Internet
Author: User
<%
'**********************************************************
' * Smart Swearing filter System v1.0 * *
' * Reprint please retain the copyright information, thank you * la *
' * Call Method: Sayy=nd_say_what (Sayy), Sayy for content input * diagram *
' * Program Author: Nanding, (net Name: Plato's program) All rights reserved *
' *qq:657697290 *
' * Last modified: 20080609 * *
' * (struct,spring,,.... net,www.jb51.net| strong Artificial Intelligence system 2049) has not yet developed the adjective based on word segmentation database
, nouns and other categories, and with automatic priority participle,
' * (struct,spring,,.... net,www.jb51.net| strong Artificial Intelligence system 2049) and XML multi-layered word and word maximum spacing set
Place (accurate to the interval between a single word and a single word),
' * (struct,spring,,.... net,www.jb51.net| strong Artificial Intelligence system 2049) because a continuous single word with a single word may
There are also random spaces) and semantic nesting, recursive redundancy correction, and
' * (struct,spring,,.... net,www.jb51.net| strong Artificial Intelligence system 2049) program semantics understanding, artificial neuron semantic theory
Higher version of Solution
'**********************************************************
function Nd_say_what (SAYYYYX)



' This code uses the explanation: if Ivv=0,icc=0,zang_data (ivv,0,0) = "the Exercise | day | by |ri|cao| grass
|kao ", icc=icc+1,zang_data (ivv,icc,0) =" he ", zang_data (ivv,icc,1) = 2, said if" Cao | day | by |ri|cao| grass
"|kao" or "day" or other word in "Zang_data" (ivv,icc,0) = "he" specified in "he" is separated from the word zang_data
(ivv,icc,1) =2 the specified 2-word distance or less than 2-word distance, the statement is considered to be foul language and automatically filtered out

The use of ' *: Zang_data (0,0,0) = "To Die Mother", Zang_data (0,1,0) = "*" means that as long as there is "dead mother" these words
Filtered out, without considering the character distance, and so on, this with Zang_data (0,0,0) = "Go to Hell", zang_data (0,1,0) = ... The feeling of not being
The effect of the condition is equivalent

The length of an English language is 1, and the length of one Chinese is 1.

For "kill" two words, think "kill" and "death" word difference 0 characters, "kill" two words also think "kill" word and "death"
The word differs by 0 characters because it automatically ignores spaces between words


zang_len=999
Zang_yufa_xiangguan_list_max=22
Dim Zang_data (999,22,2)


' Initialize everything
For Zang_lena=0 to Zang_len-1
For Zang_yufa_xiangguan_lena=0 to Zang_yufa_xiangguan_list_max-1
Zang_data (zang_lena,zang_yufa_xiangguan_lena,0) = ""
Zang_data (zang_lena,zang_yufa_xiangguan_lena,1) =2 ' Specify if Zang_data
(zang_lena,zang_yufa_xiangguan_lena,0) string separated by the string of its corresponding array element several lengths or
is not considered a dirty word when separated by a string that is less than the specified length value
Next
Next

Konggexx= "
"&" $_kongge_$ "&" "&" $_kongge_$ "&" "&" $_kongge_$ "&" <br> "&" $_kongge_$ "&" < P> "&" $_kongge_$
"&" </p> "&" $_kongge_$ "&", "&" $_kongge_$ "&" "&" $_kongge_$ "&" "" & "$_kongge_$" & "=" & "$_kongge_$" & "
= "&" $_kongge_$ "&"-"&" $_kongge_$ "&" _ "&" $_kongge_$ "&" + "&" $_kongge_$ "&"% "&" $_ kongge_$ "&" $ "&" $_k
ongge_$ "&" # "&" $_kongge_$ "&"? & "$_kongge_$" & "!" & "$_kongge_$" & "~" & "$_kongge_$" & "(" & "$_kongge_$
"&") "&" $_kongge_$ "&" < "&" $_kongge_$ "&" > "&" $_kongge_$ "&" ["&" $_kongge_$ " & "]" & "$_kongge_$" & "{" & "
$_kongge_$ "&"} "&" $_kongge_$ "&": "&" $_kongge_$ "&"; & "$_kongge_$" & "." & "$_kongge_$" & "/" & "$_kongg
e_$ "&" & "$_kongge_$" & "^" & "$_kongge_$" & "*" & "$_kongge_$" & "@" & "$_kongge_$" & " & "&" $_kongge_$ "&" |
"' Specifies all whitespace characters, separated by $_kongge_$, where spaces are specified in English spaces and Chinese spaces
heihack= "* * *" to replace the dirty words into what





'======================================================
' Bad language database v1.0-20080609, all dirty language database in the following:

Ivv=0
Icc=0
Zang_data (ivv,0,0) = "Kill |sha|sa| |gan" ' If killed and dead words exist at the same time, and the number of characters separated between two words is less than or
Equal to the value specified by the corresponding zzang_data (aa,yy,1), this is considered a dirty word
Zang_data (ivv,icc,0) = "Dead |si|shi"
Zang_data (ivv,icc,1) =0
Icc=icc+1
Zang_data (ivv,icc,0) = "Off"
Zang_data (ivv,icc,1) =0
Icc=icc+1
Zang_data (ivv,icc,0) = "the"
Zang_data (ivv,icc,1) =0

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "|ba"
Icc=icc+1
Zang_data (ivv,icc,0) = "Kill |sha|sa|". Kill, separated by 5 or less than 5 strings
Zang_data (ivv,icc,1) =5

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Go to |qu"
Icc=icc+1
Zang_data (ivv,icc,0) = "Kill" ' put .... Pull out to kill or kill ..., 4 or less than 4 strings apart
Zang_data (ivv,icc,1) =4

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Exercise | day | |ri|cao| Grass |kao| dry |gan|gang|jie|jian| rape"
Icc=icc+1
Zang_data (ivv,icc,0) = "You" ' Do you mother, do you,.....
Zang_data (ivv,icc,1) =0
Icc=icc+1
Zang_data (ivv,icc,0) = "Ma| ma" may be for the NIMA, and Ma, Cao Tama,... So its corresponding zang_data (aa,yy,1)
Specified as 2
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "Ni"
Zang_data (ivv,icc,1) =0
Icc=icc+1
Zang_data (ivv,icc,0) = "She" may be to kill her, to her, to the SI she therefore its corresponding zang_data (aa,yy,1) designation is 2
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "He" may be to kill him, to screw him, to do si he therefore the corresponding zang_data (aa,yy,1) is specified as 2
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "It" may be to kill it, to manipulate it, to do SI it therefore its corresponding zang_data (aa,yy,1) designation is 2
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "ta" may be for the death of Ta, Ta, Cao Sita so its corresponding zang_data (aa,yy,1) designated as 2
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "Niang |niang"
Zang_data (ivv,icc,1) =2
Icc=icc+1
Zang_data (ivv,icc,0) = "b| Force" ' Grass you? b
Zang_data (ivv,icc,1) =2
'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "I |wo"
Icc=icc+1
Zang_data (ivv,icc,0) = "Exercise | day | |ri|cao| Grass |kao| dry |gan|gang|jie|jian| rape | kill"
Zang_data (ivv,icc,1) =0



'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Exercise | day | by |ri|cao| grass |kao| rape"
Icc=icc+1
Zang_data (ivv,icc,0) = "*"
Zang_data (ivv,icc,1) =0

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Go to your Mother | Go to you | Go to your MA"
Icc=icc+1
Zang_data (ivv,icc,0) = "*"
Zang_data (ivv,icc,1) =0

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "To Die"
Icc=icc+1
Zang_data (ivv,icc,0) = "*"
Zang_data (ivv,icc,1) =0

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Your Mother | you | You ma| your mother"
Icc=icc+1
Zang_data (ivv,icc,0) = "b| Force"
Zang_data (ivv,icc,1) =1 ' Your mother's B, your mother B



'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Sex"
Icc=icc+1
Zang_data (ivv,icc,0) = "Love" ' Sex
Zang_data (ivv,icc,1) =0

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Do |zuo|"
Icc=icc+1
Zang_data (ivv,icc,0) = "Love |ai"
Zang_data (ivv,icc,1) =1

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Do |zuo|"
Icc=icc+1
Zang_data (ivv,icc,0) = "Love |ai"
Zang_data (ivv,icc,1) =1

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "A| Mao | Level three | japan"
Icc=icc+1
Zang_data (ivv,icc,0) = "Piece |pian"
Zang_data (ivv,icc,1) =2
'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "av| sex"
Icc=icc+1
Zang_data (ivv,icc,0) = "Worker"
Zang_data (ivv,icc,1) =20

'-----------------------------
Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Japan"
Icc=icc+1
Zang_data (ivv,icc,0) = "*"
Zang_data (ivv,icc,1) =0
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "See |see"
Icc=icc+1
Zang_data (ivv,icc,0) = "Level Three"
Zang_data (ivv,icc,1) =3
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Find"
Icc=icc+1
Zang_data (ivv,icc,0) = "Miss"
Zang_data (ivv,icc,1) =2
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Evening"
Icc=icc+1
Zang_data (ivv,icc,0) = "Miss"
Zang_data (ivv,icc,1) =12
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Silly |sha|sa| What |s"
Icc=icc+1
Zang_data (ivv,icc,0) = "b| ratio | force"
Zang_data (ivv,icc,1) =0
'-----------------------------


Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "S"
Icc=icc+1
Zang_data (ivv,icc,0) = "B"
Zang_data (ivv,icc,1) =0
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Metamorphosis"
Icc=icc+1
Zang_data (ivv,icc,0) = "Kill"
Zang_data (ivv,icc,1) =15
'-----------------------------


Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Person"
Icc=icc+1
Zang_data (ivv,icc,0) = "slag"
Zang_data (ivv,icc,1) =0
'-----------------------------


Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "garbage"
Icc=icc+1
Zang_data (ivv,icc,0) = "rubbish"
Zang_data (ivv,icc,1) =0
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Huan|huang| Yellow"
Icc=icc+1
Zang_data (ivv,icc,0) = "Color |se"
Zang_data (ivv,icc,1) =0
'-----------------------------

Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Ma| Ma"
Icc=icc+1
Zang_data (ivv,icc,0) = "b| ratio | force"
Zang_data (ivv,icc,1) =0
'-----------------------------


Ivv=ivv+1
Icc=0
Zang_data (ivv,0,0) = "Engage |gao"
Icc=icc+1
Zang_data (ivv,icc,0) = "b| ratio | force"
Zang_data (ivv,icc,1) =0
'-----------------------------
Current 1/2 page 12 Next read the full text
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.