'**************************************************
'函数名：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
【CreateKeyWord asp实现的由给定的字符串生成关键字的代码】相关文章：