服务器之家

服务器之家 > 正文

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

时间:2019-10-09 14:11     来源/作者: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 

相关文章

热门资讯

玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情
华为nova5pro和p30pro哪个好 华为nova5pro和华为p30pro对比详情 2019-06-22
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字
抖音撒撒累累是什么歌 撒撒累累张艺兴歌曲名字 2019-06-05
超A是什么意思 你好a表达的是什么
超A是什么意思 你好a表达的是什么 2019-06-06
返回顶部