• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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,"nbsp;","")
       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
    上一篇:JoinChar 向地址中加入 ? 或 & 用于实现传参
    下一篇:Server.Execute方法执行指定的ASP程序
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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