CreateKeyWord asp实现的由给定的字符串生成关键字的代码

1. '**************************************************  
2. '函数名：CreateKeyWord  
3. '作  用：由给定的字符串生成关键字  
4. '参  数：Constr---要生成关键字的原字符串  
5. '返回值：生成的关键字  
6. '**************************************************  
7. Function CreateKeyWord(byval Constr,Num)  
8.    If Constr="" or IsNull(Constr)=True or Constr="$False$" Then  
9.       CreateKeyWord="$False$"  
10.       Exit Function  
11.    End If  
12.    If Num="" or IsNumeric(Num)=False Then  
13.       Num=2  
14.    End If  
15.    Constr=Replace(Constr,CHR(32),"")  
16.    Constr=Replace(Constr,CHR(9),"")  
17.    Constr=Replace(Constr," ","")  
18.    Constr=Replace(Constr," ","")  
19.    Constr=Replace(Constr,"(","")  
20.    Constr=Replace(Constr,")","")  
21.    Constr=Replace(Constr,"<","")  
22.    Constr=Replace(Constr,">","")  
23.    Constr=Replace(Constr,"""","")  
24.    Constr=Replace(Constr,"?","")  
25.    Constr=Replace(Constr,"*","")  
26.    Constr=Replace(Constr,"|","")  
27.    Constr=Replace(Constr,",","")  
28.    Constr=Replace(Constr,".","")  
29.    Constr=Replace(Constr,"/","")  
30.    Constr=Replace(Constr,"\","")  
31.    Constr=Replace(Constr,"-","")  
32.    Constr=Replace(Constr,"@","")  
33.    Constr=Replace(Constr,"#","")  
34.    Constr=Replace(Constr,"$","")  
35.    Constr=Replace(Constr,"%","")  
36.    Constr=Replace(Constr,"&","")  
37.    Constr=Replace(Constr,"+","")  
38.    Constr=Replace(Constr,":","")  
39.    Constr=Replace(Constr,"：","")     
40.    Constr=Replace(Constr,"‘","")  
41.    Constr=Replace(Constr,"“","")  
42.    Constr=Replace(Constr,"”","")  
43.    Constr=Replace(Constr,"&","")    
44.    Constr=Replace(Constr,"gt;","")        
45.    Dim i,ConstrTemp  
46.    For i=1 To Len(Constr)  
47.       ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)  
48.    Next  
49.    If Len(ConstrTemp)<254 Then  
50.       ConstrTemp=ConstrTemp & "|"  
51.    Else  
52.       ConstrTemp=Left(ConstrTemp,254) & "|"  
53.    End If  
54.    ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)  
55.    ConstrTemp= Right(ConstrTemp,len(ConstrTemp)-1)  
56.    CreateKeyWord=ConstrTemp  
57. End Function