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