服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|JAVA教程|ASP教程|

服务器之家 - 编程语言 - ASP教程 - CreateKeyWord asp实现的由给定的字符串生成关键字的代码

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

2019-10-09 14:11asp代码网 ASP教程

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

  1. '**************************************************  
  2. '函数名:CreateKeyWord  
  3. '作  用:由给定的字符串生成关键字  
  4. '参  数:Constr---要生成关键字的原字符串  
  5. '返回值:生成的关键字  
  6. '**************************************************  
  7. Function CreateKeyWord(byval Constr,Num)  
  8.    If Constr="" or IsNull(Constr)=True or Constr="$False$" Then  
  9.       CreateKeyWord="$False$"  
  10.       Exit Function  
  11.    End If  
  12.    If Num="" or IsNumeric(Num)=False Then  
  13.       Num=2  
  14.    End If  
  15.    Constr=Replace(Constr,CHR(32),"")  
  16.    Constr=Replace(Constr,CHR(9),"")  
  17.    Constr=Replace(Constr," ","")  
  18.    Constr=Replace(Constr," ","")  
  19.    Constr=Replace(Constr,"(","")  
  20.    Constr=Replace(Constr,")","")  
  21.    Constr=Replace(Constr,"<","")  
  22.    Constr=Replace(Constr,">","")  
  23.    Constr=Replace(Constr,"""","")  
  24.    Constr=Replace(Constr,"?","")  
  25.    Constr=Replace(Constr,"*","")  
  26.    Constr=Replace(Constr,"|","")  
  27.    Constr=Replace(Constr,",","")  
  28.    Constr=Replace(Constr,".","")  
  29.    Constr=Replace(Constr,"/","")  
  30.    Constr=Replace(Constr,"\","")  
  31.    Constr=Replace(Constr,"-","")  
  32.    Constr=Replace(Constr,"@","")  
  33.    Constr=Replace(Constr,"#","")  
  34.    Constr=Replace(Constr,"$","")  
  35.    Constr=Replace(Constr,"%","")  
  36.    Constr=Replace(Constr,"&","")  
  37.    Constr=Replace(Constr,"+","")  
  38.    Constr=Replace(Constr,":","")  
  39.    Constr=Replace(Constr,":","")     
  40.    Constr=Replace(Constr,"‘","")  
  41.    Constr=Replace(Constr,"“","")  
  42.    Constr=Replace(Constr,"”","")  
  43.    Constr=Replace(Constr,"&","")    
  44.    Constr=Replace(Constr,"gt;","")        
  45.    Dim i,ConstrTemp  
  46.    For i=1 To Len(Constr)  
  47.       ConstrTemp=ConstrTemp & "|" & Mid(Constr,i,Num)  
  48.    Next  
  49.    If Len(ConstrTemp)<254 Then  
  50.       ConstrTemp=ConstrTemp & "|"  
  51.    Else  
  52.       ConstrTemp=Left(ConstrTemp,254) & "|"  
  53.    End If  
  54.    ConstrTemp=left(ConstrTemp,len(ConstrTemp)-1)  
  55.    ConstrTemp= Right(ConstrTemp,len(ConstrTemp)-1)  
  56.    CreateKeyWord=ConstrTemp  
  57. End Function 

延伸 · 阅读

精彩推荐