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

　　**************************************************
函数名：CreateKeyWord
作用：由给定的字符串生成关键字
参数：Constr---要生成关键字的原字符串
返回值：生成的关键字
**************************************************
FunctionCreateKeyWord(byvalConstr,Num)
IfConstr=orIsNull(Constr)=TrueorConstr=$False$Then
CreateKeyWord=$False$
ExitFunction
EndIf
IfNum=orIsNumeric(Num)=FalseThen
Num=2
EndIf
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;,)
Dimi,ConstrTemp
Fori=1ToLen(Constr)
ConstrTemp=ConstrTemp&&Mid(Constr,i,Num)
Next
IfLen(ConstrTemp)<254Then
ConstrTemp=ConstrTemp&
Else
ConstrTemp=Left(ConstrTemp,254)&
EndIf
ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)
ConstrTemp=Right(ConstrTemp,len(ConstrTemp)-1)
CreateKeyWord=ConstrTemp
EndFunction