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

上一个：Server.Execute方法执行指定的ASP程序
下一个：JoinChar 向地址中加入 ? 或 & 用于实现传参