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

　　'**************************************************

　　'函数名：CreateKeyWord

　　'作  用：由给定的字符串生成关键字

　　'参  数：Constr---要生成关键字的原字符串

　　'返回值：生成的关键字

　　'**************************************************

　　Function CreateKeyWord(byval Constr,Num)

　　If Constr="" or IsNull(Constr)=True or Constr="$False$" Then

　　CreateKeyWord="$False$"

　　Exit Function

　　End If

　　If Num="" or IsNumeric(Num)=False Then

　　Num=2

　　End If

　　Constr=Replace(Constr,CHR(32),"")

　　Constr=Replace(Constr,CHR(9),"")

　　Constr=Replace(Constr," ","")

　　Constr=Replace(Constr," ","")

　　Constr=Replace(Constr,"(","")

　　Constr=Replace(Constr,")","")

　　Constr=Replace(Constr,"<","")

　　Constr=Replace(Constr,">","")

　　Constr=Replace(Constr,"""","")

　　Constr=Replace(Constr,"?","")

　　Constr=Replace(Constr,"*","")

　　Constr=Replace(Constr,"|","")

　　Constr=Replace(Constr,",","")

　　Constr=Replace(Constr,".","")

　　Constr=Replace(Constr,"/","")

　　Constr=Replace(Constr,"\","")

　　Constr=Replace(Constr,"-","")

　　Constr=Replace(Constr,"@","")

　　Constr=Replace(Constr,"#","")

　　Constr=Replace(Constr,"$","")

　　Constr=Replace(Constr,"%","")

　　Constr=Replace(Constr,"&","")

　　Constr=Replace(Constr,"+","")

　　Constr=Replace(Constr,":","")

　　Constr=Replace(Constr,"：","")

　　Constr=Replace(Constr,"‘","")

　　Constr=Replace(Constr,"“","")

　　Constr=Replace(Constr,"”","")

　　Constr=Replace(Constr,"&","")

　　Constr=Replace(Constr,"gt;","")

　　Dim i,ConstrTemp

　　For i=1 To Len(Constr)

　　ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)

　　Next

　　If Len(ConstrTemp)<254 Then

　　ConstrTemp=ConstrTemp & "|"

　　Else

　　ConstrTemp=Left(ConstrTemp,254) & "|"

　　End If

　　ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)

　　ConstrTemp= Right(ConstrTemp,len(ConstrTemp)-1)

　　CreateKeyWord=ConstrTemp

　　End Function