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