当前位置:  首页  >  PHP资讯  >  业界资讯

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

CreateKeyWordasp实现的由给定的字符串生成关键字的代码
'**************************************************
'函数名: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 内容推荐:免费高清PNG素材下载
吐了个 "CAO" !
扫码关注 PHP1 官方微信号
PHP1.CN | 中国最专业的PHP中文社区 | PNG素材下载 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved PHP1.CN 第一PHP社区 版权所有 京ICP备19059560号-4